Discussion :

[Vba14]

Bonsoir à tous,

Est-il possible de ne verrouiller que certaines cellules d'une feuille sans passer par la protection de la feuille.
Par exemple, je souhaite verrouiller toutes les lignes A de chaque feuilles, 10 au total.
Merci par avance pour vos réponses

[eriiic]

Bonjour,

non, puisque c'est la protection de la feuille qui rend actif le verrouillage des cellules.
eric

[Transitoire]

Bonjour, Votre question est-elle bien posée?
Par principe toutes les cellules d'une feuille sont protégées. mais cette protection ne devient active qu'avec la protection de la feuille.
On peut imaginer que vous enleviez la protection de toutes les cellules d'une feuille sauf celle que vous souhaitiez protéger, puis une protection de la feuille et ainsi toutes les cellules de la feuille non protégées seront actives.
Je ne sais si cela répond à votre question ou à vos besoins?
Cordialement

[Vba14]

Bonjour à tous,

Merci pour vos réponses. Je connais cette façon de faire, mais le soucis c'est que lorsqu'une macro, ce qui est mon cas, concerne une feuille verrouiller alors ça bloque, message d'erreur...
C'est cela que je souhaiterai éviter. Ce qui oblige à déverrouiller la feuille à activation de la macro et de la verrouiller de nouveau à la fin de la procédure.

[mercatog]

Verouille la feuille par code à l'aide de la méthode Protect avec le paramètre userinterfaceonly:=true

Regarde l'aide

[Philippe Tulliez]

Bonjour,
Il est possible d'écrire en VBA dans des cellules verrouillées à condition d'utiliser l'argument UserInterfaceOnly en lui donnant comme valeur True
Exemple

Code :

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

1
2
3
4
5
6
7
Sub T()
  Dim sht As Worksheet
  Set sht = ActiveSheet
  sht.Protect UserInterfaceOnly:=True
  Range("A1").Value = "Hello"
  Set sht = Nothing
End Sub

[Vba14]

En passant par ce genre de code, est-ce jouable ?

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("NOM DES COLONNES OU LIGNES A VERROUILLER"), Target) Is Nothing Then
    Target.Offset(0, 1).Select
    End If
End Sub

[Vba14]

l est possible d'écrire en VBA dans des cellules verrouillées à condition d'utiliser l'argument UserInterfaceOnly en lui donnant comme valeur True

Bonjour Philippe et merci,

Je n'ai que 4 ou 5 colonnes à verrouiller le reste doit rester accessible aux utilisateurs

[mercatog]

Deverouille les cellules que tu veux laisser accessibles
Protège la feuille par code avec, comme dit, userinterfaceonly:=true

J'ai le pressentiment que tu n'oses pas essayer

[Vba14]

Non je n'ose pas c'est vrai.

Ce que je propose m'a l'air plus simple, on empêche l'accès aux lignes et colonnes souhaitées. C'est surtout pour protéger les codes dans les cellules qui sont assez complexes. A moins que je puisse mettre ces formules dans des codes comme ça plus de soucis d'accessibilité ou pas, mais là est un autre sujet

Voici le genre de formule que l'on peut trouver

Code :

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

1
2
 
=SIERREUR(INDEX(Tableau1[NOM];EQUIV(Commandes!$D6;Tableau1[Num]);0);"")

[Philippe Tulliez]

Bonjour,

Ce que je propose m'a l'air plus simple, on empêche l'accès aux lignes et colonnes souhaitées

Ce n'est pas plus simple, c'est tout simplement la façon de faire normale si l'on veut empêcher un utilisateur d'effacer par mégarde des formules.
Si tu le savais, j'avoue ne pas comprendre le sens de ta question

[Vba14]

Je pensais tout simplement qu'avec un code je pourrais verrouiller certaine cellule sans que cela empêche le bon fonctionnement des macros.
De toute façon ma méthode ne fonctionne pas comme je le souhaite, alors je vais essayer vos propositions, qui est de déprotéger et reprotéger.
Désolé si je me suis mal exprimé

[mercatog]

Voilà tu n' as pas compris
1. Tu dévrouilles toutes les cellules
2. Tu verouilles les cellules à protéger
3. Par code tu protège la feuille avec le paramètre userinterfaceonly:=true

Voilà. Par la suite tu n'auras plus besoin de déprotéger/ protéger

[gambi]

Menu "Données" => "Validation de données".
Dans "Autoriser" choisir "Personnalisé" et dans la zone formule écrire ";;" (sans guillemets).

Ça sert à rien, mais c'est pour le fun !

[Philippe Tulliez]

Bonjour,

Menu "Données" => "Validation de données".
Dans "Autoriser" choisir "Personnalisé" et dans la zone formule écrire ";;" (sans guillemets)

Comme tu l'as justement écrit, cela ne sert à rien car cela ne protège pas d'une suppression pure et simple du contenu par simple pression sur la touche Delete(Suppr) ni d'un Copier/Coller

[Philippe Tulliez]

Bonjour,
Le code que j'ai publié est un exemple qui protège la feuille active et peut se mettre dans un module standard.
Tu peux appeler cette procédure par un bouton, depuis une autre procédure, à l'aide d'un raccourci clavier, en sélectionnant le nom de la procédure dans la boîte de dialogue "Macro" (Alt+F8)

[Vba14]

Ah ok, quel tebé je suis

[Vba14]

Bonsoir à tous,

Alors je suis passé par un bouton pour demander un mot de passe si l'on veut modifier les cellules verrouillées. Sauf que la protection ne se remets pas automatiquement donc j'ai mis en place une deuxième macro à l'activation de la feuille sauf que la protection est sans mot de passe. Ma question est donc simple comment ajouter un mot de passe à l'activation ?

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Cmb_Ecrit_Click()
Dim REP As String
REP = InputBox("MOT DE PASSE", "Accés au tableau")
If REP = "MDP" Then
ActiveSheet.Unprotect
End If
End Sub

Code :

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

1
2
3
4
5
 
Private Sub Worksheet_Activate()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

[mercatog]

Relis le paramètre userinterfaceonly de la méthode Protect

[Vba14]

Relis le paramètre userinterfaceonly de la méthode Protect

Bonjour mercatog,

Oups! j'avais oublié ça.

Mon problème est maintenant résolu. Merci à tous pour votre participation et votre aide
Bon dimanche
Amicalement