Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2

Isn't a hidden sheet already not visible?

You could go into the VBE and change its .visible property to xlsheetveryhidden.

Did you mean that?

This would make it so that the sheet name didn't show up under
Format|Sheet|Unhide

That's about the only difference.

LLee2 wrote:

Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2

--

Dave Peterson

On Apr 6, 12:16 pm, "LLee2" wrote:
Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2
I think you need VBA...

Make a new workbook with 2 or more sheets...
Key Alt-F11
Insert a Module
Copy the following code there... and hit F5

Sub HideOne()
'run this on a new workbook with 2 sheets
this1 = Sheets(1).Name
Sheets(1).Tab.ColorIndex = 3
Sheets(2).Activate

resp = MsgBox("Hide First Sheet?", vbOKOnly)
Sheets(this1).Visible = xlSheetHidden

resp = MsgBox("Hide it TOTALLY?" & Chr(10) & "Not visible under Format-
Sheet-Unhide", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVeryHidden
End If

resp = MsgBox("Bring it back?", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVisible
End If

End Sub

It could also be done w/o VBA. Click View/Toolbars/Control Toolbox. Click
the properties button and change the visible property there.

Of course, if changed to very hidden - I believe the OP will need to use VBA
to unhide the sheet.


"daregreatly" wrote:

On Apr 6, 12:16 pm, "LLee2" wrote:
Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2
I think you need VBA...

Make a new workbook with 2 or more sheets...
Key Alt-F11
Insert a Module
Copy the following code there... and hit F5

Sub HideOne()
'run this on a new workbook with 2 sheets
this1 = Sheets(1).Name
Sheets(1).Tab.ColorIndex = 3
Sheets(2).Activate

resp = MsgBox("Hide First Sheet?", vbOKOnly)
Sheets(this1).Visible = xlSheetHidden

resp = MsgBox("Hide it TOTALLY?" & Chr(10) & "Not visible under Format-
Sheet-Unhide", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVeryHidden
End If

resp = MsgBox("Bring it back?", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVisible
End If

End Sub

Or go through the VBE and change the properties in the property window (with
that worksheet object selected in the project explorer window).

JMB wrote:

It could also be done w/o VBA. Click View/Toolbars/Control Toolbox. Click
the properties button and change the visible property there.

Of course, if changed to very hidden - I believe the OP will need to use VBA
to unhide the sheet.

"daregreatly" wrote:

On Apr 6, 12:16 pm, "LLee2" wrote:
Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2
I think you need VBA...

Make a new workbook with 2 or more sheets...
Key Alt-F11
Insert a Module
Copy the following code there... and hit F5

Sub HideOne()
'run this on a new workbook with 2 sheets
this1 = Sheets(1).Name
Sheets(1).Tab.ColorIndex = 3
Sheets(2).Activate

resp = MsgBox("Hide First Sheet?", vbOKOnly)
Sheets(this1).Visible = xlSheetHidden

resp = MsgBox("Hide it TOTALLY?" & Chr(10) & "Not visible under Format-
Sheet-Unhide", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVeryHidden
End If

resp = MsgBox("Bring it back?", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVisible
End If

End Sub



--

Dave Peterson

I thought that was what you were getting at w/your first post.

"Dave Peterson" wrote:

Or go through the VBE and change the properties in the property window (with
that worksheet object selected in the project explorer window).

JMB wrote:

It could also be done w/o VBA. Click View/Toolbars/Control Toolbox. Click
the properties button and change the visible property there.

Of course, if changed to very hidden - I believe the OP will need to use VBA
to unhide the sheet.

"daregreatly" wrote:

On Apr 6, 12:16 pm, "LLee2" wrote:
Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2
I think you need VBA...

Make a new workbook with 2 or more sheets...
Key Alt-F11
Insert a Module
Copy the following code there... and hit F5

Sub HideOne()
'run this on a new workbook with 2 sheets
this1 = Sheets(1).Name
Sheets(1).Tab.ColorIndex = 3
Sheets(2).Activate

resp = MsgBox("Hide First Sheet?", vbOKOnly)
Sheets(this1).Visible = xlSheetHidden

resp = MsgBox("Hide it TOTALLY?" & Chr(10) & "Not visible under Format-
Sheet-Unhide", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVeryHidden
End If

resp = MsgBox("Bring it back?", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVisible
End If

End Sub



--

Dave Peterson

It was.

I was trying to emphasize that you don't actually need VBA to unhide a very
hidden sheet. (I don't count going to the VBE as using code.)

JMB wrote:

I thought that was what you were getting at w/your first post.

"Dave Peterson" wrote:

Or go through the VBE and change the properties in the property window (with
that worksheet object selected in the project explorer window).

JMB wrote:

It could also be done w/o VBA. Click View/Toolbars/Control Toolbox. Click
the properties button and change the visible property there.

Of course, if changed to very hidden - I believe the OP will need to use VBA
to unhide the sheet.

"daregreatly" wrote:

On Apr 6, 12:16 pm, "LLee2" wrote:
Does anyone know how to make a hidden sheet invisible?

Thanks,
llee2
I think you need VBA...

Make a new workbook with 2 or more sheets...
Key Alt-F11
Insert a Module
Copy the following code there... and hit F5

Sub HideOne()
'run this on a new workbook with 2 sheets
this1 = Sheets(1).Name
Sheets(1).Tab.ColorIndex = 3
Sheets(2).Activate

resp = MsgBox("Hide First Sheet?", vbOKOnly)
Sheets(this1).Visible = xlSheetHidden

resp = MsgBox("Hide it TOTALLY?" & Chr(10) & "Not visible under Format-
Sheet-Unhide", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVeryHidden
End If

resp = MsgBox("Bring it back?", vbYesNo)
If resp = vbYes Then
Sheets(this1).Visible = xlSheetVisible
End If

End Sub



--

Dave Peterson


--

Dave Peterson