|
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':」がでます。
この回避方法も同時にご教示願えないでしょうか?
よろしくお願いします。
|
|