Skip Read Only MsgBox with Save As

  • Thread starter Thread starter RyanH
  • Start date Start date
R

RyanH

I have a workbook that is protected, which forces users to open it in Read
Only if they do not have the password. When the user clicks on Save a
Message Box pops up saying "Workbook is Read Only. To Save a copy, Click OK,
then give the workbook a new name in the Save As Dialog Box." Is there a way
to skip the message box and go straight to the Save As Dialog Box?

Thanks in Advance,
Ryan
 
In the Thisworkbook module, make a Workbook_BeforeClose sub
and insert
If ThisWorkbook.ReadOnly Then Thisworkbook.saved=True
 
You could tell the users to stop using that button (or file|SaveAs, or ctrl-s)
and give them a way to run a macro that avoids that prompt.

Option Explicit
Sub Testme01()
Application.Dialogs(xlDialogSaveAs).Show
End Sub
 
I don't think so, it seems to kick in before any event fires.

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
Back
Top