エクセルVBAで保護シートの数式取得

質問

ワークシートが保護されていても、そのセルA1にある数式をVBAで取得する場合
Sub test01()
MsgBox Sheets("Sheet1").Range("A1").Formula
End Sub
でできます。
しかし、このセルが書式設定で、「保護」→「表示しない」にチェックをいれられていると「実行時エラー1004」となり取得できません。
パスワードがわかっていれば保護を解除して問題はないのですが、わからない場合、数式を取得する方法はないでしょうか？

回答No.4

NuboChan

zip経由で見ることができそうですが
保護関係なので詳細はweb情報をチェックしてみて下さい。

お礼

ありがとうございます。なんとか解決しました。

回答No.3

kkkkkm

No.1は間違ってました。

パスワードなしでやってました。

お礼

はい、ありがとうございます。

回答No.2

kkkkkm

No.1の訂正です。

MsgBox .Range("A1").Formula
↓
MsgBox .Formula

お礼

ありがとうございます。

回答No.1

kkkkkm

ロックしたセルに、シート保護を解除せずにデータを書き込む。
https://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_040.html

上記のサイトで説明しているWorkbook_Openを設定して

With Sheets("Sheet1").Range("A1")
.FormulaHidden = False
MsgBox .Range("A1").Formula
.FormulaHidden = True
End With

で試してみてください。

お礼

ありがとうございます。これはパスワードがわからないと使えませんね。