VBA设置单元格滚动范围

设置单元格滚动范围
在默认情况下,我们都能看到整个工作表的单元格范围。
但是有些特殊情况下,不想让其他人看到所有的范围。
那只有限制工作表的的滚动范围了。
宏代码如下:
  1. Sub Set_scrollarea_cells()   
  2. ‘   
  3. ‘ Set_scrollarea_cells Macro   
  4. ‘ 宏由 Kael.Z 录制,时间: 2011/6/29  
  5. Dim rng As Range   
  6. Dim str As String   
  7. Set rng = ActiveCell.CurrentRegion   
  8. str = rng.Address   
  9. ActiveSheet.ScrollArea = str   
  10. End Sub  

上面是设置工作表的滚动范围,再来个移除单元格移动范围的限制。

宏代码如下:

 
  1. Sub dis_scrollarea()   
  2. ‘   
  3. ‘ dis_scrollarea Macro   
  4. ‘ 宏由 Kael.Z 录制,时间: 2011/6/29  
  5. ActiveSheet.ScrollArea = ""  
  6. End Sub  

上面的为设定滚动范围,下面的为移除范围限制,仅供大家参考!

分享到:

4 条评论

点击这里取消回复。
注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 歪世界

    今天发现了 三国杀 Excel 版…太强悍了

    1. Kael.Z

      呵呵。怎么说?

      1. 歪世界

        百度 三国杀 Excel 版 看看

        1. Steven

          VBA写的….

          Notify