Unfortunately, I'll have to wait until I get home to look at it. My Work blocked that page.

However, using the code equivalent of JKP's solution I was able to get it to work (on 2007, haven't tried 2013):

Workbooks("test.xla").SaveAs "c:\test.xla", AccessMode:=xlShared