Excel und VBA: Formeln, Programmierung, Lösungen

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