Question

vba中如何用代码关闭exelc中的撤销按钮

公司有个共享文档，有很多部门人员同时编辑一个exelc，为了保证数据安全，用宏做了限制，只要空白单元格录入数据后就无法编辑，但这有个漏洞，就是编辑完了后不关闭窗口的情况下可以 点击exelc中的撤销按钮，请问有什么办法可以实现他们打开共享exelc的文件时 撤销按钮就不可用呢？

另外：我还发现 表格数据录入锁定后 如果选中2个以上的单元格还是可以删除数据，这也是个漏洞，能否做到不让拉选或者拉选后已经录入的单元格数据仍然无法修改？

可实现者给分 谢谢了

Answer 1

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码。

3、close方法必须有一个对象，对象为workbooks，在这里我们使用的thisworkbook可以直接使用参数。而workbooks使用参数会发生错误。

4、这个作用是将当前工作表的保存状态设置为true那么退出的时候就默认为已经保存过了，所以不会弹出提示框。如果需要真实的保存，那么我们只要再加一个代码workbooks（“5月工资”）.save就可以了。

5、创建一个vba按钮，然后指定该宏，以后使用退出的时候，直接使用按钮进行退出。

Answer 2

两种方法：
第一种利用Application.ScreenUpdating = False，不更新屏幕，制造后台运行的假象。
Sub aa()
Application.ScreenUpdating = False
set sht=activesheet '保存当前sheet，等下恢复
Sheet2.Select
Call bb 'bb是另外一个过程
sht.select
Application.ScreenUpdating = True
End Sub
第二种是修改bb过程，指定sheet，比如 将cells(i,1)=1相应改为sheet2.cells(i,1)=1，可用with语句