Deproteger toutes les feuilles d'un classeur

[Sylvie]

Bonjour,

je n'arrive pas à écrire, même à l'aide de l'enregistreur de macros, une macro me permettant de déprotéger toutes les feuilles de mon classeur:unsure:. Il y a une centaine de feuilles et aucun mot de passe.

Un petit code magique m'aiderait grandement

Merci à vous

Sylvie

 

[ChTi160]

Salut Sylvie
bonjour le Forum
tu veux déprotèger tes feuilles à l'ouverture, à la demande

dis nous tout
car on pourrait imaginer une boucle du genre

à l'ouverture

Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Unprotect
Next
End Sub

et l'inverse à la fermeture du Classeur

ou un bouton avec cette macro liée

sub Protect()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Unprotect
Next
End Sub

 

[CBernardT]

Bonjour Sylvie40 et ChTi60,

Une variante dans la syntaxe,

Sub DeProtectionFeuilles()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next i
End Sub

Et l'inverse :

Sub ProtectionFeuilles()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).protect
Next i
End Sub

Cordialement

Bernard

Message édité par: CBernardT, à: 06/07/2005 09:38

 

[Sylvie]

Bonjour Chti160, Bernard, le Forum

tu deviens mon ange gardien Jean Marie.
Première chose: ton tri (cf notre fil d'hier) vient de super bien marcher (je suis restée sur ta version 3 car dans ta version 4 l'ordre de mes 4 dernières feuilles n'etait pas celui là)
Deuxièmement : je viens de copier ta macro liée à un bouton et miracle !

Tu es mon sauveur
mais comme j'ai un nouveau souci sur mon appli il n'est pas impossible que je revienne par ici d'ici peu. J'ai une macro qui fait des siennes et qui est devenue toute folle, la pauvre !

Merci encore ainsi qu'à Bernard (je colle vos solutions dans mon cahier d'apprentissage).

Sylvie

 

[ChTi160]

Salut Bernard




je pense qu'il doit exister plusieurs Variantes

s'il exitait une commande Globale genre

WorkSheets.Unprotect

bonne Journée

Message édité par: ChTi160, à: 06/07/2005 09:44

 

[ChTi160]

Re Sylvie

Un Ange Maintenant !!!!! Arfffffffffffffff

pour ce qui est de la Version 4 d'Hier
tu peux en modifiant les noms dans la macro changer l'ordre des Feuilles on ne sait jamais.
tu intervertis les noms en Bleu et l'ordre est modifié et le tour est joué
Sheets('TOTALITE').Move After:=Sheets(Sheets.Count) 'dernière
Sheets('SALARIES').Move After:=Sheets(Sheets.Count - 1) 'avant dernière
Sheets('CHANTIERS').Move After:=Sheets(Sheets.Count - 2) 'etc
Sheets('RECAP').Move After:=Sheets(Sheets.Count - 3) 'etc

Bonne Journée

Message édité par: ChTi160, à: 06/07/2005 11:19