| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
hide unhide rows -Protected sheet
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 |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
hide unhide rows -Protected sheet
Include code in your macro to Unprotect the sheet, do your stuff, protect
the sheet. Record a macro to find the protect/unprotect code. HTH Otto "Wanna Learn" wrote in message ... 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 |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
hide unhide rows -Protected sheet
Private Sub CommandButton1_Click()
'hide rows Dim myRng As Range Set myRng = Me.Range("a32:a36") me.unprotect 'Password:="Tada" myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden) me.protect 'Password:="Tada" -- HTH... Jim Thomlinson "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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Enabling option „Format rows“ to hide/unhide rows using VBA-code? | Excel Discussion (Misc queries) | |||
| Using Hide, Unhide, and auto filter - select all on a protected sh | Excel Worksheet Functions | |||
| Hide Unhide Rows | Excel Discussion (Misc queries) | |||
| how to hide rows in a protected sheet | Excel Worksheet Functions | |||
| Why can't I show or hide rows in an outline on a protected sheet? | Excel Discussion (Misc queries) | |||
Linear Mode
