Thema: Beim Öffnen der Arbeitsmappe Passwort abfragen

Home

Gruppe

Ereignis

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

Msg mit 2 Ereignissen +Cancel	Workbooks open
Ereignisprozedur	Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname	Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen	Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden	Ereignis Arbeitsblatt sperren abfangen
Workbook open	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook	Change-Ereignis in Combobox unterdrücken
Combobox Ereignis	MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Workbook Open	Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm	Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden	Workbook_open
change ereigniss auf userform.	Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change	workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef	Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat	Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open