ウインドウ枠の固定（先頭行）

ウインドウ枠の先頭行を固定します。
メニューの「先頭行の固定」をVBAで行います。
引数で固定の解除を行うことができます。

' ------------------------------------------------------------
' 説明：ウインドウ枠の固定（先頭行）
' 引数：1:処理対象のワークシート
'       2:Trueの場合設定、Falseの場合解除 (省略時は True)
' ------------------------------------------------------------
Sub FreezePanes(ws As Worksheet, Optional setmode As Boolean = True)
	ws.Activate

	' ウインドウ枠を固定する要求がある場合
	If setmode = True Then
		With ActiveWindow
			.FreezePanes = False
			.SplitColumn = 0
			.SplitRow = 1
			.FreezePanes = True
		End With
	Else
		' ウインドウ枠の固定を解除する要求がある場合
		ActiveWindow.FreezePanes = False
	End If
End Sub