If Sheet1.Cells(7, 3) = "" Then
Sheets("Sheet1").Unprotect Password:="mypass"
Rows(90).Hidden = True
Sheets("Sheet1").Protect Password:="mypass"


Gord Dibben MS Excel MVP


On Tue, 10 Mar 2009 07:42:10 -0700, bryan
wrote:

Almost...
What I am using is :
If Sheet1.Cells(7, 3) = "" Then
Sheets("Sheet1").Unprotect
Rows(90).Hidden = True
Sheets("Sheet1").Protect
End If

How can I do this without having the user input the password?

Thanks,
Bryan
"JLGWhiz" wrote:

I believe this will work.

If Sheet1.Range("A90") = "" Then
Sheets("Sheet1").Unprotect
Rows(90).Hidden = True
Sheets("Sheet1").Protect
End If






"bryan" wrote in message
...
I'm a newbe with Excel vb. I've done a lot of vb with word but, have a
project with excel.
I have a spreadsheet which gets populated upon open like so:
Private Sub Workbook_Open()

Set objIRConn = CreateObject("irdesktopcontrol.irdesktopcontrolx")
objIRConn.Active = True

'Compnay
If Sheet1.Cells(4, 7) = "" Then
strCo = objIRConn.Filename
Sheet1.Cells(4, 7) = strCo
End If

What I want to do is hide row a90 if this is blank.
The Sheet is protected.

Thanks,
Bryan