Excel VBAでセルのロックとロック解除を高速化する方法

Excel VBAを使用していると、セルのロックやロック解除を頻繁に行う際に動作が遅くなることがあります。特に、ListViewで選択するたびにセルのロックとロック解除を行う場合、この遅延が顕著になります。この記事では、セルのロックとロック解除を高速化するための方法を解説します。

1. セルのロックとロック解除の基本
2. セルのロック解除とロックを高速化するための方法
3. セルのロック解除とロックの最適化
4. コードのリファクタリングとパフォーマンス向上
5. まとめ

1. セルのロックとロック解除の基本

まず、セルのロックとロック解除は、Excelシートの編集制限をかけるために非常に有用な機能です。しかし、これを頻繁に行うとパフォーマンスが低下する原因になります。ロック解除とロックの操作を効率的に行う方法を知ることが重要です。

以下のコードは、セルをロック解除するための基本的な例です。

Sub Unlocked1()
Dim wS As Worksheet
For Each wS In ThisWorkbook.Worksheets
    wS.Unprotect Password:="5"
Next
End Sub

2. セルのロック解除とロックを高速化するための方法

パフォーマンスを向上させるために、最も基本的なアプローチは、ロック解除とロックの際に画面の更新を停止することです。以下のコードを見てみましょう。

Application.ScreenUpdating = False
' セルのロック解除処理
' セルのロック処理
Application.ScreenUpdating = True

これにより、Excelは画面を再描画する必要がなくなり、処理が高速化されます。また、操作後に画面を再更新することで、視覚的な問題が解決されます。

3. セルのロック解除とロックの最適化

セルのロック解除やロック処理が遅くなる主な原因の一つは、何度もロック解除やロックを繰り返すことです。この問題を改善するために、ロックをまとめて行うことが重要です。以下は、特定の範囲のみをロックする最適化されたコードの例です。

Sub locked2()
Application.ScreenUpdating = False
Dim wS As Worksheet
Set wS = Worksheets("A")
With wS
    .Unprotect Password:="5"
    .Cells.Locked = False
    ' 必要な範囲だけロック
    .Range("A7:X8").Locked = True
    ' 他の範囲も必要に応じてロック
    .Protect Password:="5"
    .EnableSelection = xlUnlockedCells
End With
Application.ScreenUpdating = True
End Sub

このように、ロックする範囲を最小限にすることで、処理時間を短縮できます。

4. コードのリファクタリングとパフォーマンス向上

コードのリファクタリングを行うことで、Excel VBAの処理速度を大幅に向上させることができます。例えば、ListView1_KeyDownイベント内でセルのロック解除とロックを頻繁に行っている場合、それらを一度だけ実行するように変更すると効果的です。

以下のコードは、ロック解除とロックを複数回呼び出す代わりに、最適化されたアプローチです。

Private Sub ListView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
Dim i As Long, r As Long
Dim wS As Worksheet
Set wS = ThisWorkbook.Sheets("D")

' 一度だけロック解除
Call Unlocked1

Application.ScreenUpdating = False
With UserForm2
    With .ListView1
        For i = 1 To .ListItems.Count - 1
            If .ListItems(i).Selected = True Then
                For r = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
                    If wS.Cells(r, 3).Value = .ListItems(i).SubItems(2) Then
                        Worksheets("Ａ").Range("E5").Value = wS.Cells(r, 3).Value
                        Exit For
                    End If
                Next
            End If
        Next i
    End With
End With
Application.ScreenUpdating = True
' 一度だけロック処理
Call locked2
End Sub