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]

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

[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