excel禁止插入(添加)工作表的几种不同的VBA语句写法

有时候工作需要，禁止用户在现有的工作薄中插入添加工作表。用基础操作无法实现禁止插入(添加)工作表，可以使用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