1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Private Sub Workbook_Open() With Sheet1 .Protect Password:="Secret", AllowFormattingCells:=True, UserInterfaceOnly:=True .EnableOutlining = True End With End Sub