w/book visible to a specific person

[tkraju via OfficeKB.com]

Private Sub UserForm_Activate()
Dim ws As Worksheet
Dim myWindow As Window
For Each myWindow In ThisWorkbook.Windows
myWindow.Visible = False
Next myWindow
End Sub
I used the above code inorder to prevent users to see w/book's database.They
can see only userform.
How to make the w/book visible to authorised person ? say to a system
administrator?
what changes need to add to the above code to do the task?

 

[Dave Peterson]

I think I would keep the windows visible, but I would hide the worksheet. Then
show the authorized people how to hide/unhide that sheet.