Passwort abfrage
28.07.2020 11:30:02
Thomas
Ich nutze aktuell diese möglichkeit der Abgfrage:
Private Sub CommandButton1_Click()
Dim wks As Worksheet
With TextBox1
If Not TextBox1 = Sheets("Daten").Range("C19") Then
MsgBox "Bitte geben Sie ein gueltiges Passwort ein!", 64, "Passworteingabe _
erforderlich!"
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(.Text)
Else
Tabelle1.Visible = xlSheetVisible
Tabelle2.Visible = xlSheetVisible
Tabelle3.Visible = xlSheetVisible
Tabelle4.Visible = xlSheetVisible
Tabelle5.Visible = xlSheetVisible
Tabelle6.Visible = xlSheetVisible
Tabelle7.Visible = xlSheetVisible
Tabelle8.Visible = xlSheetVisible
Tabelle9.Visible = xlSheetVisible
Worksheets("Jahresplan_Vorplanung").Activate
Unload Me
End If
End With
End Sub
Ich möchte diese erweitern, sodass ich abfrage K20 und C19 oder L20 und C19 und dann weiter mit msg......
Danke für Eure Hilfe
Anzeige