Unprotect Sheets

VoG said:

Try like this

Code:

Sub ProtSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Protect Password:="abc"
Next ws
End Sub


Sub UnProtSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Unprotect Password:="abc"
Next ws
End Sub

Click to expand...

FinancialAnalystKid said:

I love this but can there be one thing added? Is there a way to manually select the sheets you want protected/unprotected and have those sheets protected/unprotected only?

This does all the sheets in the workbook. There are sheets that are hidden and visible that I don't want protected/unprotected, etc.

Click to expand...

Sub ProtSheets()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
    ws.Protect Password:="abc"
Next ws
End Sub

VoG said:

Yep, select the sheets first then try like this

Code:

Sub ProtSheets()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
    ws.Protect Password:="abc"
Next ws
End Sub

Click to expand...

drom said:

USE:

Code:

Sub ProtSheets()
Dim wSHT as Object
For Each wSHT In ActiveWindow.SelectedSheets
    wSHT .Protect Password:="abc"
Next wSHT 
End Sub

Code:

Sub UnProtSheets()
Dim wSHT as Object
For Each wSHT In ActiveWindow.SelectedSheets
    wSHT .Unprotect Password:="abc"
Next wSHT 
End Sub

Click to expand...

VoG said:

Not as easy as I thought

Try

Code:

Sub ProtSheets()
Dim ws As Worksheet
Dim SheetsIndex(1 To 100)
Dim i As Long, j As Long
For Each ws In ActiveWindow.SelectedSheets
    i = i + 1
    SheetsIndex(i) = ws.Index
Next ws
Sheets(SheetsIndex(1)).Select
For j = 1 To i
    Sheets(SheetsIndex(j)).Protect Password:="abc"
Next j
End Sub

Click to expand...