Protection d'une feuille à l'exception d'une plage de cellules

[papounez]

Bonjour à tous,

J'ai dans une feuille de calcul un tableau qui doit-être protégé à l'exception d'une colonne. J'ai donc protégé toute la feuille et je n'arrive pas à enlever la protection de la colonne H !

Ci-joint le code pour la protection, je ne joins pas le fichier car il est trop volumineux :

Cette ligne génère un message d'erreur :
Sheets(strSheetNameIST).Protection.AllowEditRanges.Add Title:="Plage1", Range:=Range("H65536").End(xlUp).row

Celle là fonctionne et protège toute la feuille (strSheetNameIST) :
Sheets(strSheetNameIST).Protect Password:="toto", DrawingObjects:=True, contents:=True, Scenarios:=True

Je pense qu'il faut que je boucle sur les cellules de la colonne H de mon tableau, mais je n'y arrive pas 🙁

Merci pour votre aide, je tourne en rond, j'ai essayé pas mal de choses qui ne fonctionnent pas ce qui veut dire que je n'ai pas tout pigé 😱

 

[noviceAG]

Re : Protection d'une feuille à l'exception d'une plage de cellules

BONJOUR papounez? le Forum,
essaie ceci :

Sub Macro1()
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
Columns("H:H").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("H1").Select
End Sub

bon am

 

[papounez]

Re : Protection d'une feuille à l'exception d'une plage de cellules

BONJOUR papounez? le Forum,
essaie ceci :

Sub Macro1()
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
Columns("H:H").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("H1").Select
End Sub

bon am

Merci NoviceAg, je vais essayer ton code, sinon je viens de trouver aussi une réponse qui avait été donné par DAN que je viens de tester et ça marche 😀


" Dan
XLDnaute Barbatruc

Avatar de Dan

Date d'inscription: février 2005
Localisation: Liège
Version Excel : Excel 2004 (MAC)
Messages: 3 551

Par défaut Re😛rotection d'une partie d'une feuille excel
Bonjour,

1.fais ceci :

- Sélectionne les cellules qui peuvent être modifiées
- Va dans menu / Format / cellule et choisis l'onglet 'Protection'
- Là décoche la case 'Verouillée' puis OK

Ensuite place ton mot de passe via menu / outils / protection -> protéger Feuille.

2. Oui, sélectionne les feuilles en une fois, puis refais ce que je viens de t'expliquer ci-avant."