返回首页
当前位置: 主页 > Excel教程 > Excel2003教程 >

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

时间:2013-08-15 00:50来源:Office教程学习网 www.office68.com编辑:麦田守望者

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

  有时候工作需要,禁止用户在现有的工作薄中插入添加工作表。用基础操作无法实现禁止插入(添加)工作表,可以使用VBA代码来完成。

禁止插入(添加)工作表的方法一:

  按下ALT+F11,打开VBE编辑器,在ThisWorkbook中添加以下代码:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
End Sub

  下面是用VBA禁止插入(添加)工作表的一个截图:

禁止插入工作表

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

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

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

顶一下
(2)
100%
踩一下
(0)
0%
标签(Tag):excel excel2013 excel2007 excel2003 excel2010 excel技巧 excel教程 excel实例教程
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣