Sub Protect1()
ReDim shArr(1 To ActiveWindow.SelectedSheets.Count)
i = 1
For Each sh In ActiveWindow.SelectedSheets
shArr(i) = sh.Name
i = i + 1
Next
Sheets(shArr(1)).Select
For i = 1 To UBound(shArr)
On Error Resume Next
Sheets(shArr(i)).Protect Password:=""
Next i
Sheets(shArr).Select
End Sub
Copyright©1996-2021,Tapuz Media Ltd. Forum software by XenForo® © 2010-2020 XenForo Ltd.