Отключить оповещение при удалении листа вручную

Question

Есть ли способ в VBA отключить предупреждение, которое появляется при ручном удалении листа (щелчок правой кнопкой мыши по листу и удаление)? Я видел Application.DisplayAlerts = False, однако мне кажется, что это работает только при удалении листа с помощью VBA (Sheets("Sheet1").delete). Я пытаюсь отключить оповещение для всей книги, когда вы вручную щелкаете правой кнопкой мыши по листу и нажимаете «Удалить». Спасибо.

Answer 1

В случае, если кто-то еще ищет такой же сценарий :

... исключить необходимость подтверждения удаления листа при представлении Рабочая тетрадь на совещаниях. Проходя листы, я часто удваиваю нажмите на сводные таблицы, чтобы просмотреть детали, и я хотел бы устранить всплывающее предупреждение при удалении сгенерированного листа ...

Если новые листы создаются только при двойном щелчке на сводной таблице, это может быть подходящим решением

Помещенный в ThisWorkbook, приведенный ниже код удалит все новые листы при выборе другого листа

---

Option Explicit

'Place this code in ThisWorkbook module

'Expects that all new sheets are generated by double-clicking a pivot table

Private pivotWs As Worksheet

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Set pivotWs = Sh
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Not pivotWs Is Nothing Then
        If Sh.Name = pivotWs.Name Then
            Application.DisplayAlerts = False
            pivotWs.Delete
            Set pivotWs = Nothing
            Application.DisplayAlerts = True
        End If
    End If
End Sub