J'aurai besoin de protéger plusieurs feuilles dans un classeur. Étant débutant avec VBA, j'ai essayer ces formules:
Sub ProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Protect Password:="1234"
Next
End Sub
Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Unprotect Password:="1234"
Next
End Sub
Cependant, excel me donne une erreur de mot de passe,
pour protéger Sub ProtegeFeuilleActive()
ActiveSheet.Protect Password:="1234"
End Sub
pour protéger une feuille nommée "Titi" depuis une autre feuille Sub ProtegeFeuilleNommée()
Sheets("Titi").Protect Password:="1234"
End Sub
pour protéger le classeur Sub ProtegeLeClasseur()
ActiveWorkbook.Protect Password:="1234"
End Sub
Pour déprotéger
la feuille active ActiveSheet.Unprotect Password:="1234"
la feuille nommée Sheets("Titi").Unprotect Password:="1234"
le classeur ActiveWorkbook.Unprotect Password:="1234"
Protéger toutes les feuilles Sub ProtectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:="1234"
Next Feuil
End Sub
déprotéger toutes les feuilles Sub DeprotectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="1234"
Next Feuil
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
