Gruppe
Ereignis
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe ein Passwort abfragen und - wenn korrekt - den Blattschutz aller Arbeitsblätter aufheben?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect "MeinPasswort"
Next wks
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim strPassword
strPassword = InputBox("Bitte Passwort eingeben:", , "MeinPasswort")
If strPassword <> "MeinPasswort" Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
wks.Unprotect "MeinPasswort"
Next wks
End Sub