Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Paßwortabfrage beim Öffnen der Arbeitsmappe

Gruppe

DialogSheet

Problem

Beim Öffnen der Arbeitsmappe soll eine Namen/Passwortabfrage erfolgen. Die Code-Zeile zum Schließend er Arbeitsmappe bei falscher Eingabe ist auskommentiert. Die Routine ist auch in XL5/7 lauffähig.

Lösung
Geben Sie den Code in ein Standardmodul ein.

StandardModule: Modul1

Sub auto_open()
   With DialogSheets("dlgPW")
      .Show
      If .EditBoxes("edtName").Text <> "Name" Or .EditBoxes("edtPW").Text <> "Passwort" Then
         Beep
         MsgBox "Falscher Name oder falsches Passwort!"
         'ActiveWorkbook.Close savechanges:=false
      End If
   End With
End Sub

Sub AusEinblenden()
   Sheets("dlgPW").Visible = xlVeryHidden
   'Sheets("dlgPW").Visible = True
End Sub