怎么用VBA写一段写文件在某到某一列完成自动加密代码如需要更改需要解密，或怎么用vba代码在没有锁
答案:2 悬赏:30 手机版
解决时间 2021-02-12 01:53
- 提问者网友：蓝莓格格巫
- 2021-02-11 18:49
怎么用VBA写一段写文件在某到某一列完成自动加密代码如需要更改需要解密，或怎么用vba代码在没有锁定的加密表格里当写完一行便自动增加锁定格式一行，实现保护！
最佳答案
- 五星知识达人网友：行雁书
- 2021-02-11 19:46
这里判断Columns(":=123456)和取消B列锁定（Columns(".Columns:=123456
Columns("B:B":B").Locked = True的目的是防止选取B列单元格时不停的弹出输入密码提示框
pass = InputBox("
Else
MsgBox "密码错误:=123456
MsgBox ".Count >:=123456
ActiveSheet.Unprotect Password;欢迎访问，请输入第B列保护密码"，则运行解除工作表保护(ActiveSheet.Unprotect Password.Column = 2 And Columns("B:B"如果输入的解除保护密码正确;判断如果是B列并且单元格已锁定;B;把InputBox对话框中输入的密码赋予变量pass
If pass = 123 Then '第1节").Protect Password; 2 Then '判断选取的是否为B列.Locked = False
Sheet8.Protect Password;);B.Select
Else
If Target，如果不是则维持原来的选取动作，即ActiveCell.Select
ActiveCell;密码正确，请输入数据"，执行下面的语句:B").Locked = False）的语句;).Locked = True Then '！", "录入提示") '，最后再保护工作表（Sheets("你看这样行不行（保护工作表状态下解锁B列输入数据）
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pass
If Target
Columns("B:B":B").Locked = True的目的是防止选取B列单元格时不停的弹出输入密码提示框
pass = InputBox("
Else
MsgBox "密码错误:=123456
MsgBox ".Count >:=123456
ActiveSheet.Unprotect Password;欢迎访问，请输入第B列保护密码"，则运行解除工作表保护(ActiveSheet.Unprotect Password.Column = 2 And Columns("B:B"如果输入的解除保护密码正确;判断如果是B列并且单元格已锁定;B;把InputBox对话框中输入的密码赋予变量pass
If pass = 123 Then '第1节").Protect Password; 2 Then '判断选取的是否为B列.Locked = False
Sheet8.Protect Password;);B.Select
Else
If Target，如果不是则维持原来的选取动作，即ActiveCell.Select
ActiveCell;密码正确，请输入数据"，执行下面的语句:B").Locked = False）的语句;).Locked = True Then '！", "录入提示") '，最后再保护工作表（Sheets("你看这样行不行（保护工作表状态下解锁B列输入数据）
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pass
If Target
全部回答
- 1楼网友：风格不统一
- 2021-02-11 20:54
我是来看评论的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯