Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aufhebung der Workbook_Open-Befehle verhindern

Gruppe

AddIn

Problem

In einem Workbook_Open-Befehl frage ich ein Paßwort ab. Wie kann ich verhindern, daß jemand durch gehaltene Umschalttaste die Ausführung des Workbook_Open-Befehls verhindert und somit die Arbeitsblätter sichtbar werden?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim sWort As String
   sWort = InputBox( _
      prompt:="Passwort:", _
      Title:="Sicherheitsabfrage", _
      Default:="Passwort")
   If sWort <> "Passwort" Then
      ThisWorkbook.Close savechanges:=False
   Else
      ThisWorkbook.IsAddin = False
   End If
End Sub

Sub Schliessen()
   ThisWorkbook.IsAddin = True
   ThisWorkbook.Close savechanges:=True
End Sub