Unprotect method of Worsheet class failed; Run-time error '1004':

Good afternoon,

I was looking for clarification on an error message from what I had read on the forum. For Excel 2007, it cannot be done, but unsure if any changes for 2010 allow for it.

I am using Excel 2010, running vba on a protected sheet. I am attempting to “Share Workbook” on a shared network. After sharing, as soon as I click on my command button, it generates the error:
Unprotect method of Worsheet class failed; Run-time error '1004':

Has anyone found a work around for this?

Here is one of my buttons vba:

Dim wsWorksheet                 As Worksheet
ActiveSheet.Unprotect ""
ActiveSheet.Range("$A$1:$A$501").AutoFilter Field:=1
ActiveSheet.Protect "", True, False
For Each wsWorksheet In ActiveWorkbook.Worksheets
        wsWorksheet.Protect Password:=""
    Next
End Sub