PDA

View Full Version : Solved: Excel2003 - Hide Col2 in Sheet1 & Sheet2 Very Hidden, if Workbook Opened as Read Only



frank_m
11-27-2010, 06:58 PM
In the ThisWorkbook Open Event, how might I Hide Colum2 on Sheet1 and set Sheet2 to very hidden if the Workbook is Opened as Read Only

Thanks in advance for your time

mojo249
11-27-2010, 10:20 PM
Add the following code:


If ThisWorkbook.ReadOnly = True Then
Sheets("Sheet1").Select
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
Sheets("Sheet2").Visible = xlVeryHidden
End If

Bob Phillips
11-28-2010, 03:04 AM
No need to select



If ThisWorkbook.ReadOnly Then

Worksheets("Sheet1").Columns("B:B").Hidden = True
Worksheets("Sheet2").Visible = xlVeryHidden
End If

frank_m
11-28-2010, 04:25 AM
Thanks xld - that is spot on, just what I was after :thumb

Thanks for your time also mojo