使用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，所以，要想取消窗口的冻结，就要使用菜单操作。