VBAのUnlockでファイルやレコードのロックを解除する方法をわかりやすく解説

Sub ExampleUnlock()
    Dim fileNum As Integer
    fileNum = FreeFile ' 使用可能なファイル番号を取得
    
    ' ファイルを開いてロック
    Open "C:\test.txt" For Random Access Read Write As #fileNum
    Lock #fileNum ' ファイルをロック
    
    ' ここでファイルを操作（例: データの書き込みなど）
    
    ' ロックを解除
    Unlock #fileNum
    
    ' ファイルを閉じる
    Close #fileNum
End Sub

Sub ExampleUnlockRecord()
    Dim fileNum As Integer
    fileNum = FreeFile
    
    ' ファイルを開く
    Open "C:\test.dat" For Random Access Read Write As #fileNum Len = 32
    
    ' 3番目のレコードをロック
    Lock #fileNum, 3
    
    ' ここでレコードを操作
    
    ' 3番目のレコードのロックを解除
    Unlock #fileNum, 3
    
    ' ファイルを閉じる
    Close #fileNum
End Sub

Sub SafeUnlock()
    Dim fileNum As Integer
    fileNum = FreeFile
    
    On Error Resume Next ' エラーを無視
    
    Open "C:\test.txt" For Random Access Read Write As #fileNum
    
    ' ファイルをロック
    Lock #fileNum
    
    ' ここでファイルを操作
    
    ' ロック解除
    Unlock #fileNum
    
    ' エラーが発生していないか確認
    If Err.Number <> 0 Then
        MsgBox "ロック解除中にエラーが発生: " & Err.Description, vbExclamation, "エラー"
        Err.Clear
    End If
    
    Close #fileNum
End Sub