I've tested code such as:
Private Sub Workbook_Open()
For Each ws In Sheets
With ws
.Unprotect Password:="Protect"
.Protect Password:="Protect", UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
.EnableOutlining = True
End With
Next ws
End Sub
Where I change Trues to False, but the only one that works is
Content:=False
But that defeats the purpose since all content is editable.
Any ideas?
|