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  

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

分享到: