Test User before saving a file.
 

What I want to do is put code in the ThisWorkbook...Before Save. My
ultimate goal is to test the user and not allow other users to save the file.
I need for others to view the file but I dont want them to be able to save
it. Also, I dont want to password the file because then I have to input a
password every time. Is there a way to in Before Save say something like:

ReturnNetworkName = Environ("UserName")
If ReturnNetworkName = "TheCorrectID" Then
...allow save
Else
MsgBox "You are not the authorized user to save this file."
Endif

Thank you for your help.

Steven

Test User before saving a file.
 

Before save has a cancel argument. Use the code you have and set the cancel
argument as is appropriate. You will probably want to use a function to
determine if the username is in your list of allowable user names...
--
HTH...

Jim Thomlinson


"Steven" wrote:

What I want to do is put code in the ThisWorkbook...Before Save. My
ultimate goal is to test the user and not allow other users to save the file.
I need for others to view the file but I dont want them to be able to save
it. Also, I dont want to password the file because then I have to input a
password every time. Is there a way to in Before Save say something like:

ReturnNetworkName = Environ("UserName")
If ReturnNetworkName = "TheCorrectID" Then
...allow save
Else
MsgBox "You are not the authorized user to save this file."
Endif

Thank you for your help.

Steven