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

　　这样也可以禁止在一个工作簿中添加插入工作表。这段代码严格的是只是将新增加的工作表删除。

禁止插入(添加)工作表的方法三：

　　代码人性化直观一些，用消息框提示：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox "你不能插入工作表"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

转载请注明：范的资源库 » excel禁止插入(添加)工作表的几种不同的VBA语句写法