excel求助加锁定宏，请高手指点：1.如何在使用宏后自动锁定。 2.如何在使用宏后自动保存excel 急急急~~~！

Question

请在我的基础上修改。
Sub test2()

er = [c65536].End(xlUp).Row
If er < 7 Then Exit Sub

日期 = Range("b2")
工单号 = Range("c3")
工序名称 = Range("c4")
加工方式 = Range("c5")
种类 = Range("c6")
印品名称 = Range("e3")
加工数量 = Range("e6")

For i = 5 To 18
If Len(Cells(3, 3)) = 0 Or Len(Cells(4, 3)) = 0 Or Len(Cells(3, 5)) = 0 Or Len(Cells(5, 3)) = 0 Or Len(Cells(7, 3)) = 0 Or Len(Cells(6, 5)) = 0 Or Len(Cells(7, 5)) = 0 Then
MsgBox "请您将信息输入完整！"
Exit Sub
End If
Next i
For r = 7 To er

姓名 = Range("e" & r) '姓名
工号 = Range("c" & r) '工号
With Sheets("记录表")
rr = .[d65536].End(xlUp).Row + 1
For cr = 4 To rr
If .Range("d" & cr) = 工单号 And .Range("f" & cr) = 工序名称 And .Range("g" & cr) = 加工方式 And .Range("i" & cr) = 种类 And .Range("h" & cr) = 加工数量 And .Range("j" & cr) = 工号 And .Range("k" & cr) = 姓名 Then
MsgBox "“您已经储存过，请不要重复储存”"
Exit Sub
End If
Next cr
End With
Next r

For r = 7 To er
With Sheets("记录表")
tr = .[c65536].End(xlUp).Row + 1
.Range("b" & tr) = tr - 3
.Range("c" & tr) = 日期
.Range("d" & tr) = 工单号
.Range("e" & tr) = 印品名称
.Range("f" & tr) = 工序名称
.Range("g" & tr) = 加工方式
.Range("h" & tr) = 加工数量
.Range("i" & tr) = 种类
.Range("j" & tr) = Range("c" & r) '工号
.Range("k" & tr) = Range("e" & r) '姓名

End With
Next
MsgBox " 保存成功！"
End Sub
就是本来这个excel表我用密码给保护了，我修改时取消了密码保护，当我运行宏以后会自动加锁保护。

Answer 1

自动保存 只需要在END SUB 前面 加一句

ActiveWorkbook.Save
就行了

自动锁定没搞清楚什么意思，是自动加锁，还是什么？追问

就是本来这个excel表我用密码给保护了，我修改时取消了密码保护，当我运行宏以后会自动加锁保护。