Track Changes mittels VBA

[snb]

Bitte nicht so faul.

[Bast4i]

In Deinem Tabellenblatt 9 (Data) darf natürlcih kein Code stehen!!! Den musst Du löschen. Ansonsten erzeugst Du eine Endlosschleife!

Gruß
Sebastian

[XenOn655]

Moin,

kann ich meine Tabellenblatt "Data" als Schreibgeschützt erstellen, somit dort keiner mehr was bearbeiten kann?

MfG
XenOn655

[Bast4i]

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

[XenOn655]

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

[Bast4i]

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.

[XenOn655]

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

[Bast4i]

Sorry, ich versteh Deine Frage nicht.....

Gruß
Sebastian

[XenOn655]

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.

[Bast4i]

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