Macro to hide rows

[volkl77]

I am still in need of some help with a macro. I need a macro that will do the following.

-unprotect the sheet (can i have a password assigned and still do this, that would be ideal)
-hide all rows in the range $A$22:$I$171 where column "E" is empty
-re-protect the sheet (with password if possible)

any help with this would be very much appreciated. Thanks!!

 

[marreco]

Look this




If Rows("1:10").EntireRow.Hidden = True Then
Rows("1:10").EntireRow.Hidden = False
ElseIf Rows("1:10").EntireRow.Hidden = False Then
Rows("1:10").EntireRow.Hidden = True
End If

End Sub

 

[marreco]

Other exemple follows..

Sub HideRow()
Plan1.Rows("1").Hidden = True
Plan1.Rows("3").Hidden = True
End Sub

 

[Smitty]

I'd record a macro unprotecting the sheet, apply Auto Filter on column E for blanks, then reprotect.

The recorder won't trap the password, but you can easily add it:

ActiveSheet.Unprotect "PasswordHere"
' Your code
ActiveSheet.Protect "PasswordHere"

HTH

 

[volkl77]

Thanks, works great!