ich habe von Peter Feustel (Vielen Dank nochmal) freundlicherweise nachstehenden Code bekommen. Ich bekomme es jedoch nicht hin, beim Betätigen der Schaltfläche "Abbrechen" die UserForm zu schließen, ohne dass der Code abläuft.
Option Explicit
' bei Klick auf den CommandButton1 wird das Passwort verglichen
' wurde es richtig eingegeben, wird das Makro verlassen und die
' weitere Verarbeitung kann beginnen.
' Wurde es falsch eingegeben, kommt ein Hinweis und das Passwort
' wird erneut abgefragt.
Private Sub CommandButton1_Click() 'Code der Userform freundlicherweise von Peter Feustel 18.03.06
If TextBox1 = Passw Then
MsgBox "Das eingegebene Passwort ist richtig!" & vbLf & vbLf & "Es werden nun die Tabllen zur weiteren Bearbeitung durch den Einkauf angezeigt!", _
64, " Passwort Verhandlungsleiter/-in:"
Unload UserForm1
Else
MsgBox "Sie haben ein falsches Passwort eingegeben!" & vbLf & vbLf & "Diese Funktion ist nur für den Einkauf bestimmt!", _
16, " Passwort Verhandlungsleiter/-in:"
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Private Sub CommandButton2_Click()
'UserForm1.Hide
Unload Me
End Sub
' Beim Laden des UserForm(ulars) wird die TextBox zur Passwort-
' Eingabe mit Sternchen maskiert.
Private Sub UserForm_Activate()
TextBox1.PasswordChar = "*"
End Sub
' wird das Schließen-Kreuz betätigt, wird die Mappe gesichert und beendet
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub
Peter ist vermutlich außer Haus, sonst hätte er sich bestimmt schon gemeldet.
Ich stelle daher meine Frage an das Forum, weil mir die Zeit davonläuft.
Gruß und Dank vorab:
Konni