Macro issues when I protect my worksheet

[ExcelNovice]

I'm using the code below, but keep getting the following error:
Run-time error '1004'

Private Sub CommandButton31_Click()

ActiveSheet.Unprotect Password:="password1"

Range("AA57:AA57").Select
Range("AA57:AA57").Activate
Selection.RowHeight = 12.75
Range("AA58:AA58").Select
Range("AA58:AA58").Activate
Selection.RowHeight = 12.75
Range("AA59:AA59").Select
Range("AA59:AA59").Activate
Selection.RowHeight = 13.5

ActiveSheet.Protect Password:="password1"

End sub

Any idea on what I'm doing wrong and how to correct the problem?

 

[Norie]

Does this work?

Private Sub CommandButton31_Click()

    With ActiveSheet
        .Unprotect Password:="password1"
        .Range("AA57:AA57").RowHeight = 12.75
        .Range("AA58:AA58").RowHeight = 12.75
        .Range("AA59:AA59").RowHeight = 13.5
        .Protect Password:="password1"
    End With

End Sub

 

[sericom]

Maybe the password is incorrect, try and manually unprotect the sheet with password1

 

[ExcelNovice]

Thanks Norie, it works.