Password protect to allow visibility to individual sheets by user

[Tupelo1984]

Hi All,
I wish to protect different sheets in one workbook with a password so they would become only visible and editable to the users who have been provided the PW.

E.g. User Jim has his PW and when navigating to sheet/tab Jim he would get populated a password prompt to be able to see any data or edit data in this sheet. Same for other users with their unique tab.

Is this possible?

Thanks!
Tupelo

 

[Jamie McMillan]

Hello Tupelo,

This is a round about way, but it will work for you.

Insert a rectangle to cover all the visible data. I renamed it 'cover'.

Assign the following macro and protect the sheet.

Then just copy the rectangle, with the macro to every other tab.

If it is protected they get a message box, if not it moves the shape away. (You can change Cells(5, 15) to Cells(500, 600)

Sub CoverUp()
With ActiveSheet
  If .ProtectContents Or .ProtectDrawingObjects Or .ProtectScenarios Then
    MsgBox "This worksheet is password protected"
  Else
       ActiveSheet.Shapes.Range(Array("Cover")).Left = Cells(5, 15).Left
  End If
End With
End Sub

Jamie