Excel接受更改

在活页上，我有以下VBA代码

Private Sub Worksheet_Activate()

    If ActiveWorkbook.MultiUserEditing Then

        ActiveWorkbook.AcceptAllChanges , , Where:=ActiveSheet

    End If

End Sub

但是，当我选择工作表时，我会收到以下错误消息：

对象“\u工作簿”的方法“AcceptualChanges”失败

---

我的代码有什么问题？如何使其工作？

当您通过名称指定参数时，不需要使用2个逗号

其中：=正在查找地址。所以有点像

ActiveWorkbook.AcceptAllChanges Where:=ActiveSheet.Cells.Address(External:=true) 

可能有用。或者

ActiveWorkbook.AcceptAllChanges Where:="'" & ActiveSheet.Name & "'!" & ActiveSheet.Cells.Address

---

将不处于活动状态。工作簿。保存为True。保存更改？@SolarMike我补充说，但仍然是相同的错误消息，我也不希望每次激活工作表时都保存。