当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

excel防范插入(添加)工作表的几种不同的VBA语句写法

excel防范插入(添加)工作表的几种不同的VBA语句写法

更新时间:2024-01-21 文章作者:未知 信息来源:网络 阅读次数:

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。

有时候工作需要,禁止用户在现有的工作薄中插入添加工作表。用基础操作无法实现禁止插入(添加)工作表,可以使用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整体界面趋于平面化,显得清新简洁。流畅的动画和平滑的过渡,带来不同以往的使用体验。

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行

网站地图xml | 网站地图html