[已解决]如何锁定页面

股网千王

不让滚动条起作用。不是冻结窗口，不是去掉滚动条。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-1-10 13:15

在对应工作表中写入宏
Private Sub Worksheet_Activate()
  ScrollArea = "A1:Q23"     ' 锁定范围
End Sub

跳转到最佳答案楼层

zjdh

在对应工作表中写入宏
Private Sub Worksheet_Activate()
  ScrollArea = "A1:Q23"     ' 锁定范围
End Sub

股网千王

Sub suoding()
Application.ScreenUpdating = False
Sheet1.ScrollArea = "A1:m30"
Application.ScreenUpdating = True
End Sub

股网千王

zjdh 发表于 2013-1-10 13:15
在对应工作表中写入宏
Private Sub Worksheet_Activate()
  ScrollArea = "A1:Q23"     ' 锁定范围

XIEXIE谢谢您了。祝你健康！{:171:}

wuyuewei

zjdh 发表于 2013-1-10 13:15
在对应工作表中写入宏
Private Sub Worksheet_Activate()
  ScrollArea = "A1:Q23"     ' 锁定范围

谢谢 楼主，但是我还有一个问题就是在运行这个代码以后，窗口确实是固定住了，但是保存成XLSM打开后就又失效了，还的再运行一遍代码 这个怎么解决呀 谢谢

zjdh

wuyuewei 发表于 2013-7-22 10:31
谢谢 楼主，但是我还有一个问题就是在运行这个代码以后，窗口确实是固定住了，但是保存成XLSM打开后就又失 ...

按2楼的说明做了吗？