有没有一种方法可以提高在Excel VBA中激活工作表时取消保护大范围的效率？

Question

I currently have a worksheet that, upon activation, unlocks a portion of the worksheet for user entry, but protects the rest of the worksheet. When opening the worksheet, there is a noticeable delay before becoming active for the user. Is there a way to use an array for this?

Dim ws As Worksheet
Dim rng As Range
Dim ce As Range

Set ws = ActiveSheet
Set rng = Union(ws.Range("B4:B9"), ws.Range("E4:E9"), ws.Range("I4:I10"), ws.Range("B10"), ws.Range("A14:O425"))

Application.ScreenUpdating = False
ws.Unprotect Password:="mediate"
For Each ce In rng
    ce.Select
    Selection.Locked = "False"
Next ce

ws.Protect Password:="mediate", UserInterfaceOnly:=True, AllowFormattingCells:=True
Application.ScreenUpdating = True

Answer 1

Using Range.Locked = False works, but there was an additional mistake that I made that caused the errors I described. I split each range out to use .Locked = False and figured out which ranges were being problematic. Some of the ranges have merged cells, and I did not specify the entire 'length' of the range. IE Range("E4:E9") should have been Range("E4:F9").

Here is the working code:

Dim ws As Worksheet
Dim rng As Range

Set ws = Worksheets("Initial Entry")
Set rng = Union(ws.Range("B4:B9"), ws.Range("E4:F9"), ws.Range("I4:K10"), ws.Range("B10:F10"), ws.Range("A14:O425"))

rng.Locked = False

ws.Protect Password:="mediate", UserInterfaceOnly:=True, AllowFormattingCells:=True