VBA - удалить MultiUserEditing при нажатии кнопки

Question

В моей книге есть несколько кнопок, также активна опция MultiUserEditing.С помощью кнопок я добавляю или удаляю несколько листов, поэтому, если я нажимаю на кнопку, MultiUserEditing должно быть удалено, а после завершения работы оно должно быть возобновлено.

Я знаю, что могу удалить MultiUserEditing с помощью:

Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If
Application.DisplayAlerts = True

и активируйте его с помощью:

Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
Application.DisplayAlerts = True

Но я не знаю, как записать его на листе "ThisWorkbook", чтобы он всегда запускался при нажатии одной из кнопок?

Действительно ли мне нужно добавлять этот код к каждой кнопке, или есть более простой и быстрый способ?