Excel принимает изменения

Question

На листе у меня есть следующий код VBA;

Private Sub Worksheet_Activate()

    If ActiveWorkbook.MultiUserEditing Then

        ActiveWorkbook.AcceptAllChanges , , Where:=ActiveSheet

    End If

End Sub

Однако, когда я выбираю лист, я получаю следующее сообщение об ошибке:

Метод 'AcceptAllChanges' объектаОшибка «_Workbook»

Что не так с моим кодом?Как мне заставить его работать?

Answer 1

Вам не нужны две запятые, когда вы указываете параметр по его имени.

И Where:= ищет адрес. Так что-то вроде ...

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

может сработать. Или ...

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