A voir également:
- Protection
- K9 web protection - Télécharger - Contrôle parental
- Protection cellule excel - Guide
- Produit de protection solaire - Guide
- Protection renforcée - Accueil - Guide protection
- Désactiver la protection des cartouches hp - Forum Imprimante
3 réponses
Bonjour,
Deux macros :
Pour protéger
Pour déprotéger
A+
Deux macros :
Pour protéger
Sub Protéger()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Sheets
Ws.Protect Password:="Toto"
Next Ws
End Sub
Pour déprotéger
Sub Déprotéger()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Sheets
Ws.Unprotect Password:="Toto"
Next Ws
End Sub
A+
