EXCEL2000 VBA ハイパーリンクの有るセルを選択出来ないようする 実験（失敗）

EXCEL2000 VBA  ハイパーリンクの有るセルを選択出来ないようする　実験

上の画像のように、関数HELPを作ったいるけどハイパーリンクの有るセルを選択して設定URLに飛んでしまうので困る時と、リンクを開きたい時がある。
開く、開かないはシートイベントの有効無効で切り替える事にする。
関連記事　http://telstar.blog.so-net.ne.jp/2011-09-06

シートは下のURLを利用した。

ttp://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/itiran.html

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 'ハイパーリンクの有るセルを選択したら下に移動
 'シートにこのマクロを設定
 'シート名を右クリック「コードの表示」
 'ttp://www.excel.studio-kazu.jp/mag2/backnumber/mm20040727.html
 
    If Target.Hyperlinks.Count > 0 Then ' Targetにハイパーリンクcountがあれば

        ActiveCell.Offset(1, 0).Select ' ActiveCellの一つ下へ

    End If

End Sub

の、コードをシートマクロに記述する。

結果

マウスで選択すると、リンク先に飛ぶ、キーボードで選択した時は選択出来ないで下に移動する

ハイパーリンクの有るセルを選択出来ないようする、いい方法はないかなぁ

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

ハイパーリンク関連資料

Sub ハイパーリンクの全削除()
'選択シートのハイパーリンクを全部削除する。
    ActiveSheet.Cells.Hyperlinks.Delete
End Sub

for i=1 to ActiveSheet.Hyperlinks.Count
        Cells(i, 1) = ActiveSheet.Hyperlinks(i).Range.Address 'セルのアドレス
        Cells(i, ２) = ActiveSheet.Hyperlinks(i).Address　　　　'リンクのアドレス　
next i

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

昼休みに考えた

ハイパーリンク一覧を別シートに作成　（セルアドレス、リンク内容）

無効にする　ハイパーリンクの削除
有効にする　ハイパーリンク一覧からハイパーリンクを設定する

近日公開予定　

 

 

タグ：Excel2000 VBA