VBA needed for hiding rows

[LsuMustang]

Good afternoon. On my password protected worksheet (NOx ppm), i am wanting to hide rows 38, 40, 52, and 57 based off the value in cell F40 on the same worksheet. The value in cell F40 is being pulled over from worksheet (Inputs). If the value in F40 is <=0, i want the rows 38, 40, 52, and 57 to hide (if >0, remain unhidden). Any help would be much appreciated. Thanks.

 

[arunsjain]

Hi,

Try following simple code:

Sub Hide_Rows()
    
    If Sheets("Sheet1").Range("F40") <= 40 Then
    
    Range("A38,A40,A52,A57").EntireRow.Hidden = True
    
    Else
    
    Range("A38,A40,A52,A57").EntireRow.Hidden = False
    
    End If
    
End Sub

Cheers!!

 

[LsuMustang]

Thanks for the feedback, but i am not having any luck with it working. Which tab should i put the code in? Would password protection cause it to not work?

Hi,

Try following simple code:

Sub Hide_Rows()
    
    If Sheets("Sheet1").Range("F40") <= 40 Then
    
    Range("A38,A40,A52,A57").EntireRow.Hidden = True
    
    Else
    
    Range("A38,A40,A52,A57").EntireRow.Hidden = False
    
    End If
    
End Sub

Cheers!!

 

[arunsjain]

Hi,

Replace ("Sheet1") with the name of worksheet where you want to hide rows.

If your worksheet is password protected then it will not work because owner of the worksheet has not allowed user to hide/unhide the rows.

If you are the owner of worksheet then we can add two more line code before (to unprotect the worksheet) and after of the code (to protect back the worksheet). Refer to the following code:

Sub Hide_Rows()
    
    Sheets("Sheet1").Unprotect Password:="123456" 'Key in your password to unprotect worksheet
    
    If Sheets("Sheet1").Range("F40") <= 40 Then
    
    Range("A38,A40,A52,A57").EntireRow.Hidden = True
    
    Else
    
    Range("A38,A40,A52,A57").EntireRow.Hidden = False
    
    End If
    
    Sheets("Sheet1").Protect Password:="123456" 'Key in your password to protect worksheet
    
End Sub

Replace password "123456" with your own password before running this code.

Hope it will help.

Cheers!!!

 

[arunsjain]

Hi,

Open excel file, press ALT + F11. Insert MODULE. Copy and paste code in that module.

Replace "Sheet1" with the name of worksheet in which you want to hide rows.

Cheers!