zuerst soll über eine userform (passwort) das gültige passwort abgefragt werden. wenn dieses falsch eingegeben worden ist soll beendet werden, sonst weiter und das aktuelle blatt löschen.
Problem:
wenn dann passwort falsch eingegeben wurde, wird "fertig" nicht ausgewählt und das tabellenblatt wird trotzdem gelöscht, anstatt "exit sub" abzubrechen.
eingegeben in ein normales modul:
Sub TabDel()
'Userform Passwort anzeigen
Passwort.Show
' Tabellenblatt löschen
ActiveSheet.Delete
Fertig: Exit Sub
End Sub
eingegeben in die userform "Passwort":
Const Passw = "Test"
Private Sub CommandButton1_Click()
If TextBox1.Value = Passw Then
Unload Me
Else
Label2.Visible = True
GoTo Fertig
End If
End Sub
Private Sub UserForm_Initialize()
Dim frm As UserForm
Set frm = Passwort
frm.TextBox1.PasswordChar = "X"
frm.TextBox1.SetFocus
frm.Label2.Visible = False
End Sub