supprimer la protection de toute les feuilles en meme temps

Efgé

XLDnaute Barbatruc

• 22 Février 2010

• #2

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour,
Pour déprotéger les feuilles:

Code:

Sub non_protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Unprotect
Next
End Sub

Pour les protéger:

Code:

Sub protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Protect
Next
End Sub

Cordialement

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 22 Février 2010

• #3

Re : supprimer la protection de toute les feuilles en meme temps

Efgé à dit:

Bonjour,
Pour déprotéger les feuilles:

Code:

Sub non_protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Unprotect
Next
End Sub

Pour les protéger:

Code:

Sub protege()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
f.Protect
Next
End Sub

Cordialement

Cliquez pour agrandir...

Merci efgé

mais je doit crer un module ou le mettre dans le thisworkbook 😕

patrol

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Février 2010

• #4

Re : supprimer la protection de toute les feuilles en meme temps

Edit :
On peut ajouter en début de macro

Code:

Application.ScreenUpdating  = False

et en fin de macro.

Code:

 Application.ScreenUpdating  = True

Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Février 2010

• #5

Re : supprimer la protection de toute les feuilles en meme temps

Si vous le mettez dans le this workbook, vos feuilles ne seront protégées que lorsque le classeur sera fermé. Peut être pas très efficace...
Vous les mettez dans un module et vous les appelez avec des boutons par exermple.
Cordialement

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 22 Février 2010

• #6

Re : supprimer la protection de toute les feuilles en meme temps

Efgé à dit:

Si vous le mettez dans le this workbook, vos feuilles ne seront protégées que lorsque le classeur sera fermé. Peut être pas très efficace...
Vous les mettez dans un module et vous les appelez avec des boutons par exermple.
Cordialement

Cliquez pour agrandir...

😕 bon ben je suis pas doué 😱

vous serai t'il possible de le mettre dans le fichier que j'ai joint

comme ça cela serait fait correctement et je le garderait bien au chaud pour ne plus embeter personne avec ce qui est pour vous une banalité

merci

patrol

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Février 2010

• #7

Re : supprimer la protection de toute les feuilles en meme temps

Re
Voici le fichier en retour.
Cordialement

 

Pièces jointes

• Logiciel de comptabilité(2).zip

  34.5 KB · Affichages: 110

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 22 Février 2010

• #8

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour Efgé Patrol le forum
voilà
a+
papou 🙂

EDIT bah je peux pas te renvoyer ton fichier même en .zip trop gros!!!
a+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 22 Février 2010

• #9

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour Efgé,
moi je l'avais fait aussi mais pas moyen le fichier en .zip faisait 84,0 K ???
a+
papou 🙂

 

Vote positif 0 Vote négatif

patrol

XLDnaute Occasionnel

• 22 Février 2010

• #10

Re : supprimer la protection de toute les feuilles en meme temps

Paritec à dit:

Bonjour Efgé Patrol le forum
voilà
a+
papou 🙂

EDIT bah je peux pas te renvoyer ton fichier même en .zip trop gros!!!
a+

Cliquez pour agrandir...

pourtant il ne fait que 34 Ko😕

patrol

 

Vote positif 0 Vote négatif

miguelangelo

XLDnaute Occasionnel

• 25 Février 2010

• #11

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour Forum boujour à tous..

est ce qu'il est possible d'y rajouter un mot de passe ?
donc une macro qui verrouille toute les feuilles avec un mot de passe (tjs le meme)
mais aussi qui verrouille l'accès à la macro...

 

Vote positif 0 Vote négatif

D

didiercoca

Guest

• 6 Mai 2010

• #12

Re : supprimer la protection de toute les feuilles en meme temps

bonjour
est il possible de supprimer une partie des feuilles seulement?
j ai 3 feuilles sur 26 que je ne veuxpas proteger sinon toutes mes autres macro crees ne fonctionnent plus...
merci

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Mai 2010

• #13

Re : supprimer la protection de toute les feuilles en meme temps

Bonjour didiercoca, le fil
Ce fil parle de protection et vous parlez de suppression et ensuite de protection. Pas très clair....
Pour protéger toutes les feuilles sauf trois voila une proposition:

Code:

Sub protection_Feuille()
Dim f As Worksheet
exclure = "Feuil1,Feuil2,Feuil3,"
For Each f In ThisWorkbook.Worksheets
    If InStr(exclure, f.Name & ",") = 0 Then
        f.Protect
    End If
Next f
End Sub

Vous remplacer Feuil1, Feuil2 et Feuil3 par le nom de vos feuilles.
Cordialement

 

Vote positif 0 Vote négatif

D

didiercoca

Guest

• 6 Mai 2010

• #14

Re : supprimer la protection de toute les feuilles en meme temps

oups un tres grand merci pour la reponse...
c etait bien protection et non suppression dont je voulais parler...
c etait ca que je cherchais "exclure = "Feuil1,Feuil2,Feuil3,""

mais sur un office en anglais on doit marquer quoi??
encore merci

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Mai 2010

• #15

Re : supprimer la protection de toute les feuilles en meme temps

Re
Je ne connait pas la version "anglaise" de VBA.
Teste le code et si il y a plantage, donne la ligne incriminée (peut être sur un nouveau fil ?).
Cordialement

 

Vote positif 0 Vote négatif