Choose from Hidden or Very Hidden (With Very Hidden, sheets cannot be
unhidden by Format, Sheets, Unhide, you must use the Visual Basic Editor)
Sub HideActiveSheet()
Dim myChoice as String
If ActiveWorkbook Is Nothing Then Exit
Sub
myChoice = MsgBox("Do you want the active sheet to be Very Hidden ? ",
vbQuestion + vbYesNoCancel)
Select Case myChoice
Case vbYes
ActiveSheet.Visible = xlSheetVeryHidden
Case vbNo
ActiveSheet.Visible = xlSheetHidden
Case vbCancel
Exit Sub
End Select
End Sub