macro pour proteger les feuilles d'un classeur sauf une

DoubleZero

XLDnaute Barbatruc

• 14 Décembre 2012

• #2

Re : macro pour proteger les feuilles d'un classeur sauf une

Bonjour, vbamar, le Forum,

Peut-être ainsi :

Code:

Sub Onglets_protéger_sauf_un()
Dim F As Worksheet
For Each F In Sheets
If F.Name <> "libre" Then
    F.Protect "mdp"
    F.EnableSelection = xlUnlockedCells
End If
Next
End Sub

A bientôt

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Décembre 2012

• #3

Re : macro pour proteger les feuilles d'un classeur sauf une

Bonsoir vbamar,

Si j'ai bien compris, ceci devrait faire l'affaire :

Code:

Sub mdp()
Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name = "libre" Then
          ws.Unprotect Password:="mdp"
          Else
          ws.Protect Password:="mdp"
       End If
   Next ws
End Sub

Cordialement.

Oups, content de te croiser chère Ânesse, un vrai plaisir de te voir revenue !
Bises à toi.

 

Dernière édition: 14 Décembre 2012

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Décembre 2012

• #4

Re : macro pour proteger les feuilles d'un classeur sauf une

Re-bonjour, bonjour, Papou-net ,

Merci, Papou-net, je reviens pour t'embrasser également .

A bientôt,

 

Vote positif 0 Vote négatif

urbanito1

XLDnaute Occasionnel

• 14 Décembre 2012

• #5

Re : macro pour proteger les feuilles d'un classeur sauf une

bonsoir le forum
vbamar
Papou-net, Double zéro
je me joins à vous , ça m'intéresse même si pas expert vba
question : comment déprotéger?
j'ai essayé en retirant la macro mais ça ne marche pas...

merci
urbanito

 

Pièces jointes

• feuille libre.xlsm

  13.6 KB · Affichages: 48

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2012

• #6

Re : macro pour proteger les feuilles d'un classeur sauf une

Bonsoir

Avec UnProtect tout simplement (qui était déjà dans le code précédent
(ou avec la macro qui rend inutile la protection des feuilles sous Excel ...)
Sub dpws()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
ws.UnProtect Password:="mdp"
End If
Next ws
End Sub

 

Dernière édition: 14 Décembre 2012

Vote positif 0 Vote négatif

V

vbamar

XLDnaute Nouveau

• 14 Décembre 2012

• #7

Re : macro pour proteger les feuilles d'un classeur sauf une

Bonsoir DoubleZero, Bonsoir Papou-net
merci pour vos réponses.
en fait j'ai été un peu trop succinct dans ma demande
je cherche à faire une macro qui protège et deprotege les feuilles du classeur d'ou le "if, then, else" pour la réciproque
mais cette macro doit aussi exclure la feuille "libre"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2012

• #8

Re : macro pour proteger les feuilles d'un classeur sauf une

ReBonsoir

vbamar
Et moi je pue de la g..ule ?
As-tu lu ce que je dis dans mon précédent message?
Cela ne t'interpelle pas?

 

Dernière édition: 14 Décembre 2012

Vote positif 0 Vote négatif

V

vbamar

XLDnaute Nouveau

• 14 Décembre 2012

• #9

Re : macro pour proteger les feuilles d'un classeur sauf une

bonsoir Staple1600
je ne voulais pas te vexer, je n'avais pas rafraichis la page et le temps de rédiger mon message ...
j'ai testé ta proposition et on est sur la bonne voie.
la feuille "libre" a aussi un code, mais au cas ou elle serait deproteger, il faudrait la protéger avec SON code pour qu'elle soit traité en erreur par le reste de la macro
merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Décembre 2012

• #10

Re : macro pour proteger les feuilles d'un classeur sauf une

re

pas vexé ( d'ou la présence de dans mon précédent message
inquiet oui car cela ne te parle pas ?

(ou avec la macro qui rend inutile la protection des feuilles sous Excel ...)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

V

vbamar

XLDnaute Nouveau

• 14 Décembre 2012

• #11

Re : macro pour proteger les feuilles d'un classeur sauf une

re,
elle doit être bien celle là!
mais j'ai besoin de deproteger la feuille "libre" sans qu'on puisse toucher aux autres
c'est ça mon pb
j'ai fait comme ça et ça marche

On Error Resume Next
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "libre" Then
wSheet.Protect Password:="mdp_libre"
Else
If ws.ProtectContents = True Then
ws.Unprotect Password:="mdp"
Else
ws.Protect Password:="mdp"
End If
End If
Next ws

Cliquez pour agrandir...

merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Décembre 2012

• #12

Re : macro pour proteger les feuilles d'un classeur sauf une

bonsoir le forum
vbamar
Papou-net, Double zéro
je me joins à vous , ça m'intéresse même si pas expert vba
question : comment déprotéger?
j'ai essayé en retirant la macro mais ça ne marche pas...

merci
urbanito

Cliquez pour agrandir...

Bonsoir urbanito1,

Je ne suis pas certain d'avoir compris ton besoin, mais je te propose quand-même cette solution :

Code:

Sub mdp()
Dim ws As Worksheet
    For Each ws In Worksheets
        If Not ws.Name = "libre" Then
          If ws.ProtectContents = True Then
            ws.Unprotect Password:="mdp"
            Else
            ws.Protect Password:="mdp"
          End If
       End If
   Next ws
End Sub

A chaque exécution, cette macro fonctionne en bascule. Elle teste si les feuilles sont protégées : si oui, elle les déprotège, si non, elle les protège. Seule la feuille "libre" reste déprotégée en permanence car elle est ignorée par le premier test conditionnel.

Espérant avoir répondu.

Cordialement.

 

Vote positif 0 Vote négatif