慢工作簿_打开事件

Question

由于在 workbook_open 事件中运行了许多宏，我有一个工作簿需要 6 秒以上才能打开。

我想加快速度，所以我使用了一个计时器来测试代码在启动时的不同部分与在工作簿打开时运行的不同部分。除了这部分之外，所有部分在这两种情况下都需要相同的时间来运行：

Dim ATime As Double
Dim BTime As Double

ATime = timer

Dim b As Long
For b = 5 To 268
    If Sheets("Orders").Range("F" & b) = "Locked" Then
        Sheets("Orders").Range("C" & b).Locked = True
        Sheets("Orders").Range("D" & b).Locked = True
        Sheets("Orders").Range("E" & b).Locked = True
    End If
Next

BTime = timer
MsgBox "1. " & Format(BTime - ATime, "0.00 \s\ec")

在 workbook_open 运行时：2.78 秒。在工作簿中手动运行时：0.01 秒。

这里有什么问题？

Answer 1

试试：

With Sheets("Orders")
    For b = 5 To 268
        .Range("C" & b).Resize(1, 3).Locked = (.Range("F" & b) = "Locked") 
    Next
End With