HERBERS Excel-Forum - die Beispiele

Thema: Paßwortabfrage beim Öffnen der Arbeitsmappe

Home

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.

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

xlDialogInsertHyperlink.show Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Klick in definierten Rangebereich startet Dialog xlDialogOpen bei Excel 2007 funzt nicht
FileDialog inkl. Anklicken von Desktop, Eigene D. Grösse Dialogfenster der InputBox
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr Dialog "Verknüpfung aktualisieren"
Ordnerdialog und Dateidialog Ordnerdialog und dateidialog
Ordnerdialog und Dateidialog Filedialog
Herber/Beispiele/Dialoge/Checkbox/137601 Bilder bei Click im Dialogfeld
Suchdialog über VBA aufrufen mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren Dialogfenster zum kopieren
FileDialog-Objekt unter O2k Abrage von Dialogfeldargumenten
Datei Auswählen Dialog (Application.FileDialog) xlDialogOpen/FindFile ohne Open
Dialogfeld zum pdf öffnen Dialogfeld schließen, wenn Benutzer nichts eingibt
Problem mit ApplicationDialogs Das Dialogfeld "sortieren" aufrufen?
Keine Dialogbox bei SaveAs Dialogbox
Bei xlDialogSaveAs Dateinamen vorgeben Blattauswahldialog...
speichern unter dialogbox problem Speicherndialog bei BeforeClose unterbinden
Dialogfenster "Aktualisierung der Verknüpfungen&qu speichern unter dialogbox einbinden
Dialogfeld Beschriftungsbereiche Problem nach 'application.dialogs(xldialogsendmail
dialog aktualisieren xlDialogSendMail - Passwort übergeben
Dialog zur datei dialogbox-neue datei erzeugen...
Save As Dialog (*.bat ausführen) ? Dialog automatisch mit OK bestätigen