AW: Fehler Fenster öffnet obwohl passwort OK
15.05.2020 14:30:16
ChrisL
Hi
Nochmal neu geschrieben, ohne globale Variable.
' DieseArbeitsmappe
Private Sub Workbook_Open()
Blattschutz False
End Sub
' Userform1
Private Sub CommandButton1_Click()
If TextBox1 Tabelle3.Range("A30") Then
MsgBox "Passwort falsch"
Else
Blattschutz True
End If
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
MsgBox "Passwort vergessen!!!" & vbNewLine & _
"Sie können telefonisch oder per E-Mail mit der MAUS kontaktieren.", vbInformation, "VIP"
End Sub
Private Sub CommandButton3_Click()
Unload Me
UserForm2.Show
End Sub
' Userform2
Private Sub CommandButton5_Click()
If TextBox4 Tabelle3.Range("A30") Then
MsgBox "Das alte Passwort ist falsch. Änderung verweigert."
ElseIf TextBox5 = "" Then
MsgBox "Es wurde kein neues Passwort definiert. Prozess abgebrochen."
Else
Tabelle3.Range("A30").Value = TextBox5.Text
End If
Unload Me
UserForm1.Show
End Sub
' Standardmodul
Function Blattschutz(ByVal bAn As Boolean)
Dim WS As Worksheet
If bAn = True Then
For Each WS In ThisWorkbook.Worksheets
WS.Protect Password:=Tabelle3.Range("A30"), DrawingObjects:=True, Contents:=True, _
Scenarios:=True
Next WS
Else
For Each WS In ActiveWorkbook.Worksheets
ActiveSheet.Unprotect Password:=Tabelle3.Range("A30")
Next WS
End If
End Function
cu
Chris