How do I make a workbook read only when opening but allow some people read write access without putting in a password.

[ghrek]

Hi

Didn't know if there was an easy way to make a workbook read only when opening but allow some people read write access without putting in a password. Seen where you can do options when saving but it asks for a password and I want work book to open as read/write automatically when a specific person opens it

Any suggestions?

 

[VBE313]

Please paste this in the ThisWorkbook Module

Sub Workbook_Open()
Select Case Application.UserName
    Case "G Hrek", "Second Name", "Third Name" 'add as many names here
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
    Case Else
End Select
End Sub

 

[Joe4]

Of course, if they were to disable Macros when they open the workbook, that would totally bypass that procedure, rendering that totally ineffective.

What I have some people do is hide/password protect the data by default, and have the macro first unprotect it. So if they do not enable macros/VBA, they will not be able to see/do anything. So that would help prevent users from "gaming" the system by disabling macros/VBA.

 

[ghrek]

Many thanks people.