有時候工作需要，禁止用戶在現有的工作薄中插入添加工作表。用基礎操作無法實現禁止插入(添加)工作表，可以使用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