Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30907 / 76738 ←次へ | 前へ→

【51091】既に開いています
質問  多摩川  - 07/8/28(火) 10:28 -

引用なし
パスワード
   B2以降のB列にブック名のリストがあり,
A2以降のA列にそのブック名のパスをまとめたシートがあります。
ブック名が書いてあるセルをダブルクリックすると
そのブックが開くように以下のコードを作成しました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Application.Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
  If Target.Column = 2 Then
    ChDir ActiveCell.Offset(, -1)
    Workbooks.Open ActiveCell
  End If
  Cancel = True
End Sub

上記コードでは,既に開いているブックをもう一度開こうとしても,
特に何のメッセージもなくイベントが終了します。

しかし,開いたブックに保存が必要な何らかの操作を行った状態で,
ブックをもう一度開こうとした場合,
「***.xls は既に開いています。〜〜〜」とメッセージが出ます。

このメッセージを表示させたくないのですが,どのようにしたら良いのでしょうか?
On Error Resume Next を Open の前に加えてみたのですが,だめでした。

なお,メッセージに対して「いいえ」を選択すると,
「実行時エラー '1004':」がでます。
この回避方法も同時にご教示願えないでしょうか?

よろしくお願いします。
0 hits

【51091】既に開いています 多摩川 07/8/28(火) 10:28 質問
【51094】Re:既に開いています ぱっせんじゃー 07/8/28(火) 10:40 発言
【51102】Re:既に開いています 多摩川 07/8/28(火) 15:21 お礼

30907 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free