Beim Öffnen einer Datei soll das Blatt "Vorlage" (ausgeblendet) immer mit dem aktuellen Monat (November04) geschützt werden.
Ich versuchte es mit folgendem Code im Editor "Diese Arbeitsmappe", jedoch ohne Erfolg. Was mache ich falsch?
Private Sub Workbook_Open()
Dim Passwort As Variant
Passwort = Format(Date, "MMMMYY")
'--- Blatt schützen
Sheets("Vorlage").Protect Passwort, DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowInsertingColumns:=True, AllowDeletingColumns:=True, AllowFiltering:= _
True
End Sub
Vielen Dank
Gregor