こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excel VBAでファイルの制御をしたい

今、Excel VBAでファイル操作の制御スクリプトをくみたくて
悩んでおります。。

"test.xls"ファイルというエクセルの共有ファイルがあります。
そのファイルは日々様々なユーザーがデータを書き込みます。

この共有ファイルに対し、誰か一人がこのファイルを開いている際に
違う誰かがファイルを開こうとした場合に、警告メッセージを表示した後、強制的にファイルを閉じるというプログラムを組みたいのですが・・。

何せ、VBAでのプログラミングはまったくの初心者の為、
悪戦苦闘しております。
どなたか、良いアドバイスを頂けたら嬉しいです。

是非、宜しくお願い致します。

投稿日時 - 2007-12-12 23:29:08

QNo.3593725

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

「読み取り専用」のメッセージは消せませんが、以下のマクロで
>警告メッセージを表示した後、強制的にファイルを閉じる
はできます。

以下のマクロをALT+F11でVBE画面を開き、左上のVBA ProjectでThisWorkbookを右クリックし「コードの表示」で表示される画面に貼り付けて下さい。

Private Sub Workbook_Open()
 If ThisWorkbook.ReadOnly Then
  MsgBox "このBOOKは別の人が開いているのでさわれません" _
     & "BOOKを閉じます."
  ThisWorkbook.Close False
 End If
End Sub

投稿日時 - 2007-12-13 00:13:58

お礼

丁寧で、迅速なご回答を頂き、どうも有難うございます。

さっそく実践してみます。
本当に有難うございました!!

投稿日時 - 2007-12-13 08:52:19

あなたにオススメの質問