Question

在工作表上，我有以下VBA代码;

Private Sub Worksheet_Activate()

    If ActiveWorkbook.MultiUserEditing Then

        ActiveWorkbook.AcceptAllChanges , , Where:=ActiveSheet

    End If

End Sub

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

方法＆＃39; AcceptAllChanges＆＃39;对象＆＃39; _Workbook＆＃39;失败

我的代码出了什么问题？我如何让它工作？

Answer 1

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

Where:=正在寻找一个地址。所以......就像......

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

可能会奏效。或者......

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

Excel接受更改

1 个答案: