Ich habe eine ziemlich komplexe Arbeitsmappe. In der Arbeitsmappe gibt es einen Button, mit dem per Makro die ganze Mappe geschützt werden kann. Dahinter liegt folgendes Makro:
Sub PasswortAufAllenTabellenblättersetzen()
Application.ScreenUpdating = False
Dim I As Integer
For I = 1 To Worksheets.Count
Sheets(I).Protect ("meinPasswort")
Next I
ActiveWindow.SmallScroll Down:=-36
End Sub
Dann gibt es natürlich einen Button, mit dem man die ganze Arbeitsmappe entsperren kann:
Sub PasswortLöschenAufAllenTabellen()
Application.ScreenUpdating = False
Load UserForm1
UserForm1.Show
Unload UserForm1
End Sub
Das funktioniert eigentlich auch bestens. Aber ich habe die folgenden zwei Probleme:
- beim Öffnen der Mappe wird das Passwort zum Entsperren abgefragt!?! Hier mein Auto_Open Makro:
Sub Auto_Open()
PasswortAufAllenTabellenblättersetzen
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To ThisWorkbook.Sheets.Count
Worksheets(I).Protect UserInterfaceOnly:=True
Worksheets(I).EnableOutlining = True ' Für Gliederung
Worksheets(I).EnableAutoFilter = True ' Für AutoFilter
Next I
Application.ScreenUpdating = True
End Sub
- das zweite Problem: wenn ich nach dem Öffnen auf Extras/Schutz/Blattschutz aufheben gehe, fragt er NICHT nach dem Passwort. Dies tut er erst, wenn ich einmal manuell den obigen Button zum Schützen der Mappe betätigt habe.
Kann mir jemend weiterhelfen? Ihr könnt mir gerne noch weitere Fragen dazu stellen, wenn etwas unklar ist.
Danke!!!
Jill