如何一次性对多个Excel工作表应用冻结/取消冻结窗格？

一次只能冻结一行或一列，但是您是否尝试过一次性对多个工作表应用冻结或取消冻结窗格？这只能使用Excel中的VBA来实现。阅读本教程，了解如何一次性对多个Excel工作表应用冻结或取消冻结窗格。

一次性对多个Excel工作表应用冻结窗格

在这里，我们将首先插入一个VBA模块，然后运行代码来冻结单元格。让我们来看一个简单的过程，了解如何在Excel中一次性对多个工作表应用冻结窗格。

步骤1

让我们考虑一个新的Excel工作表，然后右键单击工作表名称并选择“查看代码”以打开VBA应用程序，然后单击“插入”，选择“模块”，并将程序输入到文本框中，如下面的图像所示。

程序

Sub Freeze()
'Updateby Nirmal
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
   Ws.Activate
   With Application.ActiveWindow
      .FreezePanes = True
   End With
Next
Application.ScreenUpdating = True
End Sub

步骤2

现在单击F5运行VBA代码，多个单元格将被冻结，如下面的图像所示。

一次性对多个Excel工作表应用取消冻结窗格

在这里，我们将首先插入一个VBA模块，然后运行代码来取消冻结单元格。让我们来看一个简单的过程，了解如何在Excel中一次性对多个工作表应用取消冻结窗格。

步骤1

程序

Sub UnFreeze()
'Updateby Nirmal
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
   Ws.Activate
   With Application.ActiveWindow
      .FreezePanes = False
   End With
Next
Application.ScreenUpdating = True
End Sub