A voir également:
- Protection
- K9 web protection - Télécharger - Contrôle parental
- Produit de protection solaire - Guide
- Protection cellule excel - Guide
- Sentinel protection installer - Télécharger - Antivirus & Antimalwares
- Protection en ecriture kodak ✓ - Forum Logiciels
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+
