Protect / Unprotect All Worksheets

[jammoca]

Currently, I'm using the following code on an Active X command button to unprotect all worksheets within my workbook ...

Sub UnProtectSheets()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Sheets
       ws.Unprotect Password:="ana"
  Next ws
End Sub

however, it doesn't seem to be working.

Have I missed something obvious ?

Chris

 

[Dryver14]

Works fine for me, must be the Password which is wrong