VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aufhebung der Workbook_Open-Befehle verhindern

Gruppe

Datei

Bereich

AddIn

Thema

Aufhebung der Workbook_Open-Befehle verhindern

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und AddIn