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

相关推荐
呆萌的代Ma1 小时前
Cursor实现用excel数据填充word模版的方法
word·excel
yanweijie03175 小时前
Excel-vlookup -多条件匹配,返回指定列处的值
excel
Channing Lewis6 小时前
sql server如何创建表导入excel的数据
数据库·oracle·excel
沉到海底去吧Go1 天前
【工具教程】PDF电子发票提取明细导出Excel表格,OFD电子发票行程单提取保存表格,具体操作流程
pdf·excel
开开心心就好1 天前
高效Excel合并拆分软件
开发语言·javascript·c#·ocr·排序算法·excel·最小二乘法
沉到海底去吧Go2 天前
【行驶证识别成表格】批量OCR行驶证识别与Excel自动化处理系统,行驶证扫描件和照片图片识别后保存为Excel表格,基于QT和华为ocr识别的实现教程
自动化·ocr·excel·行驶证识别·行驶证识别表格·批量行驶证读取表格
Abigail_chow3 天前
EXCEL如何快速批量给两字姓名中间加空格
windows·microsoft·excel·学习方法·政务
xiaohezi3 天前
Rag chunk 之:Excel 文档解析
excel
weixin_472339463 天前
python批量解析提取word内容到excel
python·word·excel
4 天前
Unity与Excel表格交互热更方案
unity·游戏引擎·excel