Help creating macro to block save msgbox

[karkas]

Hello all,

I tried doing a search for this, and found some similar threads, but nothing exactly like I need.

I've created a spreadsheet which I allow others at my work to access as a readme only (they can modify data and print, but it only allows "save as"). So, I don't want it asking them when they try to close the workbook if they want to save. I just want it to close.

I guess it needs to be an auto-run when opened so it is transparent to them? I'm a macro/VBA n00b. Please be gentle!

Thanks

 

[Peter_SSs]

See if this is what you mean:

1. Remove the "Read Only" status of the file and open it.
2. Right click the Excel icon just to the left of the "File" menu and choose "View Code"
3. Paste the code below into the right hand pane, close the VB window and save the file.
4. Re-apply the "Read Only" status

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

 

[karkas]

Awesome! Thanks so much, that works perfectly!

Now I have just 2 more quick questions....

If I try to use this same macro for a word document do I need to change some of the wording?

Can a similar macro supress my "margins outside printable area" message box when I try to print that word document?

I know this is an excel forum not word, but I assume the coding is the same/similar.

Thanks again