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
"
Bookmarks