Office: Passwortabfrage mit Sternchen

Und so?

Code:

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "xyz" Then
Application.EnableEvents = False
Range("C11").Select
Application.EnableEvents = True
Else
MsgBox "Das Passwort ist falsch!"
End If
UserForm1.Unload Me
End Sub

 

Andererseits:
Warum überhaupt Range("C11").Select ?
Die Zelle ist doch schon angesteuert, oder nicht?

 

HAllo!

hab jetzt nur das problem mit

UserForm1.Unload Me


er macht die Fehlermeldung Methode nicht gefunden.?

Stimmt die Zelle C11 ist angewählt, kann ich die Zeile einfach rauslöschen?

MIke

 

Versuch's mal nur mit

Code:

Unload Me

oder mit

Code:

Unload UserForm1

 

HAllo!

nur mit unload me funktioniert es. Aber wenn ein falsches Passwort eingegeben wurde, spring er trotzdem in die C11. Komisch!

MIke

 

Jetzt hab ichs!

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "xyz" Then
Application.EnableEvents = False
Application.EnableEvents = True
Else
MsgBox "Das Passwort ist falsch!"
Range("A1").Select


End If
Unload Me
End Sub


Jetzt müsste ich nur noch den Exit Button modifizieren

Mike

 

Wofür brauchst du den überhaupt?
Du kannst die UF doch über das "X" oben rechts schließen.

 

He!

coole Idee!

Danke!

 

HAllo! funktioniert soweit prima:

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "xyz" Then
Application.EnableEvents = True
Else
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\bad.wav"")")
Range("A1").Select
Unload Me
UserForm1.Show
End If
Unload Me
End Sub

Aber: Wenn die erste Inputbox kommt und nach dem PAsswort fragt, kann ich diese Box mit dem "X" oben rechts (schließen) beenden und schon bin ich in Zelle C11. UPS....!?

HAst du da auch eine Idee?
Wofür ist
Application.EnableEvents = True

MIke

 

Hoho!

ich habs!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B$11" Then
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\zutritt.wav"")")
UserForm1.Show
End If

Ich starte aus der Nachbarzelle....."B11"

und verweise wenn Passwort richtig auf die C11 Zelle, Passwort falsch: nochmal die UserForm1.

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Text = "xyz" Then
Range("C11").Select
Application.EnableEvents = True
Else
ExecuteExcel4Macro ("SOUND.PLAY(,""C:\bad.wav"")")
Unload Me
UserForm1.Show
End If
Unload Me
End Sub

Genial!

Danke für die Hilfe!!

Gruß

Mike