Discussion :

[blackstrange]

Bonjour à tous,

Dans un de mes fichiers je cherche à protéger une grande partie de mes cellules de manière à ce que les utilisateurs de classeur ne puissent les modifier. Les cellules que je souhaite laisser "disponibles" sont éparpillées sur ma feuille et leur nombre est assez important. Avec le gestionnaire de noms j'ai sélectionné toutes ces cellules et j'ai nommé la plage "cellules_libres". Comment écrire en code vba : protéger toutes la feuille sauf cette plage ?
Mon code se situe dans un formulaire qui s'ouvre à l'ouverture du classeur et qui copie une feuille nomée "fiche" à la fin du classeur. C'est la copie de cette feuille que je souhaite protégé partiellemnt, les autres feuilles étant entièrement protégées à la modification.
J'ai déjà écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'En début de code je protège toutes les feuilles du classeur sauf la feuille "fiche" afin que le code fonctionne
Private Sub UserForm_Initialize()
    Dim i As Integer 
    For i = 1 To Worksheets.Count
    Worksheets(i).Visible = True
    Worksheets(i).Protect
    Next i
    Worksheets("Fiche").Unprotect
    'Toutes les feuilles sont visibles et protégées de la modification sauf la feuille "Fiche"
 End Sub

La seconde partie du code consiste à copier la feuille "fiche" et à la renommer, avant la fermeture du formulaire je souhaite protéger la dernière feuille du classeur (copie de "fiche") sauf la plage "cellules_libres", comment l'écrire ?

[napo123]

De base, tes cellules sont toutes dans le cas "Verrouillée si on protège la feuille."
Il te suffit donc de passer les cellules que tu désires laisser accesible en non-verrouillée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Selection.Locked = False

À noter que si tu le désires, tu peux autoriser les modifications en VBA sur des feuilles vérouillées. Faut juste rajouter un UserInterfaceOnly:=True dans ton protect :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Accueil").Protect Password:=PW, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

Edit : Quand je parle du Locked = False, il te faut en fait mettre, pour être précis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Fiche").Range("A1","A2","B4:B8").Locked = False

"A1","A2","B4:B8" correspondant aux cellules que tu veux laisser modifiable.

[blackstrange]

Merci pour ta réponse!

Si j'ai bien compris avec ta deuxième ligne de code, je peux par exemple copier quelque-chose dans une cellule de la feuille "Fiche" même si celle-ci est vérouiller ?

Pour ta 3ième ligne de code, comment faire si je ne souhaite pas écrire toutes les cellules modifiables dans le code vba ? estèce que passer par une plage nommée avec le gestionniare de noms focntionne ?

en tout cas merci beaucoup!

[napo123]

En verrouillant "Fiche" selon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Fiche").Protect Password:=PW, DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

tu peux encore modifier les cellules oui, mais uniquement par VBA.

(Attention, j'ai repris une partie de mon code : PW est en fait un string qui contient le mot de passe que tu souhaites donner pour la protection).

estèce que passer par une plage nommée avec le gestionniare de noms focntionne ?

Normalement oui, il te suffit d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Fiche").Range(cellules_libres).Locked = False

[blackstrange]

oki! merci pour tes explications!

Malheureusement cela ne fonctionne pas : j'ai un message d'erreur 1004 " erreur définit par l'application ou par l'objet" sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveWorkbook.Sheets("Fiche").Range(cellules_libres).Locked = False

je pense que cela vient du fait que lors de la copie de la feuille "Fiche", excel copie ma liste nommée "Cellules_libres", il y en a donc deux dans mon gestionnaire de noms mais elles ne correspondent pas à la même feuille. comment dire à excel de prendre en compte la plage de la bonne feuille ?

[gFZT82]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Fiche").Range("cellules_libres").Locked = False

Cordialement.

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("Fiche").Range("cellules_libres").Locked = False

même avec un nom il faut les "

[blackstrange]

:s cela ne fonctionne toujours pas..

erreu 1004 : "impossible de définir la propriété Locked de la classe Range"

La plupart des cellules contenues dans "Cellules_libres" sont fusionnées, cela pose un problème ou cela n'a rien avoir ?

merci de votre aide

[gFZT82]

Quand tu cherches à déverrouiller ta plage, ta feuille est bien déprotégée ?

[blackstrange]

oui.. j'ai écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Worksheets("Fiche").Visible = True
                Worksheets("Fiche").Unprotect
                    Sheets("Fiche").Cells.Locked = True
                    Sheets("Fiche").Range("Cellules_libres").Locked = False
                Worksheets("Fiche").Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

je ne vois pas pourquoi cela ne fonctionne pas.. mon fichier est gros et compliqué mais bon..

[gFZT82]

Effectivement, le problème ne vient pas directement de ton code, il faut chercher ailleurs.

[blackstrange]

Voila j'ai trouvé! la plupart des cellules de ma plage "Cellules_Libres" étant fusionnées, cela ne fonctionne pas.. j'ai mis ce petit bout de code et cela fonctionne désormais! Merci de votre aide!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim cell As Range
                Dim pl As Range
                Worksheets("Fiche").Visible = True
                Worksheets("Fiche").Unprotect
                Sheets("Fiche").Cells.Locked = True
                For Each cell In Sheets("Fiche").Range("Cellules_libres")
                    If cell.MergeCells = True Then
                        Set pl = cell.MergeArea
                        cell.UnMerge
                        cell.Locked = False
                        pl.Merge
                    Else
                        cell.Locked = False
                    End If
                Next cell
                Worksheets("Fiche").Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

[blackstrange]

une dernière question, j'ai un bouton sur ma feuille "Fiche" que je souhaite laisser actif, j'ai donc écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Fiche").Protect , DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

mais celui-ci est toujours protégé, quelqu'un à une idée ?

J'ai trouvé mon problème, erreur dans le choix de la macro! désolé pour le dérangement! problème résolu! merci à tous!