VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Öffnen der Arbeitsmappe Passwort abfragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open