protection feuilles excel

[snukky]

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.

 

[@+Thierry]

Bonjour Snukky et le Forum


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

 

[pbi]

j'ai telechargé Acyd. Impossible de l'installer sur mon pc ?

Peux tu me dire ce que j'ai oublié.

Merci

 

[david]

slt, perdu le code de demarage du pc, y a t'il un moyen de le remettre en marche celui et installé dans le bios merci.