View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz JLGWhiz is offline
external usenet poster
 
Posts: 3,986
Default Getting unexpected error message

If the workbook was password protected when it was opened, and you did
nothing to remove that protection, why would you need to add the protection a
second time, especially when you don't want to save the modifications at that
point anyhow? Or am I reading this code wrong.

"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.