Hallo tinki,
den VBA-Code, den Du gepostet hast schütz Formeln in dem aktiven Tabellenblatt. Das bedeutet, klickst Du in dem Tabellenblatt in eine Zelle, in der eine Formel eingetragen ist, wird das Blatt geschützt. Klickst Du in eine Zelle, die keine Formel enthält, wird der Blattschutz aufgehoben.
Um das Tabellenblatt zu schützen reicht Dir der Befehl
ActiveSheet.Protect
aus. Hiermit wird das aktuelle Blatt geschützt. Möchtest Du mehrere Tabellenblätter mit einem Blattschutz versehen, dann könnte so ein Makro z.B. folgendermaßen aussehen:
Option Explicit
Sub Sheet_Protect()
Sheets("Tabelle1").Protect "Hier dann ein eventuelles Passwort eintragen"
Sheets("Tabelle2").Protect "Hier dann ein eventuelles Passwort eintragen"
End Sub
In diesem Beispiel werden die Blätter mit dem Namen „Tabelle1“ und „Tabelle2“ mit einem Passwort versehen. Der Text „Hier dann ein eventuelles Passwort eintragen“, der in den Anführungszeichen ( "" ) steht, kann gelöscht, wenn kein Passwort vergeben werden soll, oder gegen das Passwort ausgetauscht werden.
Um einen Blattschutz dann wieder aufzuheben, sähe der Code so aus:
Option Explicit
Sub Sheet_Protect()
Sheets("Tabelle1").Unprotect "Hier dann ein eventuelles Passwort eintragen"
Sheets("Tabelle2").Unprotect "Hier dann ein eventuelles Passwort eintragen"
End Sub
Das mit dem Passwort verhält sich genau wie beim Schützen der Blätter.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]