实现效果:禁止新增工作表
步骤如下:
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