Blattschutz automatisch aufheben
Alexander
Ich arbeite mit Excel 2000.
Der Befehl funktioniert in meiner Excel Version und
auch an anderen Arbeitsplätzen mit Excel 2000 tadellos.
Andere Kollegen haben jedoch Excel Versionen, die höher sind,
dort klappt der Befehl nicht, das Problem ist:
Der Blattschutz wird nicht automatsich aufgehoben.
Es handelt sich um folgenden Befehl:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$H$3") Then
ActiveSheet.Unprotect "1"
End If
End Sub
Danke für Hinweise.
Alex
PS: Garantierte Rückmeldung
