エクセルのマクロについて

質問

お世話になります。エクセル２００７のマクロについてですが、「Ａ」というBOOKがありその中の任意のセルをクリックするとハイパーリンクで「Ｂ」というＢＯＯＫが開くようになっています。

ここで「Ｂ」が開いた時点で自動的に「Ａ」を保存しないで終了させたいのですが、マクロの組み方がわかりません。

Sub Sample1()
Workbooks("BookA.xlsx").Close
End Sub

と記述するとBook Ａが閉じるのは調べてわかったのですが、ハイパーリンクでＢが開いた時点でこのマクロを動かすようにするにはどうしたらいいのでしょうか？何か別の方法があるのでしょうか？

宜しくお願いします。

回答No.2

keithin · ベストアンサー

ＢｏｏｋＢが，「ジブンがハイパーリンクによって開かれた」ことを検知する方法はありません。
これの意味することは…

方法１：Ａに，Ｂを開かせると同時に自分を閉じさせるように仕込む方法

ブックＡの，ハイパーリンクを埋めたシートを開く
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_FollowHyperlink(byval Target as hyperlink)
thisworkbook.close false
end sub

ファイルメニューから終了してエクセルに戻り，ブックＡを一度保存する。
ハイパーリンクを踏むと，Ｂを開き，自分を閉じます。

方法２：Ｂに，問答無用で「Ａを閉じる」シクミを埋めておく方法

ブックＢの標準モジュールに，下記のマクロを登録しておく

sub Auto_Open()
on error resume next
workbooks("BookA.xlsx").close false
end sub

ブックＢを保存し，閉じておく。
Ｂを開くと，Ａが先に開いてあれば，Ａを閉じる。

お礼

ご回答ありがとうございます。

>ＢｏｏｋＢが，「ジブンがハイパーリンクによって開かれた」ことを検知する方法はありません。

なるほどです。ご回答の通りにやってみたところ無事Ｂｏｏｋ　Ａ　を閉じる事に成功しました。大変助かりました。ありがとうございます。

回答No.1

・真 綾・（@Ma-yan_bh1011）

http://www.google.co.jp/search?q=vba+%E9%96%8B%E3%81%84%E3%81%9F%E3%81%A8%E3%81%8D&sourceid=ie7&rls=com.microsoft:en-US&ie=utf8&oe=utf8&rlz=1I7GGHP_ja&redir_esc=&ei=BdqXTvDfJ4P2mAW-u9GDAg

もしくはHYPERLINKじゃなくボタンで開くように変えるか。

お礼

ご回答ありがとうございます。URLも拝見させていただきました。色々と書かれていて参考になりました。またよろしくお願いいたします。