VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Paßwortabfrage beim Öffnen der Arbeitsmappe

Gruppe

Dialog

Bereich

DialogSheet

Thema

Paßwortabfrage beim Öffnen der Arbeitsmappe

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und DialogSheet