Excel VBA : Unfreezing panes of a workbook object's sheet?

Question

通常，解冻 Pane 的代码是

ActiveWindow.FreezePanes = False

但假设我有 Workbook 类型的 sourceBook 和 String 类型的sheetName。例如

sourceBook.sheets(sheetName)

如何在不调用 ActiveWindow 之类的情况下解冻该工作簿工作表上的 Pane ？

Answer 1

这将从给定工作簿的每个窗口的每个工作表中删除 FreezePanes，它还确保相同的工作表处于事件状态，就像运行代码之前处于事件状态一样:

Dim w As Window
Dim activews As Worksheet, ws As Worksheet
For Each w In sourceBook.Windows
    w.Activate
    If activews Is Nothing Then
        Set activews = w.ActiveSheet
    End If
    For Each wsv In w.SheetViews
        wsv.Sheet.Activate
        w.FreezePanes = False
    Next
    activews.Activate
    set activews = nothing
Next

正如 Rick 所指出的，在不激活窗口的情况下无法解冻 Pane 。但您不必调用 ActiveWindow。