2019年5月19日VBAハイパーリンクをクリックすると編集可能状態で開いてしまうExcelブックが増えてくると管理が結構大変になってきます。フォルダ分けをしたのはいいものの、「あのブックどこだっけ?」とエクスプローラを開いて探し回ったことは誰でも経験があることでしょう。そのような経験を経て、すぐ開けるようにとショートカットを作ったりリンク集を作ったりして効率化を図っていると思います。私も同様でリンク集のようなブックを作って管理しています。リンク集は便利でいいのですが、1つ不便な点があります。それは、ハイパーリンクでブックを開くと編集可能状態で開いてしまうことです。個人的なブックだけであればあまり問題はないのですが、仕事で使うファイルはファイルサーバに置いてあることが多く、不特定多数の人が編集や参照するようなブックも少なくありません。このようなファイルを参照するだけで編集するつもりがなくてもハイパーリンクの場合は編集可能な状態で開いてしまうため、間違えて上書き保存してしまうミスや本当に編集したい人が編集可能状態で開けずに作業の邪魔をすることにもつながります。このような場合は対象のブックを読み取り専用で開くことで他の人の編集を邪魔をせずに済みます。読み取り専用で開くには主に2つの方法があります。1つは対象のブックを保存するときにオプション設定で「読み取り専用を推奨する」にチェックを付ける方法で、次から開くときに読み取り専用で開くかどうかを確認するダイアログが表示されるようになります。この方法は各ブックで読み取り専用の推奨の設定をしなければならず、関係者全員にお願いしてもなかなか周知徹底は難しいでしょう。“C:\aaa\a.xlsx”」のように実行すると読み取り専用で開きます。この方法は先の「読み取り専用を推奨する」の方法とは異なり、ブックに特別な設定をする必要がありません。VBAを使えばEXCEL.EXEの場所はOSやOfficeのバージョンに関わらずApplication.Pathを使って特定することが可能です。詳細は「VBAでExcel.exeのフォルダやフルパスを取得する」をご参照ください。以下に紹介する読み取り専用で開くコードは2つ目の「/r」スイッチでの起動方法をShell関数で呼び出して読み取り専用で開くことを実現しています。/r」を設定すると、エクスプローラでブックを右クリックして送るメニューを見ると、作ったショートカットが表示され、それでブックを開くと読み取り専用になります。SendToフォルダのショートカットファイル名がそのまま「送る」配下の表示名になります。ハイパーリンクのクリックで読み取り専用で開くコード以下の図はA列にファイルパスとそのファイルへのハイパーリンク、B列に読み取り専用のハイパーリンクを設定しています。B列のハイパーリンクをクリックすると以下のコードにより左のセルのA列のブックが読み取り専用で開きます。A列のハイパーリンクは普通のハイパーリンクですが、B列のハイパーリンクは自分自身のセルを参照するハイパーリンクを設定しています。ここで重要なのは、B列で「ハイパーリンクを貼っている」という状態であることです。ハイパーリンクであることが重要かというと、ハイパーリンクのクリックイベントを契機としてブックの「Workbook_SheetFollowHyperlink」メソッドやシートの「Worksheet_FollowHyperlink」メソッドを利用したいためです。B列のハイパーリンクを自分自身のセルにしているのも理由があります。それは、「Workbook_SheetFollowHyperlink」メソッドと「Worksheet_FollowHyperlink」メソッドのどちらもハイパーリンクで対象のファイルが開いたあとに呼び出されるため、実際のブックに対してハイパーリンクを貼っていると読み取り専用で開くためのコードが実行される前に普通の呼び出され方でブックが開いてしまいます。それを防ぐためにブックが開かないように自分自身のセルを参照するハイパーリンクにしています。Worksheet_FollowHyperlinkSheet1などのワークシートモジュールに書く場合はWorksheet_FollowHyperlinkメソッドになります。EXCEL.EXEの場所はApplication.Pathで取得できます。取得できるのはEXCEL.EXEが格納されているフォルダまでですので、\EXCEL.EXEを連結させています。-1).Value」で取得しています。Worksheet_FollowHyperlinkとWorkbook_SheetFollowHyperlinkの両方が書いてある場合は、先にWorksheet_FollowHyperlinkが実行され、そのあとにWorkbook_SheetFollowHyperlinkが実行されます。SubWorkbook_SheetFollowHyperlinkThisWorkBookモジュールに書く場合はWorkbook_SheetFollowHyperlinkメソッドになります。Workbook_SheetFollowHyperlinkとの違いはメソッド名とその引数が違うだけです。SubPERSONAL.XLSBは編集のためロックされています読み取り専用でブックを開く際にExcelのプロセスが新規で起動されることがあります。そのときに「使用中のファイル」ダイアログが表示されます。「PERSONAL.XLSBは編集のためロックされています。」とありますが、読み取り専用ボタンを押すと対象のブックが読み取り専用で開きます。このダイアログが表示される理由は、PERSONAL.XLSBは先に開いたExcelが編集可能状態になっているためで、それ以降に起動されたExcelには編集権がなく読み取り専用でしか参照できなくなります。Excel作業をVBAで効率化シェアお問合わせTOPへ。