[已解决]我想让某一个区域不允许编辑，代码如何写？

sjggsjgg

我知道让某一列不允许编辑，要让b9到h18这个区域不允许编辑，我该如何写

Private Sub Worksheet_Change(ByVal Target As Range)
X = Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then

Y = InputBox("请输入密码：")
If Y <> CStr("19771030sx") Then
MsgBox "密码错误，你无编辑权限!"
Range("A11").Select
End If
End If

endsub

最佳答案

月排行榜 / 总排行榜

sliang28

2013-7-20 16:35

在你的基础上改了一下：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column >= 2 And Target.Column <= 8 And Target.Row >= 9 And Target.Row <= 18 Then
   
3.         Y = InputBox("请输入密码：")
   
4.             If Y <> CStr("19771030sx") Then
   
5.                 MsgBox "密码错误，你无编辑权限!"
   
6.                 Range("A11").Select
   
7.             End If
   
8.         End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

sliang28

在你的基础上改了一下：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column >= 2 And Target.Column <= 8 And Target.Row >= 9 And Target.Row <= 18 Then
   
3.         Y = InputBox("请输入密码：")
   
4.             If Y <> CStr("19771030sx") Then
   
5.                 MsgBox "密码错误，你无编辑权限!"
   
6.                 Range("A11").Select
   
7.             End If
   
8.         End If
   
9. End Sub

复制代码