If you don't save changes, what is the point of making a change in the status
of the workbook.

All messages are not suppressed by Application.DisplayAlerts

--
Regards,
Tom Ogilvy




"Bob" wrote:

Near the end of my procedure (which is located in PERSONAL.XLS) , I have the
following lines of code:

Application.DisplayAlerts = False
ActiveWorkbook.ProtectSharing SharingPassword:="password"
ActiveWorkbooks.Close SaveChanges:=False
Application.DisplayAlerts = True

(Please note that my procedure starts out by opening a workbook located on a
network shared drive.)

When Excel executes the 3rd line of code above, my procedure stops and I get
the following error message:

Run-time error.
This workbook contains macros recorded or written in Visual Basic.
Macros cannot be viewed or edited in shared workbooks.

Given that Application.DisplayAlerts has been set to False, I don't
understand why the error message is appearing.

Does anyone have any ideas on how I can modify the lines above to prevent
the error message from appearing? Thanks.