Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beim Öffnen der Arbeitsmappe Passwort abfragen

Gruppe

Open

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