Open xlam file in read only mode if USERNAME does not match

[abc_xyz]

I have created an xlam file which is saved on the shared drive and a dozen of people use it now. However, I'm not able to save any update I make to any of my code as it opens the file in read only mode. Is there a way I could check for the USERNAME and if it does not match then open the xlam file in read only mode?
I did test the below code but it does not work.

Private Sub Workbook_Open()
    OpenInReadOnlyNew
End Sub


Sub OpenInReadOnlyNew()

   ' Replace "TargetUserName" with the username you want to match against
    Dim targetUserName As String
    targetUserName = "ABC123"  'in lower case
   
    ' Get the current username
    Dim currentUserName As String
    currentUserName = Environ("USERNAME")
   
    ' Check if the current user name matches the target user name
    If LCase(currentUserName) <> targetUserName Then
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
        'MsgBox ("Opened in read only mode")
    End If
   
End Sub

 

[RoryA]

It would be ThisWorkbook not ActiveWorkbook since an add-in is always hidden.

 

[abc_xyz]

T

It would be ThisWorkbook not ActiveWorkbook since an add-in is always hidden.

Tired, but does not work. Other users can still edit the add-in and save it. Unfortunately, I get a pop up that file file is opened in read only mode when I try to save it.

 

[abc_xyz]

Anyone?