Gruppe
Ereignis
Bereich
Open
Thema
Beim Öffnen der Arbeitsmappe Passwort abfragen
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe ein Passwort abfragen und - wenn korrekt - den Blattschutz aller Arbeitsblätter aufheben?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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