怎样设置EXCEL自动保存并锁定

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

用VBA来实现吧

第一步:选定全部单元格右键设置单元格格式--保护菜单--锁定前面的勾去掉

第二步:右键工作表标签--查看代码(打开VB编辑框)

第三步:复制以下代码粘帖到代码编辑框

Private Sub Worksheet_Chang(ByVal Target As Range)

Active Sheet.Unprotect"XXXXXX"

Target.Locked = True

Active Sheet.Protect"XXXXXX"

End Sub

第四步:(XXXXXX代表你自己的密码)关闭VB编辑框--保存文件---退出EXCEL 再次打开刚才的文件。看看是不是实现了你要的功能呢?

补充:

这个代码不足之处就是只要你对相关单元格有任何修改操作之后都会自动锁定,一旦按了保存就要输入密码才能进行修改了,没有保存时退出

后重新打开还是可以编辑的。只能有操作或修改一次离开此单元格就会自

动锁定,所以修改的时候必需一次修改正确,不能有二次修改。要二次修

改就要在没保存时退出EXCEL再重新打开。

补充:

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect "XXXXXX"

Target.Locked = True

ActiveSheet.Protect "XXXXXX"

End Sub

不好意思,更正一下:这段代码是不能有一字出错的(包括标点和空格)

上面才是正确的代码写法

相关文档
最新文档