Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Bisher habe ich folgendes verwendet:
ActiveSheet.Unprotect "test"
oldTarget.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 36
Set oldTarget = Target
ActiveSheet.Protect "test"
End Sub
Dann ließ sich der Blattschutz nicht entfernen. habe dann folgendes eingefügt hinter private sub:
Worksheets("Dein Blatt").Activate
Worksheets("Dein Blatt").Select
Worksheets("Dein Blatt").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
und das Kennwort herrausgenommen.
funktioniert auch nicht! wo ist der (Gedanken-)Fehler?
Wie muß die richtige formel aussehen, damit es funktioniert?
Ich will einfach nur unter Verwendung eines Kennwortes das Blatt schützen und die aktive Zelle farbig hinterlegen.
Oder kann ich das auch anders regeln, z.B. die gesamte Arbeitsmappe schützen, so daß nur noch bestimmte Felder angeklickt werden können?
Wer kann mir helfen? Ein besonderer Dank gilt erstmal Martin und Edi für die bisherige Hilfe.
Hat jemand ne Idee????