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

努力学习技能的LY2024-10-15 10:44

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

步骤如下：

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