Gruppe
Dialog
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.
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