Arbeitsmappenschutz nach Zellwechsel
29.06.2005 10:46:23
Andre
ich habe folgendes Makro:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Exit Sub
End If
On Error Resume Next
If ActiveSheet.[a1] = "" Then
'Blattschutz
ActiveSheet.Protect "3"
Else
Exit Sub
End If
End Sub
damit wird nach jeden Zellsprung der Blattschutz aktiv.
Ich möchte gern, dass auch die Arbeitsmappe gleichzeitig geschützt wird. Habe folgendes probiert:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Exit Sub
End If
On Error Resume Next
If ActiveSheet.[a1] = "" Then
ActiveSheet.Protect "3"
ActiveWorkbook.Protect "3"
Else
Exit Sub
End If
End Sub
damit bekomme ich aber keinen Arbeitsmappenschutz gesetzt.
Ich hoffe, mir jemand helfen.
Danke im voraus!