html - 一度に 1 人のユーザーが共有された Excel にアクセスするための VBS コード

Question

1. 共有 Excel シート
2. VBscript を使用した Htmlページ

一度に 1 人のユーザー (その共有 Excel を最初に開いたユーザー) だけが実行できるように、コードの一部 (共有 Excel に一部のデータを保存) を実行したいと考えています。

いろいろ試しています。しかし、期待どおりに機能していません。

どんな助けでも大歓迎です。

Answer 1

次の vba は、ファイルが開いているかどうかを確認します。

Dim FileNum As Integer

'File exists
If Len(Dir(StrFilePath)) > 0 Then 
    FileNum = FreeFile() 
    On Error Resume Next 
    Open StrFilePath For Input Lock Read As #FileNum 
    'Open and lock file
    If Err.Number <> 0 Then 
        'File is open
    Else 
        'File is closed
    End If 
    Close FileNum 
    On Error GoTo 0
Else 
    'File does not exist
End If