Office: Userform- Passwortabfrage nach 2mal falsch Aktion

Hallo!

ich wüde gern eine Passwortabfrage(userform) nach 2 maliger Falscheingabe eine aktion ausführen lassen.

Jetzt habe ich bei Falscheingabe eine zweite UserForm, die eine einfache FAlschmeldung und Klang erzeugt. Bei klick auf ok gehts zurück zur ersten USerform

Hier der Code bisher:


Private Sub CommandButton1_Click()
If Passwort.TextBox1.Text = "XYZ" Then

ActiveSheet.Unprotect
Range("C11:C13").Select
Selection.Locked = False
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\welcome.wav"")")
ActiveSheet.Protect
Range("H8").Select

Else
Unload Me
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\bad.wav"")")
Passwort2.Show
End If
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Range("A1").Select
End Sub

 

AXO, gut wäre zum Beispiel als Aktion ein endgültiges Schliessen von Excel mit deaktivieren der Meldung: Möchten Sie speichern?


Danke für eure Hilfe!

MIke

 

Hallo!

Nun reiß dir doch nicht den Allerwertesten für diese Passwort-Abfrage auf:
Wenn jemand das Passwort wissen möchte, dann braucht er doch nur in den VBA-Code zu schauen!
Schon mal dran gedacht?

 

HOHO!

naja hast schon recht, aber öffnen werden es eigentlich nur Leute die keine richtige Ahnung haben, und irgendwann muss ich meine Schleife doch unterbrechen, oder?

Den VBA Code kann ich doch mit einem PAsswort schützen.

Mike

 

Dann denk dir lieber ein "vernünftiges" Passwort aus, und lass die Leute, die keine Ahnung haben, 3767386x probieren.
Zerbrich dir doch nicht den Kopf anderer Leute...

Und dieses Passwort kann nicht geknackt werden???

 

HI!

naja, irgendwie hast du schon recht!

Danke für den HInweis! ;-)

 

na ja wenn der cod vorher aber durch eine formel extern codiert wird, und dann in vba eingefügt wird dann wird man ihn selbst auch so net finden ...

(solange man nicht als variable passwort nimmt)

 

@schnake:
Aber lohnt das denn den Aufwand?

Ich bereite meinem Hund doch auch keine in Balsamico-Vinaigrette angemachte Scampi zu.
(Obwohl sie ihm sicher auch schmecken würden... :-D :-D :-D )

Wenn du eine Idee hast, dann aber selbstverständlich raus damit!

 

naja der aufwandt lohnt sich .. schon..

@ Pino28 wiso gehst du über ein 2tes passwortfeld???

@ schatzi
schau mal ob du da das PW herausbekommst

 

Hallo schnake!

Das Passwort lautet "Office-Hilfe".
Ich kann es dick und fett in Tabelle2!B2 lesen, wenn ich dieses Blatt im Eigenschaftenfenster des VBA-Editors einblende.
Da nützt dir deine ganze Codierung nix...

 

na gut dann hast du aber den code voher net aktiviert..
weil sonst kommt man dort ja auch net dran

 

Selbstverständlich komme ich dran.
Ich brauch doch nur den VBA-Editor zu aktivieren, bzw. bereits vorher aktiviert haben.

 

Hallo!

schön, das es zu Diskussionen anregt. Das zweite Feld benutze ich aus folgendem Grund:

1.Userform wird beim Öffnen der Datei geladen, mit Passwortabfrage. Bei Falscheingabe ertönt"FALSCHES PASSWORT". Dort wo die Mappe eingesetzt werden soll haben aber nicht alle Lautsprecher. Also würden die User nix hören und das gleiche Fenster sehen.

Also hab ich eine zweite Userform drangehangen mit dem Hinweis das dass die Eingabe falsch war.

MIke

 

Hier meine Lösung:

Ich habe eine Vorlage gebastelt. Allle relevanten Zellen sind mit Zellschutz versehen. Blattschutz. Eingangs die Passwortabfrage. Falsche Eingabe 2.te Meldung, mit OK zurück zur Ersten. Bei Abbruch (über X) gehts in Zelle "A1". Bei richtigem Passwort werden die benötigten Zellen freigeschaltet. (Zellschutz raus).

Der nächste User bekommt wieder die erstellte Vorlage und das ganze Spierl geht von vorn los!


Genial, wa? ;-)

oder?


Gruß

MIke

 

Hallo!

vielleicht nicht so genial perekt wie schnakes'Lösung aber da hab ich jetzt ja mal was zum studieren.

@Schnake: eine kleine Erklärung zu den Vorgängen wäre sehr nett! Ist ja sehr umfangreich!

Danke im Vorraus!

Gruß

MIke