Hello All, would greatly appreciate some assistance with merging the following sub procderues into just one. Thanks!


Private Sub Workbook_Open1()
With Worksheets Sheet1
.Unprotect Password:="password"
.Protect Password:="password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub


Private Sub Workbook_Open2()
With Worksheets Sheet2
.Unprotect Password:="password"
.Protect Password:="password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

Nevermind, was able to figure out.

Private Sub Workbook_Open
With Worksheets Sheet1
.Unprotect Password:="password"
.Protect Password:="password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
With Worksheets Sheet2
.Unprotect Password:="password"
.Protect Password:="password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

Also dropped it into ThisWorkbook so it automatically runs upon open.