hide unhide rows -Protected sheet
Hi,
include in your macro unprotect and protect
'To protect
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.Protect Password:="geo"
Next ws
'To unprotect
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.Unprotect Password:="geo"
Next ws
'
"Wanna Learn" wrote:
Hello I have a command button in a form
Private Sub CommandButton1_Click()
'hide rows
Dim myRng As Range
Set myRng = Me.Range("a32:a36")
myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)
but when I protect the form the button does not work. I also have the rows
and columns hidden
How can I correct this ?
thanks
End Sub
|