Wie kann man sagen, wenn eine Excel-Arbeitsmappe geschützt ist

Question

I Eigenschaften eines Excel-Arbeitsblatt verwenden kann, zu sagen, wenn das Arbeitsblatt geschützt ist (Worksheet.Protection, Worksheet.ProtectContents usw.).

Wie kann ich VBA sagen zu verwenden, wenn die gesamte Arbeitsmappe ist geschützt?

Answer 1

Können Sie die Antwort selbst:

Ich brauche die Workbook.ProtectStructure und Workbook.ProtectWindows Eigenschaften.

Answer 2

Worksheet.ProtectedContents ist, was Sie würden verwenden müssen, für jedes Arbeitsblatt.

Also ich würde eine Schleife wie folgt aufgebaut:

Public Function wbAllSheetsProtected(wbTarget As Workbook) As Boolean 

Dim ws As Worksheet 

wbAllSheetsProtected = True

For Each ws In wbTarget.Worksheets 
    If ws.ProtectContents = False Then 
        wbAllProtected = False
        Exit Function 
    End If 
Next ws 

End Function

Die Funktion gibt True, wenn jedes Arbeitsblatt geschützt ist, und False, wenn es irgendwelche Arbeitsblätter sind nicht geschützt. Ich hoffe, das ist, was Sie suchen.