批量冻结多个sheet的窗格

老爷们儿

一个工作簿中有100个sheet，每个sheet的首行首列都需要冻结，如何操作可以批量冻结这100个sheet的首行首列，而不是一个sheet一个sheet的去点击。谢谢大神！

f8b1987

VBA处理

Sub 宏1()
    For Each sht In Worksheets
            sht.Select
            With ActiveWindow
                .SplitColumn = 0
                .SplitRow = 1
            End With
            ActiveWindow.FreezePanes = True
    Next sht
End Sub

f8b1987

Sub 宏2()
    For Each sht In Worksheets
            sht.Select
            With ActiveWindow
                .SplitColumn = 1
                .SplitRow = 1
            End With
            ActiveWindow.FreezePanes = True
    Next sht
End Sub

lk710618

同步请教一个问题：
假如这100个sheet中，第一个是目录，如何在sheet名称哪里锁定第一个目录sheet，让其不随下面滚动条拖动，而隐藏sheet名称呢

zhong1218

1. Sub 宏2()
   
2. Dim sht As Worksheet
   
3. Application.ScreenUpdating = False
   
4. For Each sht In ThisWorkbook.Sheets
   
5.     sht.Select
   
6.     Range("B2").Select
   
7.     ActiveWindow.FreezePanes = False
   
8.     ActiveWindow.FreezePanes = True
   
9. Next sht
   
10. Application.ScreenUpdating = True
    
11. End Sub
    

复制代码