Hello
Basic and simple question, but have forgotten.
How do you hide any open sheets, when opening a workbook?
Thanks
Hello
Basic and simple question, but have forgotten.
How do you hide any open sheets, when opening a workbook?
Thanks
Hello tcbootneck,
Add the following code to your Workbook's Open event procedure.
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets
If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
Next Wks
This will check each Worksheet and test if it is visible. If it is visible then the macro will hide the Worksheet. Your final code result will look like this...
Private Sub Workbook_Open()
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets
If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
Next Wks
End Sub
Sincerely,
Leith Ross
Hi Leith
Just the job. Thanks
"Leith Ross" wrote:
>
> Hello tcbootneck,
>
> Add the following code to your Workbook's Open event procedure.
>
> Dim Wks As Worksheet
> For Each Wks In ThisWorkbook.Worksheets
> If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
> Next Wks
>
> This will check each Worksheet and test if it is visible. If it is
> visible then the macro will hide the Worksheet. Your final code result
> will look like this...
>
> Private Sub Workbook_Open()
> Dim Wks As Worksheet
> For Each Wks In ThisWorkbook.Worksheets
> If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
> Next Wks
> End Sub
>
> Sincerely,
> Leith Ross
>
>
> --
> Leith Ross
> ------------------------------------------------------------------------
> Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
> View this thread: http://www.excelforum.com/showthread...hreadid=553001
>
>
Don't you get an error or am I missing something? I don't think you can hide
all worksheets at the same time. I assumed Leith had an oversight. Thought it
should be something like:
Private Sub Workbook_Open()
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets
If Wks.Name <> "Sheet1" Then
If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
End If
Next Wks
End Sub
Greg
"tcbootneck" wrote:
> Hi Leith
>
> Just the job. Thanks
>
> "Leith Ross" wrote:
>
> >
> > Hello tcbootneck,
> >
> > Add the following code to your Workbook's Open event procedure.
> >
> > Dim Wks As Worksheet
> > For Each Wks In ThisWorkbook.Worksheets
> > If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
> > Next Wks
> >
> > This will check each Worksheet and test if it is visible. If it is
> > visible then the macro will hide the Worksheet. Your final code result
> > will look like this...
> >
> > Private Sub Workbook_Open()
> > Dim Wks As Worksheet
> > For Each Wks In ThisWorkbook.Worksheets
> > If Wks.Visible = xlSheetVisible Then Wks.Visible = xlSheetHidden
> > Next Wks
> > End Sub
> >
> > Sincerely,
> > Leith Ross
> >
> >
> > --
> > Leith Ross
> > ------------------------------------------------------------------------
> > Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
> > View this thread: http://www.excelforum.com/showthread...hreadid=553001
> >
> >
A workbooks MUST have one visible sheet, either a Sheet or a Worksheet.
I take that as a confirmation. Perhaps tcbootneck has a chart sheet and so
didn't get an error?
Greg
"AA2e72E" wrote:
>
> A workbooks MUST have one visible sheet, either a Sheet or a Worksheet.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks