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”工作表中编写它，当单击其中一个按钮时它将始终运行？

我真的必须将此代码添加到每个按钮上吗，还是有一种更简便快捷的方法？