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

ripou · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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]

vbacrumble · 8 Mars 2009

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

ripou · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 8 Mars 2009

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

Peux tu me le renvoyer en PJ ?

vbacrumble · 8 Mars 2009

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

Re

Voici le fichier qui chez moi fonctionne.

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

ripou

XLDnaute Nouveau

alex67800

XLDnaute Impliqué

ripou

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

vbacrumble

XLDnaute Accro

ripou

XLDnaute Nouveau

ripou

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

phlaurent55

Nous a quittés en 2020

vbacrumble

XLDnaute Accro

ripou

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

ripou

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

Pièces jointes

Discussions similaires