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

[ripou]

Bonjour à tous !

J'ai un classeur que j'ai protégé entièrement via ceslignes de formule

Sub Protéger()
Dim ws As Worksheet
rrr = InputBox("donnez le mot de passe svp")

For Each ws In Worksheets
If ws.Name = ("Accueil") Then
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ws.EnableSelection = xlUnlockedCells
ws.Protect
Else:
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=rrr
ws.EnableSelection = xlNoSelection
ws.Protect
End If
Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayGridlines = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Sheets("Accueil").Select

End Sub

Néanmoins, je voudrais apporter une modification, je veux que tout le classeur soit protégé (comme ça l'est actuellement) SAUF les cellules I6:I43 de la feuille intitulée "Concurrence", savez vous à quelles lignes je dois rajouter ?

Merci bcp

CDT, Ripou

 

[alex67800]

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!

 

[ripou]

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

 

[phlaurent55]

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

Salut à tous ,

le code à mettre ici ( en bleu )

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]

 

[vbacrumble]

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

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

 

[ripou]

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

 

[ripou]

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

 

[vbacrumble]

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.

 

[phlaurent55]

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

 

[vbacrumble]

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)

 

[ripou]

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

 

[vbacrumble]

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.

 

[ripou]

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

Peux tu me le renvoyer en PJ ?

 

[vbacrumble]

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

Re


Voici le fichier qui chez moi fonctionne.