有段禁止修改excel表格内容的VBA源码，谁能帮忙改下

Question

这段源码是可以禁止excel表格在填加过数据后对表格进行修改，删除表格内的数据可需要输入密码，可是如果同时多选择几个表格对其清除内容的话密码错误也可以把表格内的数据删除掉。谁能帮忙改下，谢谢了！
Public a, b, c, d
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveCell.Value
b = ActiveCell.Row
c = ActiveCell.Column
d = 1
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
If d = 1 Then
d = d + 1
If a <> "" Then
If InputBox("请输入修改密码：", "密码") = "a" Then
End
Else
MsgBox "密码错误"
Cells(b, c).Value = a
End If
End If
End If
End Sub
以上是这段VBA的源码
楼下的 jackychen0 这样也不行啊,同时清除多个单元格的内容时连提示输入密码的提示都没有了。而且内容都被清除了。

Answer 1

试试这样行不行。

Public a, b, c, d
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = 0
ReDim a(Selection.Count)
For Each rngCell In Selection
a(i) = rngCell.Value
i = i + 1
Next
b = ActiveCell.Row
c = ActiveCell.Column
d = 1
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
If d = 1 Then
d = d + 1
p = 0
If a(0) <> "" And a(0) <> Cells(b, c) Then
If InputBox("请输入修改密码：", "密码") = "a" Then
End
Else
MsgBox "密码错误"
If Selection.Count = 1 Then
Cells(b, c) = a(0)
Else
For Each rngCell In Selection
rngCell.Value = a(p)
p = p + 1
Next
End If
End If
End If
End If
End Sub

你确定没有吗？为什么我测试了可以呢？