单元格保护，但能用VBA添加数据，如何处理？

looselace

如果我想对保存的记录表进行保护，操作员能看，也能筛选，但是不能修改，我用单元格保护，但是加上密码后，就不能用宏自动将另一个表单数据添加到这个保护的工作表中，这如何处理？谢谢！

little-key

一个思路：先解密，填写数据，再加密。

looselace

那不把我累死啊，每次！

lxz2393

代码里解密加密啊

looselace

如何搞？
Sub 自动保存()
Dim x As Long, y As Byte
x = Sheets("自动保存").[B65536].End(3).Row
y = [MAX(IF($a$5:$a$14<>"",ROW($a$5:$a$14)))]
Sheets("自动保存").Range("b" & x + 1 & ":b" & x + y - 4).Value = Range("a5:a" & y).Value
Sheets("自动保存").Range("C" & x + 1 & ":C" & x + y - 4).Value = Range("L2").Value
Sheets("自动保存").Range("D" & x + 1 & ":D" & x + y - 4).Value = Range("D3").Value
Sheets("自动保存").Range("E" & x + 1 & ":E" & x + y - 4).Value = Range("G3").Value
Sheets("自动保存").Range("L" & x + 1 & ":L" & x + y - 4).Value = Range("C21").Value
Sheets("自动保存").Range("F" & x + 1 & ":G" & x + y - 4).Value = Range("C5:D" & y).Value
Sheets("自动保存").Range("H" & x + 1 & ":H" & x + y - 4).Value = Range("N5:N" & y).Value
Sheets("自动保存").Range("I" & x + 1 & ":I" & x + y - 4).Value = Range("E5:E" & y).Value
Sheets("自动保存").Range("J" & x + 1 & ":K" & x + y - 4).Value = Range("J5:K" & y).Value
Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value = "=Row()-1"
Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value = Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value
End Sub

假设密码1234

lxz2393

Sub 自动保存()
Dim x As Long, y As Byte
Sheets("自动保存").Unprotect Password:=1234
x = Sheets("自动保存").[B65536].End(3).Row
y = [MAX(IF($a$5:$a$14<>"",ROW($a$5:$a$14)))]
Sheets("自动保存").Range("b" & x + 1 & ":b" & x + y - 4).Value = Range("a5:a" & y).Value
Sheets("自动保存").Range("C" & x + 1 & ":C" & x + y - 4).Value = Range("L2").Value
Sheets("自动保存").Range("D" & x + 1 & ":D" & x + y - 4).Value = Range("D3").Value
Sheets("自动保存").Range("E" & x + 1 & ":E" & x + y - 4).Value = Range("G3").Value
Sheets("自动保存").Range("L" & x + 1 & ":L" & x + y - 4).Value = Range("C21").Value
Sheets("自动保存").Range("F" & x + 1 & ":G" & x + y - 4).Value = Range("C5:D" & y).Value
Sheets("自动保存").Range("H" & x + 1 & ":H" & x + y - 4).Value = Range("N5:N" & y).Value
Sheets("自动保存").Range("I" & x + 1 & ":I" & x + y - 4).Value = Range("E5:E" & y).Value
Sheets("自动保存").Range("J" & x + 1 & ":K" & x + y - 4).Value = Range("J5:K" & y).Value
Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value = "=Row()-1"
Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value = Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value
Sheets("自动保存").protect Password:=1234
End Sub

假设密码1234

[ 本帖最后由 lxz2393 于 2009-9-1 22:29 编辑 ]

looselace

x = Sheets("自动保存").[B65536].End(3).Row
y = [MAX(IF($a$5:$a$14<>"",ROW($a$5:$a$14)))]
Sheets("自动保存").Range("b" & x + 1 & ":b" & x + y - 4).Value = Range("a5:a" & y).Value
Sheets("自动保存").Range("C" & x + 1 & ":C" & x + y - 4).Value = Range("L2").Value
Sheets("自动保存").Range("D" & x + 1 & ":D" & x + y - 4).Value = Range("D3").Value
Sheets("自动保存").Range("E" & x + 1 & ":E" & x + y - 4).Value = Range("G3").Value
Sheets("自动保存").Range("L" & x + 1 & ":L" & x + y - 4).Value = Range("C21").Value
Sheets("自动保存").Range("F" & x + 1 & ":G" & x + y - 4).Value = Range("C5:D" & y).Value
Sheets("自动保存").Range("H" & x + 1 & ":H" & x + y - 4).Value = Range("N5:N" & y).Value
Sheets("自动保存").Range("I" & x + 1 & ":I" & x + y - 4).Value = Range("E5:E" & y).Value
Sheets("自动保存").Range("J" & x + 1 & ":K" & x + y - 4).Value = Range("J5:K" & y).Value
Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value = "=Row()-1"
Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value = Sheets("自动保存").Range("A" & x + 1 & ":A" & x + y - 4).Value]

各位大侠，能不能给解释下代码阿。