block specific sheets

[Marco1975]

Hi, I would like to block 3 sheets specific , but the macro doesn't work ; surely there is a mistake , but I can't find it . Can anyone help me to modify this macro ? Thanks .

Sub block()


Dim wsh As Worksheet
Sheets(Array("foglio1", "foglio2", "foglio3")).Select
For Each wsh In ActiveWindow.SelectedSheets
   
  wsh.Protect Password:="pippo", _
  UserInterFaceOnly:=True
  EnableSelection = xlUnlockedCells
   
Next wsh
     
End Sub

 

[ThauThème]

Hi Marco,

I'm not sure but I think you can't protect with a sheet array. EnableSelection is not an argument of Protect method.
Try this way :

Public Sub Macro1()
Dim TF As Variant
Dim I as Byte

TF = Array("Foglio1", "Foglio2", "Foglio3")
For I = 0 To UBound(TF, 1)
    With Sheets(TF(I))
        .Protect Password:="pippo", UserInterFaceOnly:=True
        .EnableSelection = xlUnlockedCells
    End With
Next I
End Sub

 

[Marco1975]

As usual, thank you very much ThauThème. It works perfectly!!!