excel 编辑“允许用户编辑区域”时，需要输入密码，如何用宏编代码实现？不要手工输入。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range, 允许编辑区域 As Range
Set 允许编辑区域 = Union([a3:D6], [f5:g8], [i13])
If Not Application.Intersect(Target, 允许编辑区域) Is Nothing Then
If InputBox("进入特定区域，请输入密码！", "请输入密码：") <> "password" Then
[a1].Activate
End If
End If
End Sub
Dim Cel As Range, 允许编辑区域 As Range
Set 允许编辑区域 = Union([a3:D6], [f5:g8], [i13])
If Not Application.Intersect(Target, 允许编辑区域) Is Nothing Then
If InputBox("进入特定区域，请输入密码！", "请输入密码：") <> "password" Then
[a1].Activate
End If
End If
End Sub
温馨提示：答案为网友推荐，仅供参考
