| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stuck myself - can't bring back very hidden
That did it! Thank you!
Ed "Abdul Salam" wrote in message ... Try something like this: choice = MsgBox("Click to View Data", vbOKOnly) If choice = vbOK Then Sheets("Sheet1").Visible = True Sheets("Sheet1").Activate Sheets("Sheet3").Visible = False Abdul Salam -----Original Message----- I have the following code: Private Sub Workbook_Open() If ActiveWorkbook.ReadOnly = False Then ThisWorkbook.Saved = True ThisWorkbook.ChangeFileAccess xlReadOnly End If Worksheets("Sheet1").Visible = xlVeryHidden Worksheets("TIRs").Visible = xlVeryHidden If MsgBox("Click to View Data", vbOKOnly) = vbYes Then Sheets("Sheet1").Visible = True Sheets("Sheet1").Activate Sheets("Sheet3").Visible = False End If End Sub The message box pops up, but nothing happens when I click the Yes button on the message box. What did I do wrong? Ed . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Bring Back DBF! The GIS Industry uses it! | Excel Discussion (Misc queries) | |||
| Bring Back Qualified Sum from another WB | Excel Worksheet Functions | |||
| Bring back the old help format! | Excel Worksheet Functions | |||
| Stuck myself - can't bring back very hidden | Excel Programming | |||
| Stuck myself - can't bring back "VeryHidden" | Excel Programming | |||
![Ed[_9_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
