Office中国论坛/Access中国论坛

标题: [求助]怎么用代码把某一区域设置成不可选择？？ [打印本页]

作者: Bluelost 时间: 2005-4-5 23:54
标题: [求助]怎么用代码把某一区域设置成不可选择？？
如题！

作者: 老鬼 时间: 2005-4-6 06:13
xp版本以上可以用下面的代码设置可用区域：

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

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

ActiveSheet.ScrollArea="F11:G15"

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

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

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

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

作者: 老鬼 时间: 2005-4-8 07:37
测试没问题，你应该在打开工作簿时启用宏。

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

作者: Bluelost 时间: 2005-4-8 17:20
我有启用宏的，其他代码都能执行，就是这个open事件没执行，奇怪啊？？

作者: 老鬼 时间: 2005-4-9 04:07
可能是你的语句不对，用我的语句试试~~~~~

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)