文章介紹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
