ハイパーリンクをコマンドボタンで開きたい②

Question

お世話になっております。
以前こちらで下記の質問をしたものです
「ハイパーリンクをコマンドボタンで開く方法」

こちらで回答して頂いた方法通りで運用できていたのですが、
今日はいつも通りコマンドボタンで開こうとするとボタンが反応しなくなりました。
なんどクリックしてもエラーも何も起きないのです。
コマンドボタンを作り直したり、最適化したりしましたが変化はありませんでした。
そして元のテーブルのリンクをクリックすると「このファイルは開けません」とエラーがでました。

パスを知らないうちに変更してしまったのかと思い、もう一度フォルダーのパスをコピーし貼りつけると
やはり同じエラーが出たので、試しにパスを貼りつけたとき自動でつく「""」これを削除してみたところ
「file:///~」から始まるパスに自動で切り替わりました。
file:///～のパスをテーブル上からクリックするとフォルダーを開けるようになったのですがどうしてこのようなことが起こるのでしょうか？

今まではfile:///～のぱすでなくても開いていたのですが・・・
また、これはまた一からパスを変更しなければいけないのでしょうか？
レコードが全部で200件を超えてくるので手作業で直すとなるとすごく苦しいです・・・

申し訳ありませんが回答の方宜しくお願い致します。

Answer 1

昨今のセキュリティ事情を考えると、ハイパーリンクでローカルパスを開くのは不確実な方法です。
素直にシェルを使って　エクスプローラーを呼び出して、指定のフォルダーを開かせるほうが確実です。

その場合、VBA には shell を使う関数が用意されています。

Dim i As Integer
' C:\temp のフォルダをエクスプローラーで開く
i = Shell("C:\Windows\explorer.exe C:\temp")

この場合の動作は、コマンドプロンプトから C:\Windows\explorer.exe C:\temp を実行したときと同様です。