Save Active Workbook in Read Only

[jas21nz]

Hi There

I have created a macro that ends with activeworkbook.save

I was wondering if it is possible, when opened in read only mode, to ignore the save. This is to avoid the prompt asking the user to save when the macro is run.

Note that this macro is autorun when the user opens the file with the following:

Private Sub Workbook_Open()
Call Macro9
End Sub

Maybe it is a matter of changing this?

When I get this macro running it will be awesome! I will be able to track the user's username and time they opened the file without them knowing!

 

[BrianB]

Use
Application.DisplayAlerts = False before and
Application.DisplayAlerts = True after.

NB. Make sure that the =True is immediately after the save.
If the code is interrupted while = False the setting remains until changed with code. So no messages are given at all, even after closing the workbook.

 

[jas21nz]

Hi there

That works great.

However, the readonly text next to the file name diappears. Can this be put back on again?

What I am effectively doing is allowing it to open in read only mode, saving the user's username in a hidden sheet, and putting it back in read only mode.

NB: Even when the message diappears, if the user saves the file it wont actually save (which is OK)

 

[BrianB]

You need add code to save the file with the changes you make.