Office: schon wieder eine Passwortfrage!

Hallo!

ich hoffe das ihr mir nochmal helfen könnt! Die Idee von Schnake war ja richtig genial! Als Newbie steige ich trotz intensiver Recherche noch nicht ganz durch. Bestimmt ist es eine KLeinigkeit für euch!
Hier mein Code:

Private Sub CmdOK_Click()

If Passwort.TextBox1.Text = "XYZ" Then
Sheets("Gerät").Select
Unload Passwort
Else
Text = "Bitte Neueingabe, der Code war FALSCH!"
Label1.Caption = Text
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\bad.wav"")")
End If
End Sub

Hier hat Schnake was gebastelt, was ich nicht so umsetzen kann.
If TextBox1.Value = Passwort Then
Unload Secure

Else
PWWR = PWWR + 1
Text = "Bitte versuchen Sie es Erneut, Der Code war FALSCH"
Label1.Caption = Text
If PWWR > 1 Then
MsgBox "Na wer wird den Hacken wollen !!! ;-)"
Unload Secure
End If


Kann mir hier geholfen werden?

Ich möchte gern nach zweimaliger Falscheingabe eine Msgbox anzeigen.

Danke für EUre Hilfe!


MIke

 

1.) musst du dazu einen neuen threat aufmachen

2.)
[1]

Code:

If TextBox1.Value = Passwort Then
Unload Secure

wenn der inhalt der textbox1 (Textbox1.value) gleich ist wie die Variable Passwort dann schliesse das Userform "secure"

[2]

Code:

Else
PWWR = PWWR + 1
Text = "Bitte versuchen Sie es Erneut, Der Code war FALSCH"
Label1.Caption = Text

sonst zähle zu der Variable PPWR 1 dazu und speichere sie unter dem namen PWWR
Gib dem User dann in Label1 den hinweis das das PW falsch war
(Label1.caption)

Code:

If PWWR > 1 Then
MsgBox "Na wer wird den Hacken wollen !!! :-)"
Unload Secure
End If

Wenn PWWR>1 (was ja beim 2ten mal der fall ist ) dann
gib eine Messagebox aus (msgbox) mit dem hinweis "wer wird den hacken wollen !!! :-)"
schliesse das Userform

*** hinweise ***
[1]
Hier wird das userform geschlossen , sollte dann aber so ge,acht werden das der user der das PW richtig eingegeben hat auch den gewünschten zugriff bekommt

[2]
Hier wird das Userform auch geschlossen aber man sollte es so einstellen das der User Keinen zugriff auf die daten erhält

 

HallO!
danke für die Erläuterung. Das hatte ich schon soweiit kapiert. Nun zu deinem verschlüsselten PAsswort. Damit kenne ich mich leider überhaupt nicht aus. Den Code usw. hab ich ja gefunden. ICh muss ein bestimmtes Passwort benutzen, da es intern bekannt ist. das könnte ich im Blatt "Gerät" z.B. in Zelle "AZ1" verbergen.

KAnn man das kurz erklären, oder ist deine Verschlüsselung zu umfangreich?

Meine VAriante ist ja für (fast) jederman zugänglich.

If TextBox1.Text = "XYZ" Then

 

Hallo!

Schwere Geburt!

Jetzt funzt es, danke an die Experten!

Mein Code:

Eine Userform, nach der zweiten (Falsch)Eingabe kommt MsgBox, und die Anwendung wird geschlossen!

So machts Sinn!


DANKESCHÖN an den g..len Code von Schnake!


Private Sub CmdOK_Click()
PWWR = Sheets("Gerät").Range("AZ2")
Passwort = Sheets("Gerät").Range("AZ1")
If Secure.TextBox1.Value = Passwort Then
Sheets("Gerät").Select
ActiveSheet.Unprotect
Range("C11:C13").Select
Selection.Locked = False
Range("B11:B13").Select
Selection.Locked = False
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\welcome.wav"")")
ActiveSheet.Protect
Range("H8").Select
Unload Secure
Call security.Zu
Sheets("Gerät").Range("AZ2") = ""

Else
PWWR = PWWR + 1
Text = "Bitte Neueingabe, der Code war FALSCH!"
Label1.Caption = Text
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\bad.wav"")")
If PWWR > 1 Then
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Na, wer wird denn hier Hacken wollen? Anwendung wird geschlossen! ;-)"
Stil = vbCritical
Titel = "OHNE PASSWORT GEHTS NICHT!"

Antwort = MsgBox(Mldg, Stil, Titel)
Unload Secure
Application.Quit
ThisWorkbook.Close False

End If
Sheets("Gerät").Range("AZ2") = PWWR
End If

End Sub