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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 06:58 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com