Cancel Save or Save as option

[zoejenka]

All,

I have a file that i want several people to have read only access to. I can make the file read only by putting a password onto the file. But ideally I would like to stop anyone being able to save the file as another name on their own desktop. This is to ensure that they will always be looking at the up to date version of the file.

Is there anyway I can do this?

Cheers,
Zoe.

 

[Oaktree]

In the ThisWorkbook module, put something like:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Cancel = True 
Msgbox "You are not allowed to save this workbook."
End Sub

 

[zoejenka]

Thank you - It works perfectly.

 

[zoejenka]

Hi,

Just one query - Which I'm struggling with..

I am unable to save the code in the workbook - So when I reopen the workbook the the code is not there - Do you know a way round this?

Zoe.

 

[erik.van.geit]

Hi,

set a breakpoint in the code before saving (click in the margin to the left of the line cancel = true)

then skip the line "cancel = true" (get the yellow handle and move to next line) and press function key F5
or
save again while the line is still highlighted (breakmode)

kind regards,
Erik

 

[zoejenka]

Thank you.

 

[zoejenka]

I don't suppose anyone knows what the code would be in Word??

 

[erik.van.geit]

not the slightest idea
no beforesave-event there

(posted to give you a bump )

 

[zoejenka]

Worth a try - Thank you.

 

[zoejenka]

Thought I'd just try once more and see if anyone can help me out on this.