禁用插入工作表

有没有办法阻止人们手动插入工作表。 我有一个表单根据用户放入的信息自动创build工作表。 我目前使用的代码将阻止人们创build工作表，但是也阻止了我的表单创build工作表。 这是我正在使用的。 它在工作簿模块中。

Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False Sh.Delete Application.DisplayAlerts = True End Sub 

Answer 1

在模块中声明

 Public BoolAdd As Boolean 

这在你的Workbook_NewSheet

 Private Sub Workbook_NewSheet(ByVal Sh As Object) If BoolAdd = False Then Application.DisplayAlerts = False Sh.Delete Application.DisplayAlerts = True Else BoolAdd = False End If End Sub 

并在添加工作表之前将用户BoolAdd中的BoolAdd设置为TRUE 。

 Private Sub CommandButton1_Click() BoolAdd = True Sheets.Add End Sub 

逻辑 ：用户表单将设置公共variables为True 。 这将确保表单删除代码不会运行。 另外，我们必须将其设置为false，否则用户将能够在用户窗体closures后添加工作表。