Blattschutz Makro
Haegi
Ich habe folgenden VBA code:
Sub passwortrein()
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Protect Password:="test", Contents:=True, DrawingObjects:=True
Next
End Sub
Dieser Code soll auf allen Arbeitsblätter den Blattschutz mit Passwort aktivieren. Ich möchte auserdem das auf allen Arbeitsblättern (bei aktivem Blattschutz) nur die nicht gesperrten Zellen ausgewählt werden können.
Problem: Wenn ich nun das Makro auf z.b Tabelle1 ausführe ist diese korrekt geschützt, jedoch auf den anderen Arbeitsblätter ist der Blattschutz zwar aktiv aber ich kann die gesperrten Zellen immer noch anklicken.
Kann jemand helfen bitte.
Gruss Haegi
Anzeige