在vba中使用FreezePanes冻结Excel窗口的代码

使用VBA代码，可以很方便的冻结Excel的窗口。

下面，贴出常用的代码，以方便您的操作。

①代码

Sub Freeze()

ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes

End Sub　　'代码功能是，点击一下该过程，就冻结；再点击一次，就取消冻结。是一种循环冻结或取消的代码。

②代码

Activwindow.FreezePanes=true

'代码功能是：冻结Excel窗口；如果要取消，就必须使用菜单的操作，才能取消。

③代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveWindow.SplitRow = 2 And ActiveWindow.SplitColumn = 1 Then Exit Sub

ActiveWindow.SplitRow = 2

ActiveWindow.SplitColumn = 1

ActiveWindow.FreezePanes = True

End Sub

代码说明：

ActiveWindow.SplitRow = 2 表示冻结第二行

ActiveWindow.SplitColumn = 1  表示冻结第一列

由于上述代码使用的是ActiveWindow.FreezePanes = True，所以，要想取消窗口的冻结，就要使用菜单操作。