Excel:vba实现禁止新增工作表

实现效果:禁止新增工作表


步骤如下:

1.点击开发工具里面的Visual Basic


2.不要自己创建,点击ThisWorkbook,点击选择Workbook,点击选择NewSheet
这里的NewSheet就是工作簿事件

代码如下:

'这是事件处理程序的声明,表示当Excel工作簿中新建工作表时(即Workbook_NewSheet事件被触发)
'这段代码会自动运行。Sh 是传入的工作表对象。
Private Sub Workbook_NewSheet(ByVal Sh As Object)

'这行代码关闭屏幕更新,防止在执行代码时界面不断刷新,从而提高代码执行的速度并防止闪烁。
Application.ScreenUpdating = False

'关闭Excel的默认警告对话框,以避免在删除工作表时弹出警告提示
Application.DisplayAlerts = False

'弹出一个消息框,告诉用户"不能新增工作表",并且消息框的图标是带有红叉的 vbCritical 类型,标题为"^_^"。
MsgBox "不能新增工作表", vbCritical, "^_^"

'当点击创建新工作表的按钮时会创建一个新的工作表,要立即把它删除
ActiveSheet.Delete

'恢复Excel的警告对话框显示功能
Application.DisplayAlerts = True

'重新打开屏幕更新,让Excel恢复正常显示
Application.ScreenUpdating = True

End Sub

(这个代码不是我自己写的,是在学习时,bilibili的一个老师的视频里面的,放在这里方便使用)

老师的视频链接:https://b23.tv/zmOqSc4

相关推荐
丁德双10 小时前
winform 加载 office excel 插入QRCode图片如何设定位置
c#·excel
IT铺子11 小时前
Excel 个人时间管理工具
excel
zxguan17 小时前
EasyExcel 学习之 导出 “提示问题”
学习·excel
忘忧记17 小时前
Excel批量转换不规范数据的教程
excel
神奇夜光杯18 小时前
Python酷库之旅-第三方库Pandas(200)
开发语言·人工智能·python·excel·pandas·标准库及第三方库·学习与成长
火星技术20 小时前
Excel快速转换文档word工具
word·excel
 嘘 1 天前
文件操作:Xml转Excel
xml·python·excel
Mr。轩。1 天前
cn.afterturn.easypoi.exception.excel.ExcelExportException: Excel导出错误 -> 修正过程。
java·excel·导出
大哇唧2 天前
python批量合并excel文件
开发语言·python·excel
IT铺子2 天前
Excel 数据分析高级建模指南
excel