Sheet Schutz für Code deaktivieren
01.11.2004 13:18:24
Andy
ich benötige eine Erweiterung meines Code, mit der ich vor dem Ausführen den Blattschutz deaktiviere und nach der Ausführung den Blattschutz wieder aktiviere.
Der Code lautet:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Address(0, 0) = "D2" Then
For Each C In Range("V1:IC1")
C.EntireColumn.Hidden = C <> Target
Next
End If
End Sub
Bei diesem Code werden alle Spalten im Bereich V bis IC ausgebeldet, die nicht in der ersten Zeile den Inhalt von D2 haben.
Ich habe schon versucht einfach via
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
das herzustellen, aber das funktionert bei mir nicht, ich bekomme, dann eine "Hidden" Fehlermeldung, ich denke, das liegt daran, das der Code mehrmal durchlaufen wird...
Kann mir jemand da weiterhelfen?
Wäre für einen Codevorschlag sehr dankbar
Gruß
Andy
Anzeige