in einer Tabelle habe ich ein Blattschutz aktiviert. Über einen Button kommt eine MsgBox in der ich ein PW eingebe bei dem der Blattschutz (wenn richtiges PW) aufgehoben wird. Am besten nur in der Spalte ab O12 bis Oxx also ab Cell(12,15). bis lngRowMax = .Cells(Rows.Count, 15).End(xlUp).Row
Hier kann ich jetzt Werte belibig eintragen. Sobald ich mit der Maus in eine andere Zelle als diesen Bereich anklicke, soll der Blattschutz wieder aktiv sein.
Könnt ihr mir hier dabei helfen? Mein bisheriger Versuch klappt nicht.
Vg
Sub PW()
Dim Eingabe As String
Passw = "Extra"
Eingabe = InputBox("Geben Sie bitte das Passwort ein!")
If Eingabe = Passw Then
MsgBox "Zugriff erlaubt!"
Call UnProtectAll
If Target.Column = 15 Then
ActiveSheet.Unprotect
Else
If ActiveSheet.ProtectContents = False Then
ActiveSheet.Protect "Extra"
End If
End If
Else
Application.DisplayAlerts = False
MsgBox "Sie haben keine Zugriffsrechte!"
Exit Sub
End If
End Sub
Sub UnProtectAll()
Sheets("Tabelle1").Unprotect Password:="Extra"
End Sub