錯誤 1004：SaveAs 方法失敗，accessMode:=xlShared

Question

我有一個宏的問題。

Sub ActivePartage()

Dim Destwb As Workbook
Dim TempFile As String
Dim FileExtStr As String
Dim FileFormat As Integer
Set Destwb = ActiveWorkbook

strTestString = Left(Destwb.Name, (InStrRev(Destwb.Name, ".", -1, vbTextCompare) - 1))

FileExtStr = ".xlsm": FileFormatNum = 52
TempFile = "H:\DQM\Tableau de Bord DQM\" & strTestString

Application.DisplayAlerts = False
With Destwb
    .SaveAs TempFile & FileExtStr, FileFormat:=FileFormatNum, AccessMode:=xlShared
End With
Application.DisplayAlerts = True

End Sub

我試圖弄清楚為什么會出現錯誤（文件名格式......等）我知道它在沒有AccessMode:=xlShared的情況下工作，但我需要將它保存為共享模式。 我正在使用 Excel 2016，我的代碼受到此鏈接的啟發：

有人可以幫我嗎？

Answer 1

我相信這可能是因為要將文件保存為共享文件，您首先需要對其具有獨占訪問權限。

嘗試以獨占方式打開它，然后另存為共享。

With Destwb
    .ExclusiveAccess
    .SaveAs TempFile & FileExtStr, FileFormat:=FileFormatNum, AccessMode:=xlShared