エクセル、ワークシートが保護されているかどうかを判断するVBAは？

質問

以下のように書いてもダメでした。
どう直せばよいでしょうか？

Sub TEST2()
Dim n As Integer
n = ThisWorkbook.Worksheets.Count
For i = 1 To n
If Worksheets(i).Protect = False Then
MsgBox Worksheets(i).Name
End If
Next
End Sub

回答No.1

snoopy64 · ベストアンサー

If Worksheets(i).ProtectContents Then
に変えればイケます。
頑張ってくださいヽ(^。^)ノ

お礼

ワークシートが保護されていないことをチェックしたかったので下記のようにしました。間違ってないですよね？
ありがとうございました。

Sub TEST2()
Dim n As Integer
n = ThisWorkbook.Worksheets.Count
For i = 1 To n
If Worksheets(i).ProtectContents = False Then
MsgBox Worksheets(i).Name
End If
Next
End Sub

回答No.4

imogasi

＃２です。＃３が入りましたが
If ws.ProtectContents Then
のIf ws.ProtectContents＝True Then　のTrueを略しました。よくこう言う例が載ってますので使いました。
IF分のIf　Thenの中に限ります。
Falseを聞くときは、書いておられるとおりでOK、略せません。

お礼

なんどもありがとうございました。

回答No.3

snoopy64

＃１です。
はい、それで間違ってないです！

「Worksheets(i).Protect」はプロテクトをかけるメソッドで、成功するとTrueを返します（たぶん）。

「Worksheets(i).ProtectContents」はプロテクトが掛かっているかどうかの状態をTrueかFalseで返します。

蛇足ですが、「ProtectContents」自身がBoolean（TrueかFalse）なので、
If Not Worksheets(i).ProtectContents Then
とも書けます。

頑張ってくださいヽ(^。^)ノ

お礼

なんどもありがとうございました。

回答No.2

imogasi

Sub test05()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents Then
MsgBox ws.Name
End If
Next
End Sub

お礼

ワークシートが保護されていないことをチェックしたかったので下記のようにしました。間違ってないですよね？
ありがとうございました。

Sub test05()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents = False Then
MsgBox ws.Name
End If
Next
End Sub