EXCEL关闭时如何自动加上123这个密码保护工作表

Question

如题所述

Answer 1

保护工作表-加密代码:
ActiveSheet.protect "123"
解除保护代码:

ActiveSheet.Unprotect "123"
'123是密码
每次关闭表格之前自动保护工作表;
打开VBA 双击左边的thisworkbook,在右边空白窗口输入
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Protect "123" '123是密码
End Sub
按保存
关闭表格后再打开,你试下修改工作表,会提示已保护
'BeforeClouse 是关闭表格事件,你也可以设置在 OPEN事件里,每次打开表格会自动保护工作表.
如果在切换工作表时加密,在VBA 双击左侧想要加密的工作表 输入代码
Private Sub Worksheet_Activate()
ActiveSheet.protect "123"
End Sub
这样切换工作表的时候就会加密
如果想有些工作表不加密(自动解除保护)
VBA里选择指定工作表 输入
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect "123"
End Sub
保存

Answer 2

工作表：先选定保护内容，工具——保护——保护工作表，输入密码，保护方式，确定
整个工作簿：工具——选项——安全性，在这里设密码。此操作只对当前工作簿有效

Answer 3

打开EXCEL alt + f11
调出VBA界面
你看到左侧有个thisworkbook
双击他
然后在右侧空白处复制代码 保存就好了

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For a = 1 To Sheets.Count
Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123"
Next
End Sub追问

急，我的本意是如何打开EXCEL手动解除了工作表保护，然后写入了东西，保存或者不保存关闭了EXCEL，再打开工作表依然有密码。 您的代码是对的，关键是要如何才能自动保存这个VBA，每次打开都是有保护工作表的密码、

追答

没错啊你打开要修改的时候就收到撤销保护啊
代码你复制进去就不要删除了 保存一下
然后下次再进去的时候 不管你怎么操作 只要你关闭了表 都会给你加保护的啊这个VBA是workbook close事件 是工作簿关闭时候触发的 不要自动保存的

本回答被提问者采纳

Answer 4

在Excel2007中点击左上角的选项按钮，在弹出菜单中选择“另存为”。或者按快捷键F12也是一样的效果。

在“另存为”界面左下角有一个“工具”按钮，点击“工具”按钮右边的小三角，在弹出菜单中选择“常规选项”。

这时我们就可以在“常规选项”中设置密码了。

设置“打开权限密码”后，他人可以用这个密码阅读这个Excel文件。

设置“修改权限密码”后，他人可以用这个密码打开和修改这个Excel文件。

勾选“建议只读”后，他人在试图打开Excel文件的时候，会弹出建议只读的提示窗口。

Answer 5

在保存的时候选择密码保护，设置密码以后，这个EXECL文件就一直有密码了。