View Single Post
 
Old 04-16-2017, 11:49 AM
RaudelJr RaudelJr is offline Windows 10 Office 2013
Novice
 
Join Date: Apr 2017
Posts: 9
RaudelJr is on a distinguished road
Default

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?
Reply With Quote