Vba 错误1004:SaveAs方法失败，accessMode:=xlShared

我对宏有问题

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

我试图找出出现错误的原因（filenamen格式…等等） 我知道它在没有

AccessMode:=xlShared

的情况下工作，但我需要将其保存为共享模式。 我使用的是Excel 2016，我的代码灵感来自：

---

有人能帮我吗？

我相信这可能是因为要将文件保存为共享文件，首先需要对其具有独占访问权限

尝试以独占方式打开它，然后另存为共享

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

---

我认为这可能是因为要将文件保存为共享文件，您首先需要以独占方式访问它

尝试以独占方式打开它，然后另存为共享

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

---

可能不是错误的原因，但您声明了FileFormat变量并使用FileFormatNum（我在运行代码之前更正了这一点）。建议不要使用与属性或参数同名的变量。在模块标题中使用Option Explicit，这样的拼写错误将被发现。工作簿已保存，但当我打开它时，会在VBE中获取“Project is unviewable”。可能不是错误原因，但您声明了FileFormat变量并使用FileFormatNum（我在运行代码之前更正了此问题）。建议不要使用与属性或参数同名的变量。在模块标题中使用Option Explicit，这样的拼写错误将被发现。工作簿已保存，但当我打开它时，会在VBE中显示“Project is unviewable”（项目不可查看）。抱歉，伙计们，我的答案迟了，它可以工作。谢谢，非常感谢。抱歉，伙计们，我的答案迟了，它可以工作。谢谢，非常感谢