- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセル・VBA エラーメッセージの表示をしたい）
VBAエクセルで他人がファイルを開いている場合のエラーメッセージ表示方法
このQ&Aのポイント
- エクセルのVBAで他のエクセルファイルを開き、新しいデータをペーストし保存する命令文を入れている場合、他の人がファイルを開いている場合にどのように対応すれば良いかについての質問です。
- 現在のコードでは、他の人がファイルを開いている場合でも何も聞かれずに読み取り専用でファイルが開かれ、新しいデータをペーストしてしまいます。そのため、他の人がファイルを開いていることを知らせるためにはどのようなコードを書けば良いか悩んでいます。
- ファイルが開かれている場合には、MsgBoxを表示し、他の人がファイルを開いていることを知らせるようなコードを書く必要があります。具体的なコードの書式や内容についてアドバイスをいただきたいです。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
私が良くやるのは、ブックをファイルとして開いて見て、エラーだったら使用中と判断する方法です。 Sub Sample() Dim nFile As Integer On Error Resume Next nFile = FreeFile() Open "\\192.168.1.1\hogehoge\hoge.xls" For Append As #nFile Close #nFile If Err.Number > 0 Then MsgBox ("誰かが使用中") Exit Sub End If End Sub あるいは、そのブックを共有ブックにしてしまって、UserStatusオブジェクトを見るのも良いかも知れません。
お礼
mt2008さん、 本当にありがとうございました。 安心して週末を迎えられます。