用VBA冻结excel文件的sheet1工作簿的第一行

当文件存在冻结时，先结冻再冻结，无冻结时直接冻结。?

简单有用：直接看

全代码：

Dim targetWorkbook As Workbook
Dim targetWorksheet As Worksheet
Dim filePath As String

filePath = "D:\xin.xlsx" ' ﾌ貊ｻﾎｪxin.xlsxﾎﾄｼ?ｵﾄﾊｵｼﾊﾂｷｾｶ

On Error Resume Next
Set targetWorkbook = Workbooks.Open(filePath)
On Error GoTo 0

If Not targetWorkbook Is Nothing Then
Set targetWorksheet = targetWorkbook.Sheets("Sheet1") ' ﾌ貊ｻﾎｪﾄｿｱ?､ﾗ昉ﾄﾃ﨤ﾆ
If Not targetWorksheet Is Nothing Then
targetWorksheet.Activate
If targetWorksheet.Application.ActiveWindow.FreezePanes Then
targetWorksheet.Application.ActiveWindow.FreezePanes = False ' ｽ箋?ｶｳｽ?
targetWorksheet.Rows("3:" & targetWorksheet.Rows.count).Select
targetWorksheet.Application.ActiveWindow.FreezePanes = False ' ｽ箋?ﾏﾖﾓﾐｴｰｸ?
targetWorksheet.Rows(2).Select
targetWorksheet.Application.ActiveWindow.FreezePanes = True
Else
targetWorksheet.Rows("3:" & targetWorksheet.Rows.count).Select
targetWorksheet.Application.ActiveWindow.FreezePanes = False ' ｽ箋?ﾏﾖﾓﾐｴｰｸ?
targetWorksheet.Rows(2).Select
targetWorksheet.Application.ActiveWindow.FreezePanes = True ' ｶｳｽ盞ﾚｶ?ﾐﾐ
End If
End If
End If

可直接使用，改换?filePath = "D:\xin.xlsx" 中的路径即可。

Set targetWorksheet = targetWorkbook.Sheets("Sheet1")工作表可更改。