自动保存宏文件

金樽邀月

请教大家一个问题，在本地电脑上操作共享文件夹中的宏文件，能不能通过VBA代码实现自动保存？手动点击保存按纽是可以保存共享文件夹中文件的，VBA代码自动保存本地电脑上的文件是可以的。
下面是我从网上搜索到的代码，在运行过程中把宏文件设置成了共享，虽然可以保存，但回头无法打开工程资源管理器，不是我想要的结果。

Sub AutoSaveWorkbook()
Application.DisplayAlerts = False
    Dim filePath As String
    filePath = "\\10.36.0.71\转移新电脑文件\VBA练习.xlsm"  ' 更改为您的共享文件夹路径和文件名
    On Error Resume Next    ' 尝试保存工作簿
    ThisWorkbook.SaveAs filePath , , , , , , xlShared
    If Err.Number <> 0 Then  ' 如果出现错误，显示错误信息
        MsgBox "自动保存失败：" & Err.Description
    End If
    On Error GoTo 0
Application.DisplayAlerts = True
End Sub

3190496160

共享文件夹也是一个地址呀，你把它看成跟本地地址一样的地址就行了嘛