Auto hide/unhide protected rows in excell

[Mngazija]

Hi guys, I am new in VBA ,currently I am working in the excel which has sheets linked to each other with the formulas, for example in sheet 1 have the column for names, those names are linked in sheet 2 however sheet 2 is protected, is there a code for auto hide/unhide sheet 2 if the name either entered or removed, currently I am using the following code in sheet 2 but in the unprotected mode however the code goes very slow to hide or unhide the rows:
Private Sub Worksheet_Activate()
Dim r As Long
Dim m As Long
Application.ScreenUpdating = False
Me.Range("E:E").EntireRow.Hidden = False
m = Range("E" & Me.Rows.Count).End(xlUp).Row
For r = 6 To m
If Range("E" & r).Value = "" Or Range("E" & r).Value = "0" Then
Range("E" & r).EntireRow.Hidden = True
End If
Next r
Application.ScreenUpdating = True
End Sub

I will appreciate to know what should I do to make the code run fast, I have 1000 rows, also if I can get the code to add in sheet 2 in order to work in the protected sheet will be wonderful.
Thanks, Really appreciate your help.
Rasul

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshots (not a pictures) of both sheets. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).