bei protect kommentar bearbeiten
27.06.2005 13:35:30
Eve
habe diese code für das sheet zu schützen.
wie muss ich machen, das ich trotzdem kann kommentare bearbeiten?
Sub Protect()
Sheets("Test").Activate
ActiveSheet.Protect _
DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
AllowFormattingCells:=False, _
AllowFormattingColumns:=False, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=False, _
AllowFiltering:=False, _
AllowUsingPivotTables:=False
End Sub
danke für eure hilfe.
regards eve
Anzeige