| |
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':」がでます。
この回避方法も同時にご教示願えないでしょうか？
よろしくお願いします。
|
|
多摩川
- 07/8/28(火) 10:28 -
