ChangeFileAccess
 

I have never tried it but try

'Application.DisplayAlerts = False
Thisworkbook.Saved = True
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
'Application.DisplayAlerts = True

If that doesn't do it then check what the default setting is on the dialog
and it is No, then try uncommenting the displayAlerts code.
--
Regards,
Tom Ogilvy

"Joo" wrote in message
...
I made a .xls file a readonly file by making it readonly from the
properties.
However, when I send this through e-mail and the user detach it from the
e-mail, it becomes writable.
So I put a code in Thisworkbook.Open

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly

If I do that, when I open up the file, it changes itself to readonly but
it
will ask you if I want save changes before swithcing file status. I don't
want the user to see this pop up window. Is there anyway to by pass this
or
even better way to make the file readonly when the user open it?

Thank you for your help in advance.
ps. I'm using Excel 2000