VBA冻结窗口代码

以下是VBA代码冻结窗口：

Application.ScreenUpdating = False
ActiveSheet.Activate
ActiveSheet.Range("A1").Select
ActiveSheet.ScrollArea = "A1:Z100"
ActiveSheet.FreezePanes = True
Application.ScreenUpdating = True

该代码将在当前活动工作表中冻结窗口，并将滚动区域设置为A1:Z100，以便用户可以滚动其他行和列。请注意，该代码使用了 Application.ScreenUpdating 属性，以确保在执行代码期间屏幕不会闪烁或刷新。