Thanks so much that is exactly what I wanted to do

"Eduardo" wrote:

Hi,

what you can do is to hide the sheets and then in order to unhide them each
user will have to enter a password, you will have to copy the code below in
each worksheet before hidding it, and will have to change the password for
each one. To copy the password, right click on the mouse in the tab name,
view code and enter this code. In the example below the password is Manager
and is located in three places, ensure to change it for yours

private Sub Worksheet_Activate()
Dim strPassword As String
On Error Resume Next
Me.Protect Password:="MANAGER"
Me.Columns.Hidden = True

strPassword = InputBox("Enter password to access DATA sheet")

If strPassword = "" Then
ActiveSheet.Visible = False
Worksheets("Menu").Select
Exit Sub
ElseIf strPassword < "MANAGER" Then
MsgBox "Password Incorrect "
ActiveSheet.Visible = False
Worksheets("Menu").Select
Exit Sub
Else
Me.Unprotect Password:="MANAGER"
Me.Columns.Hidden = False
End If
Range("a1").Select

On Error GoTo 0
End Sub

Private Sub Worksheet_Deactivate()
On Error Resume Next
Me.Columns.Hidden = True
On Error GoTo 0
End Sub


"George" wrote:

This is what I want to do I have a workbook with multiple sheets in it 15 to
20 with a master sheet to add up all the data The workbook needs to be viewed
by several people but I only want each person seeing the data for their page.
Is there a way to blank out the worksheet then be able to see it if you have
the password. I do realize that you can just have multiple workbooks with
the workbooks linked but they are in buildings around the country and you
can't link workbooks with office live workspace.