[提问]开启共享工作簿允许多人编辑的情况下，有什么办法可以实现自动保存？

raikthal

我在还没开启共享工作簿允许多人编辑的情况下，用了以下代码来实现 A.XLS 的自动保存以及备份：
Sub fg()
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "aaa.xlsm"
End Sub


Private Sub Workbook_Open()
Call fg
End Sub


但是开启共享工作簿允许多人编辑之后，thisworkbook的VBA肯定是用不了，我忽然脑洞大开，有没有可能通过 B.XLS 让 A.XLS进行保存呢？