[求助]怎么用代码把某一区域设置成不可选择？？

Bluelost

如题！

老鬼

xp版本以上可以用下面的代码设置可用区域：

ActiveSheet.Protection.AllowEditRanges.Add Title:="区域2", Range:=Range( _
        "F11:G15")

2000版本及以下的用下面代码替代：

ActiveSheet.ScrollArea="F11:G15"

Bluelost

谢谢老鬼的解答！还想问一下，你这里是设置可用区域，我记得好象在哪里见过是设置不可用区域的；按你的方法，没设置的区域是不是就不可选择了？还有因为多个区域分散，我可以这样用吧：
ActiveSheet.ScrollArea="Range1"
ActiveSheet.ScrollArea="Range2"
ActiveSheet.ScrollArea="Range3"
....
还有，不可选择区域由公式或代码引起的改动没问题的吧？

[此贴子已经被作者于2005-4-7 8:43:37编辑过]

Bluelost

上面几个问题我都明白了，问个新问题：
我想在打开该excel文档时就设定可选择区域，是这样写的
private sub workbook_open()
worksheets(1).scrollarea="range1"
end sub
可是该代码没被运行，所有区域还是能选择，为什么啊？

[此贴子已经被作者于2005-4-7 9:52:52编辑过]

老鬼

测试没问题，你应该在打开工作簿时启用宏。

Sheets(1).ScrollArea = "A1:A10"

Bluelost

我有启用宏的，其他代码都能执行，就是这个open事件没执行，奇怪啊？？

老鬼

可能是你的语句不对，用我的语句试试~~~~~