Snasui Excel Forum

Code: Select all

Sub ProtectAllSheets()
   For Each Sht In ThisWorkbook.Worksheets
       Sht.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlNoRestrictions
   Next
    Worksheets("Sheet4").Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlUnlockedCells  
End Sub

Code: Select all

Sub ProtectAllsheets()
    Dim sht As Worksheet
    For Each sht In Worksheets
        Select Case sht.Name
            Case "Sheet1", "Sheet2", "Sheet3", "Sheet5"
                sht.Protect Password:="123", DrawingObjects:=True, _
                   Contents:=True, Scenarios:=True
                sht.EnableSelection = xlNoRestrictions
            Case "Sheet4"
                sht.Protect Password:="123", DrawingObjects:=True, _
                   Contents:=True, Scenarios:=True
                sht.EnableSelection = xlNoSelection
        End Select
    Next sht
End Sub