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

相关推荐
CodeCraft Studio3 小时前
国产化Excel处理组件Spire.XLS教程:用 Java 获取所有 Excel 工作表名称(图文详解)
java·excel·数据处理·spire
前端sweetGirl4 小时前
Excel 怎么让透视表以正常Excel表格形式显示
excel
_oP_i8 小时前
Excel 发现此工作表中有一处或多处公式引用错误。请检查公式中的单元格引用、区域名称、已定义名称以及到其他工作簿的链接是否均正确无误。弹窗
excel
开开心心就好15 小时前
免费PDF转图片软件
javascript·智能手机·pdf·flask·word·excel·scikit-learn
简鹿办公1 天前
Excel 表格内批量添加前缀与后缀的实用方法
excel·excel单元格统一加后缀文字
炸毛的飞鼠1 天前
智警杯备赛--excel模块
excel
呆萌的代Ma1 天前
Cursor实现用excel数据填充word模版的方法
word·excel
yanweijie03171 天前
Excel-vlookup -多条件匹配,返回指定列处的值
excel
Channing Lewis1 天前
sql server如何创建表导入excel的数据
数据库·oracle·excel
沉到海底去吧Go2 天前
【工具教程】PDF电子发票提取明细导出Excel表格,OFD电子发票行程单提取保存表格,具体操作流程
pdf·excel