Solved: Need to know how to Unprotect all sheets at once with a macro

Need to know how to Unprotect all sheets at once with a macro and then later go back and protect all sheets at once.

[vba]Sub ProtectAllSheets()
Dim s As Worksheet

For Each s In ThisWorkbook.Sheets
s.Select
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
s.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next

End Sub

Sub UnProtectAllSheets()
Dim s As Worksheet

For Each s In ThisWorkbook.Sheets
s.Select
s.UnProtect Password:="test"
Next

End Sub [/vba]

OH! There's a KB entry here:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=142

Just search the KB first, Erays. :)

No need to select anything.
[vba]
Sub Unprotect()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Unprotect Password:="MyPassword"
Next

End Sub

Sub Protect()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Protect Password:="MyPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next

End Sub[/vba]

Quote:

---

How would i just unlock the sheet and then lock just the sheet back not the cells

---

My code does not change the cells from being locked or not.

Quote:

---

I had to make a change

---

[VBA] Sub Unprotect()

Dim ws As Worksheet

For Each ws In Worksheets
' Changed Worksheet.Unprotect Password:="MyPassword"
ws.Unprotect Password:="MyPassword"
Next

End Sub

Sub Protect()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Protect Password:="MyPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next

End Sub[/VBA]

Ok, I mistyped that line in my other reply. Fixed now.