AW: Änderungsschutz eines Zelleninhaltes
05.05.2007 19:19:00
Oberschlumpf
Hi Andre
1. Damit nur Spalte E gesperrt wird, musst du vorm Blattschutz setzen bei ALLEN anderen Zellen, die NICHT gesperrt sein sollen, über Format/Zellen/Schutz den Haken vor gesperrt entfernen
2. Dann kannst du per VBA den Blattschutz nach einer Eingabe in Spalte E so setzen:
Trage den Code ins Klassenmodul des Tabellenblattes ein, für das der Code gelten soll
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
ActiveSheet.Unprotect "passwort"
Target.Locked = True
ActiveSheet.Protect "passwort"
End If
End Sub
Um nun für Korrekturen den Blattschutz wieder zu entfernen, trage diesen Code ins Klassenmodul des Tabellenblattes ein, für den der Code gelten soll:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lPW As Variant
lPW = InputBox("Geben Sie bitte ein Passwort ein", "Passwort erforderlich")
If lPW = "" Or lPW "anderesPasswort" Then
lPW = MsgBox("falsches Passwort", vbCritical, "Fehler")
Else
Sheets(1).Unprotect "passwort"
End If
End Sub
Willst du den Blattschutz mit einem anderen Passwort setzen, musst du im Code an ALLEN Stellen, wo "passwort" steht, dur dein eigenes Passwort ersetzen.
Willst du die Korrektur mit einem anderen Passwort ermöglichen, musst du "anderesPasswort" durch dein Passwort ersetzen.
Konnte ich helfen?
Ciao
Thorsten