sheet schützen mit vba
26.09.2005 11:35:27
Eve
kann mir wer sagen, ob es möglich ist,
diese code so zu ändern, damit ich
trotz schutz die zellen färben kann?
Sub Protect()
Sheets("sheet1").Activate
ActiveSheet.Protect "test", _
DrawingObjects:=False, _
Contents:=True, Scenarios:=True, _
AllowFormattingCells:=False, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=False, _
AllowFiltering:=False, _
AllowUsingPivotTables:=False
End Sub
viele dank für eure hilfe
regards eve
Anzeige