VBA Hide/Unhide Rows when Sheet protected

I get error with thise code end with:

"
Sub BACKGROUND_Click()
Const MyPassword As String = "password"
Dim ChangeProtection As Boolean

With Sheets("Sheet1")
If .ProtectContents = True Then
.Unprotect (MyPassword)
ChangeProtection = True
End If

If Rows("14:25").EntireRow.Hidden = False Then
Rows("14:25").EntireRow.Hidden = True
Else
Rows("14:25").EntireRow.Hidden = False
End If

If ChangeProtection = True Then
.Protect (MyPassword)
End With
End Sub
"