Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hide Show Shts
SIGE,
Maybe... At least one worksheet must be visible in an Excel workbook at all times. Try making Sheet5.Visible then running the loop. Jim Cone San Francisco, USA "SIGE" wrote in message om... Hi There, I've 3 sheets: sheet1: to view when pwd OK sheet5: INFOsheet, to show when macros disabled sheet6: Sheet with PARAMETERS *Sheet 6 has to be remain hidden at all times...! But I run into an error on the Sub HideAll()at line: '@@@@**** wsSheet.Visible = xlSheetVeryHidden '@@@@@***** *I still see Sheet5 when running ShowAll ()! Can anyone see what is wrong???? On Open workbook I run sub ShowAll() On Close WBK i run Sub HideAll() Sub HideAll() Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName = "Sheet5" Then wsSheet.Visible = xlSheetVisible Else '@@@@**** wsSheet.Visible = xlSheetVeryHidden '@@@@@***** End If Next wsSheet Application.ScreenUpdating = True End Sub Sub ShowAll() bIsClosing = False Application.ScreenUpdating = False For Each wsSheet In ThisWorkbook.Worksheets If wsSheet.CodeName < "Sheet5" Or wsSheet.CodeName < "Sheet6" Then wsSheet.Visible = xlSheetVisible End If Next wsSheet Application.ScreenUpdating = True Application.ScreenUpdating = False Sheet5.Visible = xlSheetVeryHidden Sheet6.Visible = xlSheetVeryHidden Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VLOOKUP using the act shts tab name as a reference for the table_a | Excel Discussion (Misc queries) | |||
How to Compare Rows on 2 shts .... | Excel Discussion (Misc queries) | |||
newbie ?: set variables, different shts, equal to each other | Excel Programming | |||
Summary...Number of shts varies | Excel Programming | |||
Copying shts from one wbk to another | Excel Programming |