open the file read only all the time

[baha17]

Hi All,
I have a workbook which triggers vba code and records all data in access database. Now what I want is to open the file as read only when the username is:"pit".I do not have a hope for that but any chance that some one has a trick for that.For some reason I do not want to share workbook.

Thank you in advance for your help

Baha

 

[jkpieterse]

Is this just for one user, or do you want it opened read-only for everyone but e.g. people knowing a password? If the latter, Select File, save-as, click the Tools dropdown and select "General Options"and set a password for modification.

 

[baha17]

Hi jkpierterse,

Thank you verymuch for your input.Is there any other way rather than password protection?It can be read only for one user or read only all user except one user.
Thank you for your help

Baha

 

[jkpieterse]

In Thisworkbook module, WOrkbook_Open event:

Private Sub Workbook_Open()
    If Environ("username") = "pit" Then
        Application.DisplayAlerts = False
        ThisWorkbook.ChangeFileAccess xlReadOnly
    End If
End Sub

 

[baha17]

Hi Jan,

Thank you very much for the help.I can only test that tomorrow. But just wanna ask, does that mean with that code, more than one user can open the file without displaying any message and file would be read only. If like that "pit" users cannot save the file right?
Baha

 

[jkpieterse]

All users will open the file with read-write access, Except "pit".
However, if the file is already opened by someone else than pit, the other users will open the WB read-only of course.

 

[baha17]

Hi Jan,
Thank you very much it works perfect.
Have a good day
Baha