Open a file as read only

[S Oberlander]

Is it possible to use the workbook open event to open a file as read only?

 

[Georgiboy]

Like the below:

Sub test()
    Dim fPath As String
    Dim wb As Workbook

    fPath = "C:\path\to\your\file.xlsx" ' Update with the actual file path
    Set wb = Workbooks.Open(Filename:=fPath, ReadOnly:=True)
    
    ' Perform operations on the read-only workbook if needed
    
    ' Close the workbook
    wb.Close False
End Sub

 

[S Oberlander]

No. I mean in here:

Private Sub Workbook_Open()
'if username is not x then open as read only
End Sub

 

[Georgiboy]

Would you not be better off putting a password on the file with an option to open read only for anyone without the password?

 

[Domenic]

Try...

Private Sub Workbook_Open()

    If Application.UserName <> "John Smith" Then 'change the user name accordingly
        ThisWorkbook.ChangeFileAccess xlReadOnly
    End If
    
End Sub

Hope this helps!

 

[Domenic]

Try...

Private Sub Workbook_Open()

    If Application.UserName <> "John Smith" Then 'change the user name accordingly
        ThisWorkbook.ChangeFileAccess xlReadOnly
    End If
   
End Sub

Hope this helps!

Note that VBA must be enabled in order for the event to occur. For this reason, you may want to adopt the suggestion offered by @Georgiboy instead.

 

[S Oberlander]

Would you not be better off putting a password on the file with an option to open read only for anyone without the password?

its an idea, but won't work in my situation