Private Sub Workbook_V1_Open()
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets(1)
Wks.Protect Password:="Engineer", UserInterFaceOnly:=True
Next
End Sub
Private Sub protect_sheet()
ActiveSheet.Protect Password:="Engineer", Drawing Objects:=True...