如何设置表中多区域可以编辑，其他区域不能编辑

东方狐

版主，你好！
急盼能解决此问题。想控制只能在黄色区域中可以编辑，其他区域不能编辑。表格见附件。

十五的月亮

取消锁定，保护工作表

东方狐

谢谢回复，但我想用VBA语言来编。可以吗？

东方狐

可能我没把问题说清楚！
我的目的是想控制光标的移动，光标最初是在E4，然后按顺序移动，当光标移动到X17后，自动跳到E19，然后再按顺序移动。

Private Sub Workbook_Open()
    Worksheets("Sheet1").ScrollArea = "e8:x11"
End Sub


这段代码是可以控制一个区域，但不能控制多个区域。求解！！！！！！！！！！！

无聊的疯子

东方狐 发表于 2013-3-24 11:42
可能我没把问题说清楚！
我的目的是想控制光标的移动，光标最初是在E4，然后按顺序移动，当光标移动到X17后 ...

保护工作表，只允许选择未锁定的单元格就行了

1. 
   
2. Sub CC()
   
3.   With Sheets("Sheet1")     '设置操作的工作表
   
4.     .Cells.Locked = 1       '锁定所有单元格
   
5.     .Range("E4:X10,E12:X17,E19:X26").Locked = 0   '取消单元格部分 锁定
   
6.     .Protect "123"        '保护工作表, 密码 123
   
7.     .EnableSelection = 1  '只能 选择 未锁定的单元格
   
8.   End With
   
9. End Sub
   

复制代码

东方狐

无聊的疯子 发表于 2013-3-24 11:54
保护工作表，只允许选择未锁定的单元格就行了

感谢你回复。
根据你写的代码光标到了e10后跳到e12了，我是想光标到了e10后自动跳到f4，这样往复后再到第二区域e12。不知我说清楚了没有。

无聊的疯子

东方狐 发表于 2013-3-24 12:08
感谢你回复。
根据你写的代码光标到了e10后跳到e12了，我是想光标到了e10后自动跳到f4，这样往复后再到第 ...

输入数据前,先选定那个区域,就可以了!!

东方狐

是的，如果框选是可以。但，可以用vba来编写吗？

东方狐

谢谢各位，我基本解决了。
但现在我选择A1后，单元格没选择A1，不知什么原因？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Address <> "$X$21" Then
    [E8:X14,E16:X21].Select

    ElseIf Target.Address = "$A$1" Then
        [A1].Select

    End If

End Sub

好帖子，赞{:1312:}