Skip Read Only MsgBox with Save As
 

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

Skip Read Only MsgBox with Save As
 

In the Thisworkbook module, make a Workbook_BeforeClose sub
and insert
If ThisWorkbook.ReadOnly Then Thisworkbook.saved=True
--
Regards

Jean-Yves Tfelt
Europe


"RyanH" wrote:

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

Skip Read Only MsgBox with Save As
 

Message still pops up. Any other ideas?

Thanks
Ryan

"Jean-Yves" wrote:

In the Thisworkbook module, make a Workbook_BeforeClose sub
and insert
If ThisWorkbook.ReadOnly Then Thisworkbook.saved=True
--
Regards

Jean-Yves Tfelt
Europe


"RyanH" wrote:

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

Skip Read Only MsgBox with Save As
 

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


RyanH wrote:

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

--

Dave Peterson

Skip Read Only MsgBox with Save As
 

So I guess there is not a way to skip the Save As Dialog box?

Ryan

"Dave Peterson" wrote:

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


RyanH wrote:

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

--

Dave Peterson

Skip Read Only MsgBox with Save As
 

You could use a macro.

RyanH wrote:

So I guess there is not a way to skip the Save As Dialog box?

Ryan

"Dave Peterson" wrote:

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


RyanH wrote:

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

--

Dave Peterson


--

Dave Peterson

Skip Read Only MsgBox with Save As
 

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)



"RyanH" wrote in message
...
So I guess there is not a way to skip the Save As Dialog box?

Ryan

"Dave Peterson" wrote:

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


RyanH wrote:

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

--

Dave Peterson