怎么用VBA写一段写文件在某到某一列完成自动加密代码如需要更改需要解密，或怎么用vba代码在没有锁

怎么用VBA写一段写文件在某到某一列完成自动加密代码如需要更改需要解密，或怎么用vba代码在没有锁定的加密表格里当写完一行便自动增加锁定格式一行，实现保护！

这里判断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

我是来看评论的