Workbook.SaveCopyAs方法（Excel）返回运行时错误“1004”

Question

是Office 2016 Mac OS版本问题。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim FilenameStr As String
    FilenameStr = Sheet1.Range("F11").Value
    FilenameStr = ActiveWorkbook.Path & "/" & FilenameStr & "_" & Sheet1.Range("I5").Value

或者这是前一行的替代

FilenameStr = FilenameStr & "_" & Sheet1.Range("I5").Value

此时我得到的文件名是这样的 /用户/名为myUsername / somedir / 123456789_20130531-002

    ActiveWorkbook.SaveCopyAs (FilenameStr & ".xls")
    Cancel = True
End Sub

这是我得到的错误 运行时错误'1004'：无法访问只读文档123456789_20130531-002.xls

该文件不存在且必须创建，但Everythig在Office 2011中恢复。