É possível. Faça algo como:
Sub Main()
Dim xlApp As Object 'Excel.Application
Dim wb As Object 'Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set wb = xlApp.Workbooks.Open("c:\...\arquivo.xlsx")
'Congela linhas 1 até 4 da planilha Plan1
wb.Worksheets("Plan1").PageSetup.PrintTitleRows = "$1:$4"
wb.Close True
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br