自动保存工作簿

Question

我的VBA需要帮助。我在共享驱动器上有一个共享工作簿。由于我使用的是复制工作表上所有数据条目的用户表单，因此我使用

If ThisWorkbook.MultiUserEditing Then
    ActiveWorkbook.AcceptAllChanges
    End If

确保在复制数据条目之前先保存文件，以避免与所有用户保存冲突。但是，当用户窗体处于活动状态但打开了另一个工作簿（主工作簿最小化）时，会出现此错误：

  

运行时错误'1004'：object_Workbook'的方法'AcceptAllChanges'   失败

我的代码有问题吗？