Issue with Macro since Office 365 upgrade

Hello! I have been dealing with this issue for some time now, hoping someone can help me out

I have a set of workbooks that I refresh monthly. I took this over from someone else, who wrote the blue VBA code below. I believe the purpose of it is to only allow certain users to open and save the workbook, while forcing others to access it in read-only mode. I never had an issue doing this until recently when we upgraded from Office 2016 to Office 365. Now whenever I open the workbook I get the following error message:

Run-time error '1004': Cannot access read-only document '[workbook url]'.

When I select "debug", it jumps to the "User = UserStatus(1, 1)" line, which makes me think that my username [format is: "Doe, John (J.)"] is not being recognized. However, I can't tell why this is suddenly happening or how to fix it. I've tried searching for this issue but I cannot figure it out, so any and all help is greatly appreciated!

Please Login or Register  to view this content.

You will need to find out what UserStaus is by stepping through the code using F8 while running the workbook in an Excel 2016 envirement.

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks

The proper syntax would be either Activeworkbook.UserStatus or ThisWorkbook.UserStatus.

The (1,1) refers to the name of the user(s). In my case it only returns 1 name as a string so I don't get the meaning of the following lines of the code.