Hide Report Sheet

You can set password to see the sheet. Means, when any user will click on the report sheet then Excel will prompt for password. If users do not know the password, they can't see sheet contents. Use the following codes in SheetActivate event. See the attached file. To prevent viewing password from VBA window, you must lock VBA project.

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim MySheetName As String
    
    MySheetName = "Report" 'The sheed which I want to hide.
    
    If Application.ActiveSheet.Name = MySheetName Then
        Application.EnableEvents = False
        Application.ActiveSheet.Visible = False
        response = Application.InputBox("Password", "Enter Password", "", Type:=2)
    
            If response = "123456" Then 'Unhide Password.
                Application.Sheets(MySheetName).Visible = True
                Application.Sheets(MySheetName).Select
            End If
    End If
    
    Application.Sheets(MySheetName).Visible = True
    Application.EnableEvents = True
    End Sub