Untitled

Private Sub UserForm_Activate()

Dim sh As Worksheet
Dim wsh As Worksheet

Set sh = ThisWorkbook.Sheets("USER MANAGEMENT")

ThisWorkbook.Unprotect 1234

sh.Visible = xlSheetVisible

For Each wsh In ThisWorkbook.Worksheets
    If wsh.Name <> "USER MANAGEMENT" Then
    wsh.Visible = xlSheetHidden
    End If
Next wsh

sh.Unprotect 1234
sh.Cells.EntireColumn.Hidden = False
sh.Cells.EntireRow.Hidden = False
sh.Protect 1234

ThisWorkbook.Protect 1234

ActiveWindow.DisplayWorkbookTabs = False



End Sub