11.04.2019, 13:53
11.04.2019, 14:27
In Deinem Tabellenblatt 9 (Data) darf natürlcih kein Code stehen!!! Den musst Du löschen. Ansonsten erzeugst Du eine Endlosschleife!
Gruß
Sebastian
Gruß
Sebastian
15.04.2019, 10:02
Moin,
kann ich meine Tabellenblatt "Data" als Schreibgeschützt erstellen, somit dort keiner mehr was bearbeiten kann?
MfG
XenOn655
kann ich meine Tabellenblatt "Data" als Schreibgeschützt erstellen, somit dort keiner mehr was bearbeiten kann?
MfG
XenOn655
15.04.2019, 11:26
Klar geht das. Das könntest Du manuell machen. ABER: Dein Makro muss ja in dieses Blatt schreiben. Also muss das Makro erst den Schreibschutz aufheben, dann die Änderungen machen, und dann das Blatt wieder schützen. Ist aber nciht viel Arbeit. Code such ich Dir raus.
Gruß
Sebastian
Gruß
Sebastian
15.04.2019, 11:34
(15.04.2019, 11:26)Bast4i schrieb: [ -> ]Klar geht das. Das könntest Du manuell machen. ABER: Dein Makro muss ja in dieses Blatt schreiben. Also muss das Makro erst den Schreibschutz aufheben, dann die Änderungen machen, und dann das Blatt wieder schützen. Ist aber nciht viel Arbeit. Code such ich Dir raus.
Gruß
Sebastian
Danke dir
MfG
XenOn655
15.04.2019, 12:37
Bei den anderen Const.... folgendes hinzufügen, und "test" durch ein von Dir gewähltes Passwort ersetzen:
Nach If Target.Column <=9..... folgede Zeile einfügen:
Und VOR Endif folgende Zeile einfügen:
Dann müsste es klappen.
Code:
Const Pwd As String = "test"Nach If Target.Column <=9..... folgede Zeile einfügen:
Code:
Sheets(LOG_BLATT).Unprotect Password:=Pwd 'Blattschutz aufhebenUnd VOR Endif folgende Zeile einfügen:
Code:
Sheets(LOG_BLATT).Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True 'Blatt schützenDann müsste es klappen.
15.04.2019, 13:00
(15.04.2019, 12:37)Bast4i schrieb: [ -> ]Bei den anderen Const.... folgendes hinzufügen, und "test" durch ein von Dir gewähltes Passwort ersetzen:
Code:Const Pwd As String = "test"
Nach If Target.Column <=9..... folgede Zeile einfügen:
Code:Sheets(LOG_BLATT).Unprotect Password:=Pwd 'Blattschutz aufheben
Und VOR Endif folgende Zeile einfügen:
Code:Sheets(LOG_BLATT).Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True 'Blatt schützen
Dann müsste es klappen.
Danke Sebastian,
hat alles funktioniert, noch eine Frage würde es gehen das niemand die Datei bearbeiten kann also auch ohne Eingabe des Passwortes.
MfG
XenOn655
15.04.2019, 13:20
Sorry, ich versteh Deine Frage nicht.....
Gruß
Sebastian
Gruß
Sebastian
15.04.2019, 13:35
(15.04.2019, 13:20)Bast4i schrieb: [ -> ]Sorry, ich versteh Deine Frage nicht.....
Gruß
Sebastian
Mein Tabellenblatt "Data" soll niemand bearbeiten können. Es soll nur dazu dienen um die Wartungen dokumentieren.
15.04.2019, 14:52
Wenn Du das Makro mit meinen letzten Anmerkungen versehen hast, ist genau das der Fall. Das Blatt Data ist schreibgeschützt. Nur das Makro darf reinschreiben.
Probier´s mal aus. Damit es funktioniert, musst Du das Makro aber einmal aktiviert haben. Also einfach einen Eintrag von MaschineA ins Blatt Data schreiben lassen (durch einen beliebige Änderung im Blatt MaschineA). Wenn Du jetzt händisch was im Blatt Data ändern willst, bekommst Du eine Meldung, dass das nicht geht.
Gruß
Sebastian
Probier´s mal aus. Damit es funktioniert, musst Du das Makro aber einmal aktiviert haben. Also einfach einen Eintrag von MaschineA ins Blatt Data schreiben lassen (durch einen beliebige Änderung im Blatt MaschineA). Wenn Du jetzt händisch was im Blatt Data ändern willst, bekommst Du eine Meldung, dass das nicht geht.
Gruß
Sebastian