| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
hiding a row
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
hiding a row
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
hiding a row
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
hiding a row
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| hiding | Excel Discussion (Misc queries) | |||
| Hiding a button when hiding rows | Excel Discussion (Misc queries) | |||
| Hiding #N/A | Excel Discussion (Misc queries) | |||
| Hiding Column Also hiding text | Excel Programming | |||
| hiding #N/A | Excel Programming | |||
Linear Mode
