- 締切済み
Excel VBAでファイルの制御をしたい
今、Excel VBAでファイル操作の制御スクリプトをくみたくて 悩んでおります。。 "test.xls"ファイルというエクセルの共有ファイルがあります。 そのファイルは日々様々なユーザーがデータを書き込みます。 この共有ファイルに対し、誰か一人がこのファイルを開いている際に 違う誰かがファイルを開こうとした場合に、警告メッセージを表示した後、強制的にファイルを閉じるというプログラムを組みたいのですが・・。 何せ、VBAでのプログラミングはまったくの初心者の為、 悪戦苦闘しております。 どなたか、良いアドバイスを頂けたら嬉しいです。 是非、宜しくお願い致します。
- Mi_racle
- お礼率50% (2/4)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- zap35
- ベストアンサー率44% (1383/3079)
回答No.1
「読み取り専用」のメッセージは消せませんが、以下のマクロで ＞警告メッセージを表示した後、強制的にファイルを閉じる はできます。 以下のマクロをALT＋F11でVBE画面を開き、左上のVBA ProjectでThisWorkbookを右クリックし「コードの表示」で表示される画面に貼り付けて下さい。 Private Sub Workbook_Open() If ThisWorkbook.ReadOnly Then MsgBox "このＢＯＯＫは別の人が開いているのでさわれません" _ & "ＢＯＯＫを閉じます." ThisWorkbook.Close False End If End Sub
お礼
丁寧で、迅速なご回答を頂き、どうも有難うございます。 さっそく実践してみます。 本当に有難うございました!!