Comment savoir si un classeur Excel est protégé

Question

Je peux utiliser les propriétés d'une feuille de calcul Excel pour indiquer si la feuille de calcul est protégée (Worksheet.Protection, Worksheet.ProtectContents, etc.).

Comment puis-je savoir à l'aide de VBA si l'intégralité du classeur a été protégée?

Answer 1

a trouvé la réponse moi-même:

J'ai besoin Workbook.ProtectStructure et Workbook.ProtectWindows propriétés.

Answer 2

Worksheet.ProtectedContents est ce que vous auriez besoin d'utiliser sur chaque feuille de travail.

donc je mis en place une boucle comme ceci:

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 

La fonction retourne True si chaque feuille de calcul est protégée, et False s'il y a des feuilles de calcul ne sont pas protégés. J'espère que c'est ce que vous cherchiez.