Excelで一定時間が経ったらメッセージを出したい

現在数名で、あるエクセルファイルを使用しています。毎日全員が使うファイルで編集が必要な人以外は読み取り専用で開きますが編集をした人が読み取り専用に戻すのを忘れ次に編集をしたい人がなかなか編集できずに困ることがあります。そこである程度の時間が来たら注意を促すメッセージを画面に表示させる事などはエクセルで出来ますでしょうか？またそれ以外でもこの様な事をうまく処理できる方法はございますでしょうか？お分かりになります方、どうぞよろしくお願いいたします。

No.4 ベストアンサー 回答者： at121 回答日時： 2005/02/24 12:27

Workbookのモジュールに以下マクロを設定

Workbook_Open　のとき　ReadOnlyなら　起動時刻　利用制限時間（分）後に　利用制限ご注意　の　メッセージボックスを表示　：必要なら　Msgboxをモーダルにする。

↓Workbookのモジュール↓


Dim 利用制限時間 As Integer

Private Sub Workbook_Open()

If Not ThisWorkbook.ReadOnly Then
利用制限時間 = 10 '分 + 起動時刻:Now
警告時刻 = Now + 利用制限時間 * TimeValue("00:01:00") '分に変換
Application.OnTime 警告時刻, "ThisWorkbook.利用制限ご注意"
End If
End Sub


Private Sub 利用制限ご注意()
警告文 = "共用ファイル「　" + ThisWorkbook.FullName + "」" + vbCrLf
警告文 = 警告文 + "　利用制限時間　" + CStr(利用制限時間) + "　分 を経過しました。" + vbCrLf
警告文 = 警告文 + "保存して、閉じて、読出専用で開いてご利用ください。"
MsgBox 警告文, vbCritical, "共用ファイルの利用について"

End Sub

この回答へのお礼

回答ありがとうございました。マクロ初心者なのでそのまま利用させて頂きました。まさしく私の望んでいた処理が出来ました。ありがとうございました。

お礼日時：2005/02/24 20:06

No.3 回答者： 0shiete 回答日時： 2005/02/24 10:14

[ツール]-[ブックの共有]

というのがありますが、これはどうでしょうか？

使ったことがなく申し訳ないのですが、
ヘルプを見たところ、質問者様のなされたいことが
可能なような気がします。

この回答へのお礼

ご回答ありがとうございました。私もブックの共有は試したのですがちょっと私の望んでいるものには少し足りない様でした。

お礼日時：2005/02/24 20:09

No.2 回答者： Piazzolla 回答日時： 2005/02/23 23:00

URLの上から17番目に、「宵待ち草」というのがありますが、どうでしょうか。

。

参考URL：http://www.vector.co.jp/vpack/browse/person/an02 …

この回答へのお礼

ご回答ありがとうございました。会社のエクセルがバージョンが低く会社では残念ながら使えなそうなのですがこういうソフトがあるのですね。勉強になりました。

お礼日時：2005/02/24 20:11

No.1 回答者： hogehage 回答日時： 2005/02/23 21:47

ファイルをオープンしたときに、そのときの時間をどこか特定のセルに書いておき、後はWorksheet_Changeなどで更新がある都度に時間を比較することで、一定時間が過ぎているか判定します。

そしてメッセージを出すという感じでどうでしょうか？

この回答へのお礼

ご回答ありがとうございました。エクセルが初心者なのでWorksheet_Changeというのが分からなかったのですが勉強してみたいと思います。ありがとうございました。

お礼日時：2005/02/24 20:14