Option Explicit
Sub WindowsFreezePanes()
Dim sel_sht As Worksheet
For Each sel_sht In ActiveWindow.SelectedSheets
sel_sht.Activate
ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes
Next
End Sub
操作方法:
先选定需要解除或者冻结窗口的工作表,然后选定一个冻结位置的单元格,再运行本过程,可以冻结或者取消冻结窗口。