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

© Copyright All Rights Reserved.