Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Existe-il un moyen de protéger ou d'enlever la protection de plusieurs feuilles d'excel en même temps(100 à 200). Toutes les feuilles ont la même contexture et il n'ya pas de mot de passe. Merci.
Un petit code VBA comme çà te fera çà...... Attention TOUTES les feuilles seront déprotégés...
Option Explicit
Sub DeprotectionToutesLesFeuilles()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect
Next Feuil
End Sub
Si tu as un mot de passe commun unique tu peux aussi essayer ce code :
Option Explicit
Sub DeprotectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="THIERRY"
On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub
Enfin si tu veux reprotéger toutes tes feuilles avec un mot de passe tu peux lancer cette macro inverse...
Option Explicit
Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:="THIERRY" '
Next Feuil
End Sub
Voilà pas très compliqué...
Bon Samedi Soir
@+Thierry
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.