Ich habe folgendes Makro in der Recherche gefunden:
Private Sub OK_Button_Click()
Dim Passw As Variant
Dim festes_passwort As Variant
PassWort.PasswordChar = "*"
festes_passwort = "test"
Passw = PassWort.Value
'Wenn kein Passwort eingegeben wurde ....
If PassWort = "" Then
Unload frmvpsu
Passw = ""
'...Box mit Hinweis öffnen
'MsgBox "Sie müssen ein Passwort eingeben!", vbExclamation
Exit Sub
End If
'Wenn ein falsches Passwort eingegeben wurde....
If Passw <> festes_passwort Then
Unload frmvpsu
Passw = ""
'...Meldung anzeigen
'MsgBox "Sie haben ein falsches Passwort eingeben!", vbExclamation
Exit Sub
End If
If Passw = festes_passwort Then
Application.ScreenUpdating = False
'Range("H7").Value = ""
Passw = ""
Unload frmvpsu
UserForm1.Show
Call UserForm1.Sonstige_VP
'MsgBox "Zur Bearbeitung freigegeben", , "Bearbeitungsfreigabe"
End If
End Sub
Öffnen der Userform1.
Nach dem Öffnen der Userform1 wird über eine ComboBox die frmvpsu aufgerufen.
Nach dem Aufruf der Userform frmvpsu gebe ich das Passwort ein und drücke OK.
Die frmvpsu sollte geschlossen werden, die in der im Hintergrund bereits geöfnnete UserForm1 sollte das Makro "Sonstige_VP" ausgeführt werden.Die Userform1 sollte aber dabei natürlich geöffnet bleiben, was aber nicht der Fasll ist. Obwohl ich im Code keinen Befehl zum Schließen der UserForm1 sehe wird diese trotzdem mit der frmvpsu geschlossen.
Wo habe ich hier bitte den Fehler gemacht?
Danke
Josef