1人で同時にVBAマクロを実行できない（共有wkb）

Question

私が目指しているのは、他のユーザーが同じVBAマクロを実行していないかどうかを確認するために現在実行中のすべてのスクリプトのリストを取得することです。同じ時間（もしそうなら、コードなどを停止する、以下の質問のOPが望むものと同様）。これは、共有ワークブックのためのものです（私はそれがこのタイプの作業のために設計されていないことを学んだが、試してみる必要があります）。

https://stackoverflow.com/a/36116091/5947935

私はVBAで上記の解答仕事でコードを作成しようとしてきたが、それはVBSのことだと私はそれを避けたいようです。

私は専門家ではないので、Excel VBAでこれを動作させる方法を理解できません。私はそれが可能かどうかも分かりません。

私もこれを見つけました：VBA Getting program names and task ID of running processesこれはうまくいきますが、実行中のプロセスのみが表示されます。

どのように2つをマージするかはわかりません...またはWMIが正しい方法です。

何か助けていただければ幸いです。

Answer 1

私は私のコードが自動オープンに行った最初のものは見たユーザ名に続いて、ワークブックの名前でちょうど空のテキストファイルだった「ロックファイル」を作成するために使用されると.LCK

の延長ロックしているファイルの場合、どのユーザーが開いていたのかをユーザーに報告してから、オープンを取り消します。

ロックファイルが見つからなかった場合は、ロックファイルが作成され、正常に処理されました。もしそれが見つかったら、それは同じユーザー名（つまり、それらのユーザーがクラッシュしていた）、それは開いたままに進んだ。

コードが最後にしたことはファイルを削除することでした。

Answer 2

ここでコードや理論はテストされていませんが、別のユーザーが共有ブックでマクロを実行するのを防ぐという考え方には、いくつかの考えが必要です。

私は隠されたワークシートを作成し、マクロが最初に起動されたときにEnviron("USERNAME")を保存するセルの1つを使用します。実行しているユーザーを示し、完了したら先入れ先出しでクリアします。

1. はMUSERが空の場合、マクロが実行は、それが最初に、チェックしますときに、その後Environ("USERNAME")にそれが価値だ変更した場合、名前付き範囲MUSER（マクロ利用者）がその隠されたワークシート
2. で範囲A1であると言うことができます次のステップの前にファイルを保存してください（ここでは、他のセッションで値が更新されているとは限りません）。
3. MUserが空でない場合は、数秒で中断または再試行してください。
4. マクロが完了すると、MUserはClearContentsになり、ファイルを保存してブックのマクロを解放します。

アイデアはこちらですがテストしてください。トラブルシューティングのために私たち自身のコードを投稿してください。また、このようにマクロを実行するには、 "ロック"にブックイベントを使用することもできます。また、この隠しシートを使ってデバッグ用のログレコードを作成することもできます。また、いくつかのフェイルセーフを実装する必要があります（マクロ開始時のタイムスタンプや数分後にロックを無効にするなど）。