AW: Zellen schützen
24.09.2008 21:45:00
Ramses
Hallo
Zelle("M4") auswählen und "Format - Zelle - Schutz" das Häkchen vor "Gesperrt" entfernen
Rechte Maustaste auf die Tabelle wo die Zelle M4 geändert werden soll.
Code anzeigen
Dort den untenstehenden Code einfügen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Text
Case "mh"
ActiveSheet.Unprotect strPW
Case "rro"
ActiveSheet.Unprotect strPW
Range("K13:L1000").Locked = False
ActiveSheet.Protect strPW
End Select
End Sub
Im VB-Editor ein Modul einfügen und diesen Code dort reinkopieren
Option Explicit
Const strPW As String = "Passwort"
Const tarSheet As String = "Tabellenname_mit_Zelle_M4"
Die Variablen musst du noch anpassen
Die Tabelle dann mit dem Passwort einmal schützen (Format - Schutz - Blattschutz)
Im VB-Editor einen Doppelklick auf "Diese Arbeitsmappe" und diesen Code einfügen
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
Worksheet(tarSheet).Range("M4") = ""
Application.EnableEvents = True
End Sub
Gruss Rainer