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禁止插入(添加)工作表的一个截图：

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

excel 百分比堆积柱形图的使用说明，excel 百分比堆积柱形图的制作步骤

第一，什么是百分比堆积柱形图首先来看看什么是百分比堆积柱形图。百分比堆积柱形图是比较各个类别的每一数值所占总值的百分比。第二，百分比堆积柱形图实例下面所示的数据源：制

 

　　将方法一的代码改为下面的：

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语句写法的下载地址：

本地下载

excel 模拟运算表如何使用 excel 模拟运算表的使用环境

excel模拟运算表这个功能用得很少。excel模拟运算表的用法输入公式后，进行假设分析。查看改动公式中的某些值时怎样影响其结果，模拟运算表提供了一个操作所有变化的捷径。第一，excel模