excel禁止插入(添加)工作表的几种不同的VBA语句写法

办公教程导读

收集整理了【excel禁止插入(添加)工作表的几种不同的VBA语句写法】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含853字，纯文字阅读大概需要2分钟。

办公教程内容图文

禁止插入(添加)工作表的方法二：

　　将方法一的代码改为下面的：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    '关闭屏幕的刷新
    Application.ScreenUpdating = False
    '关闭删除工作表时显示的提示对话框
    Application.DisplayAlerts = False
    Sh.Delete
    '打开屏幕刷新
    Application.ScreenUpdating = True
End Sub

　　这样也可以禁止在一个工作簿中添加插入工作表。这段代码严格的是只是将新增加的工作表删除。

禁止插入(添加)工作表的方法三：

　　代码人性化直观一些，用消息框提示：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox "你不能插入工作表"
 Application.DisplayAlerts = False
   ActiveSheet.Delete
 Application.DisplayAlerts = True
End Sub

办公教程总结

以上是为您收集整理的【excel禁止插入(添加)工作表的几种不同的VBA语句写法】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel禁止插入(添加)工作表的几种不同的VBA语句写法。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。