Invisible sheets

[emilh]

Hi.

I have received an excel file with vba and it has the code which prevents
the file to display most sheets. Is there any way (user level) other than
deleting or commenting that section of code to display the sheets?

Thank you.

 

[steonken]

hi Emil,
that depends on how the sheets are hidden (hidden or veryhidden).
if only hidden, try Format/Sheet/Unhide
if veryhidden, you can open the VBA editor and change the visible-
option of a sheet from veryhidden to visible.

bye
stefan

 

[emilh]

Thanks stefan.

it's 'xlSheetVeryHidden'

it seems that the only way is change the code each time i want to access the
data in those sheets?

 

[Norman Jones]

Hi Emil,

Try pating the following code into a
standard module:

'==========>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

Set WB = ActiveWorkbook
For Each SH In WB.Worksheets
SH.Visible = xlSheetVisible
Next SH
End Sub
'<<==========

Assign a shortcut key to the macro and
use the key combination to display all
sheets at any point

 

[Norman Jones]

Hi Emilh,

If , however, the workbook might contain
non-worksheet sheets (a chart, for example),
try the following version:

'==========>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Object

Set WB = ActiveWorkbook
For Each SH In WB.Sheets
SH.Visible = xlSheetVisible
Next SH
End Sub
'<<==========

 

[steonken]

hi Emil,
you can use code like Norman posted it.
if the sheets are hidden on opening the workbook (Workbook_Open
event), you can press the SHIFT key while opening (via file/open in
Excel).
Excel doesn´t start code in Workbook_Open then.

bye
stefan

 

[emilh]

Thank you very much guys. Shift didn't work. I'll try Norman's code
--
Emil

hi Emil,
you can use code like Norman posted it.
if the sheets are hidden on opening the workbook (Workbook_Open
event), you can press the SHIFT key while opening (via file/open in
Excel).
Excel doesn´t start code in Workbook_Open then.

bye
stefan