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

相关推荐
Morantkk38 分钟前
Word和Excel使用有感
word·excel
躺平的花卷2 小时前
Python爬虫案例八:抓取597招聘网信息并用xlutils进行excel数据的保存
爬虫·excel
爱编程的小生2 小时前
Easyexcel(2-文件读取)
java·excel
程序员如山石2 小时前
Excel的图表使用和导出准备
excel
zhy8103024 小时前
.net6 使用 FreeSpire.XLS 实现 excel 转 pdf - docker 部署
pdf·.net·excel
傻啦嘿哟4 小时前
如何使用 Python 开发一个简单的文本数据转换为 Excel 工具
开发语言·python·excel
星星会笑滴6 小时前
vue+node+Express+xlsx+emements-plus实现导入excel,并且将数据保存到数据库
vue.js·excel·express
开心点幸运点19 小时前
Excel——宏教程(1)
excel
boy快快长大1 天前
将大模型生成数据存入Excel,并用增量的方式存入Excel
java·数据库·excel
Leuanghing1 天前
使用Python生成F分布表并导出为Excel文件
开发语言·python·excel·f分布