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