Gruppe
Datei
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?
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