VBAでブック保護非保護を判定するには？

エクセルVBAでブックが保護されているのかどうかを判定するにはどう書けばいいのでしょうか？

If ActiveWorkbook.Protect Then

ではだめでした。

また、シート保護の判定方法も教えてください。

No.2 ベストアンサー 回答者： KenKen_SP 回答日時： 2006/07/19 14:49

こんにちは。

こんな感じで判別できますけど、もっと簡単な方法あるのかな？

・ブックが保護されているか？

　　With ActiveWorkbook
　　　　If (.ProtectStructure Or .ProtectWindows) Then
　　　　　　MsgBox "ブックは保護されてます"
　　　　Else
　　　　　　MsgBox "ブックは保護されてません"
　　　　End If
　　End With

・シートが保護されているか？

　　With ActiveSheet
　　　　If (.ProtectContents Or .ProtectDrawingObjects Or .ProtectScenarios) Then
　　　　　　MsgBox "シートは保護されてます"
　　　　Else
　　　　　　MsgBox "シートは保護されてません"
　　　　End If
　　End With

この回答へのお礼

お礼がおそくなり大変申し訳ありませんでした。
ありがとうございました。

お礼日時：2006/08/24 11:29

No.3 回答者： zap35 回答日時： 2006/07/19 14:51

「ツール」→「保護」→「ブックの保護」を選択すると

　□シート構成
　□ウィンドウ
があります。シート構成に対応するプロパティが
　ActiveWorkbook.ProtectStructure

ウィンドウに対応するプロパティが
　ActiveWorkbook.ProtectWindows
になります。どちらもタイプはBooleanです

この回答へのお礼

お礼がおそくなり大変申し訳ありませんでした。
ありがとうございました。

お礼日時：2006/08/24 11:30

No.1 回答者： misatoanna 回答日時： 2006/07/19 14:45

MsgBox "シート構成：" & ActiveWorkbook.ProtectStructure & Chr(10) & _

　　　　 "ウィンドウ：" & ActiveWorkbook.ProtectWindows
で、判断できます。（Excel2000）

シート構成が保護されていれば、は、
If ActiveWorkbook.ProtectStructure = True Then
でいかがでしょうか。

この回答へのお礼

お礼がおそくなり大変申し訳ありませんでした。
ありがとうございました。

お礼日時：2006/08/24 11:28