AW: Passwort
23.07.2015 14:39:48
UweD
Hallo
Beispiel für Tabelle1
- Beim aktivieren des Blattes wird Benutzer und Passwort abgefragt (hier im Beispiel Max und Geheim)
- wenn Beides stimmt, wird der Blattschutz aufgehoben, sonst nicht
- Beim Verlassen des Blattes wird der Schutz wieder gesetzt.
Code der Userform:
Private Sub UserForm_Activate()
'Vorbelegung mit Anmeldename, kann auch weg
TextBox1 = Environ("Username")
End Sub
Private Sub CommandButton1_Click() 'OK
If TextBox1 = "Max" And TextBox2 = "Geheim" Then
Unload UserForm1
MsgBox "Hallo " & TextBox1 & vbLf & "Du hast Zugriff auf das Blatt."
'hier jetzt das Blatt entsperren
ActiveSheet.Unprotect Password:="ABC"
Else
With ActiveSheet
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ABC"
.EnableSelection = xlNoSelection
End With
Unload UserForm1
MsgBox "Benutzer oder Passwort falsch"
End If
End Sub
Private Sub CommandButton2_Click() 'Abbrechen
Unload UserForm1
End Sub
Code des Tabellenblattes:
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Private Sub Worksheet_Deactivate()
Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ABC"
Me.EnableSelection = xlNoSelection
End Sub
https://www.herber.de/bbs/user/99038.xlsm
Gruß UweD
