Dzwebs.Net

撰写电脑技术杂文十余年

Excel禁止插入行列、删除行列的方法

Admin | 2010-1-26 20:22:37 | 被阅次数 | 21544

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在Excel中,有时候为了方便大家的使用,常常将一个工作薄给多人共享。

  然而,在输入的数据的时候,难免存在误操作,无意中将数据的行列删除或插入多余的行列,以至于最后的数据不完整。

  为了以上存在的问题,最好的办法就是限制、禁止在Excel中插入行列、删除行列。

  下面是实现的方法,使用的原理是通过VBA完成。

  理论指导:要想限制、禁止别人插入行列、删除行列,最好的办法就是让别人在Excel中不能使用这些功能。同时,让别人不能在Excel中使用右键菜单。

  如下图,屏蔽掉插入行列的功能,别人自然就不能使用了,这样就可以有效的保护数据的安全。

  实现的方法如下:

  一、禁止插入行列

  首先选择一个Sheet,如Sheet1,点击右键,在弹出的快捷菜单中选择“查看代码”,如下图!

  之后,在打开的VBA代码输入窗口中,选择ThisWorkbook,点击右键,选择“查看代码”,这样,就进入到VBA代码输入窗口了。如下图!

  接下来,按照如上的代码输入可即。注意,选择好SelectionChange事件。

  代码解释:

  Application.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("行(R)").Enabled = False
  '禁止使用插入行功能。
  Application.CommandBars("Worksheet Menu Bar").Controls("插入(I)").Controls("列(C)").Enabled = False
  '禁止使用插入列功能
  Application.CommandBars("cell").Enabled = False
  '禁止使用右键菜单

  如果您想恢复插入行列和右键菜单功能,只需要将上述代码中的False改为True即可。

  二、禁止删除行列

  相信大家使用了上述的代码都已经明白了,如果要想禁止删除行列,无法就是限制别人不能使用删除行列的菜单和禁止使用右键菜单。

  为方便大家的学习,代码如下:

  不过要注意,要想禁止别人不能删除行列,得禁止别人使用“编辑”菜单中的“删除”功能,代码如下:

  Application.CommandBars("Worksheet Menu Bar").Controls("编辑(E)").Controls("删除(D)").Enabled = False

  好了,本文就为您介绍到这里吧,如果您想了解禁用菜单或与右键相关的限制功能,请参与如下的两篇文章:

  http://www.dzwebs.net/2560.html

  http://www.dzwebs.net/2455.html

  希望如上的技术指导,对您有所帮助。


该杂文来自: Excel杂文

上一篇:Excel函数Text的语法、参数及用法介绍

下一篇:合并多个工作薄的VBA代码示例

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计