Excel中经常需要使用到自动求和公式，自动求和具体该如何操作呢?接下来小编举例简单的例子告诉大家excel设置自动求和公式的方法。excel设置自动求和公式的方法设置自动求和公式步骤1：将鼠标放在要求和数据区域的紧挨着的下面一个单元格，如下图的D10单元格，然后点击【开始】-【自动求和】按钮就可以自动求D......
excel禁止插入(添加)工作表的几种不同的VBA语句写法
Excel函数
2021-11-25 12:42:51
有时候工作需要，禁止用户在现有的工作薄中插入添加工作表。用基础操作无法实现禁止插入(添加)工作表，可以使用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
相关文章