is there any way so the sheets may be hidden for any unauthorized use and may only be viewable by authorized persons
Dim LastSheet as Worksheet
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim showSheet As Worksheet
If Sh.Name = "SecretSheet" Then
Application.EnableEvents = False
lastSheet.Activate
Set showSheet = IIf(Application.InputBox("What is the password", Type:=2) = "password", Sh, lastSheet)
showSheet.Activate
Application.EnableEvents = True
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set lastSheet = Sh
End Sub