Thema: Tabelle nur einblenden,w enn Passwort i.O. | Herbers Excel-Forum

Guten Abend
Ich habe in einem benutzerdefiniertes Menu und einen der Menupunkte mit der Möglichkeit, eine Tabelle einzublenden.
Nun möchte ich, dass der User zuerst ein Passwort eingeben muss, bevor die Tabelle eingeblendet werden kann. Dieses Passwort ist in der benannten Zelle"P_W" hinterlegt.
Mir ist nicht ganz klar, wie ich diese Anfrage in meinen Code einbaue.
Die Abfrage stelle ich mir wie folgt vor:
- "Bitte geben Sie das Passwort ein" (mit OK quittieren)
Wenn Esc gedrückt wird oder die Abfrage geschlossen wird (durch drücken oben rechts "X"), sollte die Meldung kommen "Passwort Abfrage abgebrochen". Wenn das Passwort falsch ist, soll die Meldung kommen "Passwort ist leider falsch".
Hat jemand so eine ähnlcihe Routine. Wäre an einem Beispiel sehr interessiert.
Danke, Peter

Hallo Peter,
ein einfaches Beispiel.
https://www.herber.de/bbs/user/66619.xls

Hallo Sepp
Vielen Dank für das Beispiel
Ich bin mit Formularen noch nicht so vertraut und möchte deshalb folgende Anschlussfragen stellen:
Für was ist

Private Sub Label1_Click()
End Sub

und

Private Sub UserForm_Click()
End Sub

?
Kann ich eine spezielle Mesage bringen, wenn der Benutzer weder eine Eingabe noch "Esc" druckt, sondern oben rechts auf das "X" drückt und so den Dialog beendet?
Gruss, Peter

Hallo Peter,
das sind die Erreignisse die eintreten wenn eben Label1 oder auf das Formular geklickt wird.
Für eine Meldung beim Klick auf das X fügst du diesen Code in das Modul des UF ein.

Hallo Sepp
Vielen Dank. Das mit dem Klicken auf "X" hat sich gelöst.
Bei den anderen Codes bin ich da wirklich etwas schwer von Begriff. Wenn ich das UserForm anklicke, kommt der Code, der hinten drauf ist. Habe noch nicht herausgefunden, was ich genau klicken muss, damit die nachstehenden Codes aktiv werden - und es war ja auch keine Aktion vorgesehen - ich habe nur probeweise eine msgbox eingefügt.
Hoffe bei mir auf eine "Quantensprung" ;-)
Danke, Peter

Private Sub Label1_Click()
'MsgBox "Label"
End Sub

Private Sub UserForm_Click()
'MsgBox "UserForm"
End Sub

Hallo Peter,
bei Label1 musst du auf den Text "Bitte geben Sie..." klicken, bei UserForm irgendwo auf
das Formular ausserhalb der Steuerelemente.