如何用VBA防止网络共享文本文件被多用户同时写入？

你的核心问题是默认的Append模式打开文件时，网络共享环境下不会自动触发排他锁，导致多个用户同时写入时内容错乱。下面是直接可行的解决办法：

方案一：使用Lock Read Write参数实现排他锁定 #

修改Open语句，添加Lock Read Write参数，这样打开文件时会获取排他锁，其他用户尝试写入时会直接触发错误，确保同一时间只有一个用户能操作文件。

示例代码：

Dim FNum As Integer
Dim logEntry As String

logEntry = Now() & "> The user " & GetUserName() & " wrote something."

' 启用错误捕获处理锁定失败的情况
On Error GoTo LockFailed
FNum = FreeFile()
' 打开文件时添加排他锁，禁止其他任何读写操作
Open "\\SHARE\Logs\File.log" For Append Lock Read Write As FNum

Print #FNum, logEntry
Close #FNum
Exit Sub

' 锁定失败的错误处理分支
LockFailed:
    MsgBox "日志文件正在被其他用户占用，请稍后重试。", vbExclamation
    ' 确保文件被关闭（防止意外锁死）
    If FNum <> 0 Then
        On Error Resume Next
        Close #FNum
        On Error GoTo 0
    End If

原理说明 #

Lock Read Write会让当前进程获得文件的排他访问权限，其他进程无论是读取还是写入都会被系统拒绝，直到当前进程调用Close释放锁。这种方式能彻底避免并发写入的内容错乱问题。

方案二：二进制模式写入（备选） #

如果Append模式加锁仍有问题，可以尝试用Binary模式打开文件，定位到末尾后写入，同样搭配排他锁：

Dim FNum As Integer
Dim logEntry As String

logEntry = Now() & "> The user " & GetUserName() & " wrote something." & vbCrLf

On Error GoTo LockFailed
FNum = FreeFile()
Open "\\SHARE\Logs\File.log" For Binary Lock Read Write As FNum

' 定位到文件末尾
Seek FNum, LOF(FNum) + 1
' 写入日志内容
Put #FNum, , logEntry

Close #FNum
Exit Sub

LockFailed:
    MsgBox "无法写入日志：" & Err.Description, vbCritical
    If FNum <> 0 Then
        On Error Resume Next
        Close #FNum
        On Error GoTo 0
    End If

关键注意事项 #

• 必须确保Close语句执行：无论写入成功还是失败，都要关闭文件，否则会导致文件被长期锁定，其他用户无法访问。
• 错误处理不可少：捕获锁定失败的错误，给用户明确提示，避免程序崩溃。

内容的提问来源于stack exchange，提问作者UnTroll