個々のシートをアクティブ化せずにvba経由で行をフリーズする

Question

selectを使用せずに任意の量のワークシートのトップx行をフリーズする方法はありますか、

This answerは

With ActiveWindow 
    If .FreezePanes Then .FreezePanes = False 
    .SplitColumn = 0 
    .SplitRow = 1 
    .FreezePanes = True 
End With 

を使用することを提案し、マクロを記録するRows("4:4").Select: ActiveWindow.FreezePanes = Trueを用いることが提案されているが、私は私のワークブック内のすべてのシートを活性化に依存しないソリューションを好むだろう。

I.e.何かのように

Sub FreezeTopXPanes(x As Long) 
    Dim ws As Worksheet 

    For Each ws in ThisWorkbook.Worksheets 
    ' Freeze top x rows 
    Next ws 
End Sub 

これを実行する方法はありますか、私は他の質問の解決策に固執していますか？

Answer 1

これは問題です。 @Patrickが述べたように、フリーズペインメソッドはアクティブウィンドウでしか動作しないので、これはむしろ不可能です。もっと見る詳細

here.私は最善の方法は、一度に、または特定の1のために、すべてのシートのために、別の手順を使用することであると思う：

Sub Freeze_wsh() 
Dim Ws As Worksheet 
Application.ScreenUpdating = False 
For Each Ws In Application.ActiveWorkbook.Worksheets 
    Ws.Activate 
    With Application.ActiveWindow 
     .FreezePanes = True 
     .ScrollRow = 1 
     .ScrollColumn = 1 
    End With 
Next 
Application.ScreenUpdating = True 
End Sub 

それとも、特定のシートを参照するための変数を追加することができます

Sub Freeze_wsh(x as Integer) 
Dim Ws As Worksheet 
Application.ScreenUpdating = False 
set Ws = ActiveWorkbook.Worksheets(x) 
    Ws.Activate 
    With Application.ActiveWindow 
     .FreezePanes = True 
     .ScrollRow = 1 
     .ScrollColumn = 1 
    End With 
Next 
Application.ScreenUpdating = True 
End Sub