VBA Travailler dans un classeur protégé

[zephir94]

Bonjour à tous,

Y a t'il un équivalent comme pour une feuille de ceci :

For Each ws In Sheets
  ws.Protect MdP, UserInterfaceOnly:=True
Next

mais pour un classeur protégé ?

Je pensais bêtement comme ceci

ThisWorkbook.Protect MdP2, UserInterfaceOnly:=True

mais non !

Merci pour vos aides

 

[JCGL]

Re : VBA Travailler dans un classeur protégé

Bonjour à tous,

Peux-tu essayer ceci :

Option Explicit
Sub Test()
Dim Ws As Object
Dim MdP As String
MdP = "jcgl"
For Each Ws In Sheets
  Ws.Protect MdP, UserInterfaceOnly:=True
Next
End Sub

A+ à tous