07
Oct
Dans un script VBA, on peut être amener à protéger ou ou à ôter automatiquement la protection d’un onglet. Mais avant n’oublié pas de tester si l’onglet est protégé.
Pour savoir si votre onglet est protégé ou pas, utilisez la commande « ActiveSheet.ProtectContents »
|
1 2 3 4 5 6 7 8 9 10 11 |
. ' Si l'onglet est protégé If ActiveSheet.ProtectContents Then 'vous pouvez donc oter la protection de l'onglet oterProtection End If . |
|
1 2 3 4 5 6 7 8 9 10 11 |
. ' Si l'onglet n'est pas protégé If Not ActiveSheet.ProtectContents Then 'vous pouvez donc mettre la protection mettreProtection End If . |
Pour oter la protection d’un onglet sous Excel utilisez la commande :
Sheets(nomFeuille).Unprotect Password:= »MonPassword »
|
1 2 3 4 5 6 7 8 9 |
. Function oterProtection(nomFeuille As String) Sheets(nomFeuille).Unprotect Password:="MonPassword" End Function . |
Pour mettre la protection d’un onglet sous Excel utilisez la commande :
Sheets(nomFeuille).Protect Password:= »MonPassword »
|
1 2 3 4 5 6 7 8 9 10 |
. Function mettreProtection(nomFeuille As String) Sheets(nomFeuille).Protect Password:="MonPassword" End Function . |