Protéger tout le classeur sauf ne plage précise d'une feuille précise

A

alex67800

XLDnaute Impliqué

• 8 Mars 2009

• #2

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Bonjour ripou,

Peut-être tout simplement en selectionnant ta plage, puis click droit>>>>format cellule>>>>protection et décocher vérouillé?

Edit: Ne pas oublier de mettre les codes inverse pour les barre de menu, etc...., car j'ai pu lire que souvent plus moyen de la faire réaparaitre.

Donc les mettres dans thisworkboock_beforeclose

Enfin ce n'est qu'un avis!

 

Dernière édition: 8 Mars 2009

Vote positif 0 Vote négatif

R

ripou

XLDnaute Nouveau

• 8 Mars 2009

• #3

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Non, non, je voudrais que ce soit ds la macro.

J'ai fait un fihier simplifié en PJ, il y a juste à cliquer sur "Protéger" (ne pas mettre de mot de passe)ou "Déprotéger" pour que ça fonctionne. Dc ma question, quelle ligne je dois rajouter à lamacro "Protéger" pour que A2 et A3 de la feuille 2 ne soit pas protéger ???

Merci encore

Ripou

 

Pièces jointes

• TEST Ripou.xls

  33.5 KB · Affichages: 188

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Mars 2009

• #4

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Salut à tous ,

le code à mettre ici ( en bleu )

Code:

Dim ws As Worksheet
rrr = InputBox("donnez le mot de passe svp")
[COLOR="Green"]' n'oublie pas de sélectionner la feuille concernée[/COLOR]
[COLOR="Blue"][B]
    Sheets("Feuil2").Select
    Range("A2:A3").Select
    Selection.Locked = False[/B][/COLOR]

 

Dernière édition: 8 Mars 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #5

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Bonsoir


Il suffisait d'aller farfouiller dans le code généré par le macro recorder 🙄

Code:

Sub Protéger()
Dim rrr
Dim ws As Worksheet
rrr = InputBox("donnez le mot de passe svp")
For Each ws In Worksheets
If ws.Name = "Feuil2" Then
ws.Range("a2:a3").Locked = False
ws.Range("a2:a3").FormulaHidden = False
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
Else
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
End If
Next
End Sub

Edition: bonsoir (bing) phlaurent55

 

Vote positif 0 Vote négatif

R

ripou

XLDnaute Nouveau

• 8 Mars 2009

• #6

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Merci à vous, ça avance ... Néanmoins, j'ai une "erreur d'exécution1004 = Impossible de définir la propriété Locked de la classe Range", sauriez-vous d'où ça vient ?

Merci

 

Vote positif 0 Vote négatif

R

ripou

XLDnaute Nouveau

• 8 Mars 2009

• #7

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

wOUOUOUH , please ? qqun aurait une réponse ?
Merci

Ripou

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #8

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Re


Pas d'erreur sur le classeur de test fourni par tes soins dans ton message de 17h57.

Donc il te faut chercher par toi-même ce qui cloche.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Mars 2009

• #9

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Re, Ripou

Dans mon message de 18h05,

peux-tu mettre les lignes bleues en début de procédure et essayer

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #10

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Re


phlaurent55: cela fonctionne , même sans le Select.

(je parle du code que j'ai posté à 18h17)

 

Vote positif 0 Vote négatif

R

ripou

XLDnaute Nouveau

• 8 Mars 2009

• #11

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Je ne trouve toujours pas ..., et ça fait déjà un bout de temps que je cherche ! Je vous ai mis le fichier complété avec vos recommendations, si vous pouvez le regarder ce serait chouette

A+
Ripou

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #12

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Re



Justement, j'ai fait les tests avec ton fichier

et sur mon pC, il n'y a pas d'erreur.

 

Vote positif 0 Vote négatif

R

ripou

XLDnaute Nouveau

• 8 Mars 2009

• #13

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Peux tu me le renvoyer en PJ ?

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #14

Re : Protéger tout le classeur sauf ne plage précise d'une feuille précise

Re


Voici le fichier qui chez moi fonctionne.

 

Pièces jointes

• OKTEST Ripou-1.xls

  30.5 KB · Affichages: 122

Vote positif 0 Vote négatif