エクセルで読み取り専用の時にセルに読み取り専用と表示したい

エクセルにて読み取り専用でファイルを開いているとき
セル(ここではA1とします)に”このファイルは読み取り専用です”
のような表示をさせることは可能でしょうか

No.2 ベストアンサー 回答者： neKo_deux 回答日時： 2017/07/05 17:11

標準の関数で読み取り専用の状態を取得するものは無いかも。

VBAを使うなら、

Alt+F11でVBEを起動。
VBAProject(ブック名)を右クリック-[挿入]-[標準モジュール]
追加されたモジュールをダブルクリックで開き、下記をコピペ。

Function IsReadOnly()
　　IsReadOnly = ActiveWorkbook.ReadOnly
End Function

Excelのシートに戻って、A1セルに、
=IF(IsReadOnly(), "このファイルは読み取り専用です", "")

とか。

No.3 回答者： WindFaller 回答日時： 2017/07/06 16:24

この方法も、マクロ付きブックになってしまいますが、マクロ関数で可能です。

VBAを使わないで、マクロ関数だけで数式を作ります。以前は、マクロにはならなかったのですが。

数式－名前の定義

名前：ChckRock
範囲：ブック
参照範囲：=GET.DOCUMENT(5)+NOW()*0

設定が終わったら、

適当な場所で、
=CHOOSE(ChkRock,"変更の保存はできません","リードオンリーです")

と貼り付けます。

No.1 回答者： CoalTar 回答日時： 2017/07/05 16:43

タイトルバーに表示されるだけじゃダメなんでしょうね

VBA使えばできそうです
http://www.moug.net/tech/exvba/0060034.html