Protection de toutes les cellules, sauf certaines

[olafcoma]

Bonjour,

Tout d'abord, toutes mes félicitations pour ce forum ! Je ne connaissais rien à VBA il y a encore 10 jours, et avec l'aide des différents sujets, j'ai eu une réponse à toutes mes questions. Merci beaucoup donc !

Je termine ma macro, et là je bute sur un point :

J'ai diverses feuilles, et je voudrais que toutes les cellules de toutes ces feuilles soient protégées et non selectionnables à l'utilisation, mais qu'elles soient toutes accessibles et modifiabless via macro.

Toutes les cellules... sauf quelques unes : il y a une feuille où il faut qu'une plage de cellule seulement ("B4:Y25") soit accessible à la séléction et à l'écriture. Les autres cellules de cette feuille doivent restées bloquées de la même manière que toutes les cellules des autres feuilles.

Auriez vous une petite idée pour mettre ca en place ?

Merci beaucoup,

Cordialement,

Laurent

 

[Pierrot93]

Re : Protection de toutes les cellules, sauf certaines

Bonjour Laurent

peut être une solution, en protégant tes feuilles par vba, en utilisant l'argument "userinterfaceonly" se qui permet de modifier ces feuilles par macro sans problème.

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect Password:="toto", userinterfaceonly:=True
Next sh
End Sub

bonne fin d'après midi
@+

 

[olafcoma]

Re : Protection de toutes les cellules, sauf certaines

Bonjour Pierrot, merci pour ta réponse.

Effectivement, cela marche très bien pour toutes les feuilles dont j'ai besoin que toutes les cellules soient protégées. Belle avancée déjà 🙂

Par contre, pour ma feuille dont j'ai besoin que ma plage "B4:Y25" soit accessible à la selection/ecriture, je reste toujours bloqué...

 

[Pierrot93]

Re : Protection de toutes les cellules, sauf certaines

Re

si j'ai bien compris, tu dévérouilles la plage de cellules en question, click droit dans la plage sélectionnée, onglet protection, tu décoches "vérouillée"...soit manuellement avant protection ou par le code comme ci dessous :

Sheets("nomdetafeuille").Range("B4:Y25").Locked = False

bonne soirée
@+

 

[WDAndCo]

Re : Protection de toutes les cellules, sauf certaines

Bonsoir le Forum

Pour les cellule D2 et G2

Sheets("nomdetafeuille").Range("D2").Locked = False
Sheets("nomdetafeuille").Range("G2").Locked = False

Marche t'il aussi ou y a t'il une autre facon ?

Et comment faire le meme sur les colonnes D et G ?

D'avance merci

WD

 

[Pierrot93]

Re : Protection de toutes les cellules, sauf certaines

Bonsoir wd

pour D2 et G2

Sheets("nomdetafeuille").Range("D2,G2").Locked = False

pour les colonnes D et G

Sheets("feuil1").Range("D:D,G:G").Locked = False

bonne soirée
@+

 

[olafcoma]

Re : Protection de toutes les cellules, sauf certaines

Merci beaucoup, encore une fois, j'ai trouvé mon bonheur avec ton aide 🙂

Du coup je me pose une autre question : y'a t'il une possibilité de protéger le classeur (pour griser les fonctions du menu du style Afficher les feuilles, et autres), et de permettre tout de meme d'executer mes macros ?

 

[olafcoma]

Re : Protection de toutes les cellules, sauf certaines

Bon, en fait j'ai trouvé.

Avec des

ThisWorkbook.Protect Password:="truc"

et des

ThisWorkbook.Unprotect Password:="truc"

placés dans les macros aux bons endroits, et dans le Workbook_open, ca marche nickel.

Merci à vous !

A+