Excel VBA：检查.txt文件是否打开/locking/空闲

我用Excel vba编写了一个小应用程序来更新一个.txt文件，当用户提交一个提交文件时，一个计数器会更新.txt文件，这样我们就可以知道当前的运行号码，并且跟踪每日提交。

.txt文件只存储当前的数字。 （即每次提交+1的当前号码）。

但是，我注意到，当2个用户同时提交提交时，它会导致错误。 我可以知道我怎么做一个检查，看看.txt文件是否打开，并locking只为用户？ 或者一次只允许一次更新，其余的将被阻止。

请指教，非常感谢！

下面是用于更新.txt文件的代码

Sub TextFile_FindReplace(ByRef FileCount As Long) Dim TextFile As Integer Dim FilePath As String Dim fileDate As String, todDate As String Dim text As String, textline As String FilePath = "c:\fileNoCount.txt" todDate = Format(Now(), "dd/mm/yyyy") TextFile = FreeFile Open FilePath For Input As TextFile Line Input #TextFile, fileDate Close #TextFile If DateValue(fileDate) <> todDate Then Open FilePath For Output As TextFile Print #TextFile, todDate Print #TextFile, "1" Close TextFile Else Open FilePath For Input As TextFile Do Until EOF(1) Line Input #TextFile, textline text = text & textline Loop Close TextFile FileCount = textline + 1 Open FilePath For Output As TextFile Print #TextFile, todDate Print #TextFile, FileCount Close TextFile End If End Sub