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

Question

I have a problem with a macro.

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

I tried to figure it out why there is an error (filenamen format...etc) I know it's working without AccessMode:=xlShared , but I need to save it as shared mode. I am using Excel 2016, my code has been inspired from this link :

Could someone help me please?

Answer 1

I believe this might be caused because to save a files as shared you first needs to have exclusive access to it.

try opening it in exclusive then save as shared.

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