Passwort vor Öffnen einer Tabelle

Private Sub CommandButton1_Click()
Call Zuweisung
Dim rng As Range
Set rng = Stammdaten.Range("Liste").Find(Me.TextBox1.text, lookat:=xlWhole)
If Not rng Is Nothing Then
If rng.Offset(0, 1) = Me.TextBox2.text Then
frmStart.Show
Unload Me
Else
MsgBox "Ungültiges Passwort!" & Space(25) & vbLf & vbLf & _
"Bitte achten sie auf Groß/Klein-Schreibung" & vbLf & _
"und versuchen sie es erneut!", vbInformation, "Fehler"
Me.TextBox2 = ""
Me.TextBox2.SetFocus
zähler = zähler + 1
If zähler = 3 Then
MsgBox "Sie haben drei mal ein falsches Passwort verwendet!" & Space(15) & vbLf & _
vbLf & "Die Datei wird geschlossen!", vbCritical, "Zugriff Verweigert"
ThisWorkbook.Close Savechanges:=False
Exit Sub
End If
End If
End If
End Sub