有时候工作需要，禁止用户在现有的工作薄中插入添加工作表。用基础操作无法实现禁止插入(添加)工作表，可以使用VBA代码来完成。
禁止插入(添加)工作表的方法一：
按下ALT+F11，打开VBE编辑器，在ThisWorkbook中添加以下代码：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
下面是用VBA禁止插入(添加)工作表的一个截图：
禁止插入(添加)工作表的方法二：
将方法一的代码改为下面的：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
'关闭屏幕的刷新
Application.ScreenUpdating = False
'关闭删除工作表时显示的提示对话框
Application.DisplayAlerts = False
Sh.Delete
'打开屏幕刷新
Application.ScreenUpdating = True
End Sub
这样也可以禁止在一个工作簿中添加插入工作表。这段代码严格的是只是将新增加的工作表删除。
禁止插入(添加)工作表的方法三：
代码人性化直观一些，用消息框提示：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox "你不能插入工作表"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：禁止插入(添加)工作表的方法
相关文章
