Create Macro that asks for read only or read-write access

Hi everyone,

I'm trying to create a macro that after opening an Excel doc, a popup appears that asks the user if he wants "Read Only" or "Read-Write" access. The user should be able to click a "Read Only" or a "Read-write" button, which will then determine their access to the doc. How do I go about coding this?

Thanks,
Evan

Hi Evan,

You could use something like the below in the workbook module for a quick and dirty approach.

Please Login or Register  to view this content.

If you actually want buttons that say 'Read Only' / 'Read Write' then you'll be better off designing a simple userform that is opened in the workbook open event and similar code is run depending on which button is clicked.

Hope that helps. Feel free to ask questions if you need more help.

BSB

So right now my doc is in Read Only mode, and I used your code to change it to Read-Write if the user hits Yes, but when I hit Yes I get a prompt saying to save as a different file. How should I fix that so I dont get a prompt to save as a different file?

Maybe this?

Please Login or Register  to view this content.

BSB

It's still asking me to save as a different file. I've been looking up this problem, and I've seen some suggestions to incorporate Workbook.Saved=True somewhere in the code. After which line of code should I put this expression in?

I put ThisWorkbook.Saved=True near the beginning, and the workbook did change to Read Write after I ran the code, but the new code changed back to the old code I had when posting my question. Kind of solved?!?!