Discussion :

[lmc71]

Bonjour le Forum
Je travaille actuellement sur un tableau avec plusieurs colonne (photo jointe). les trois premières colonnes B-C-D sont colonnes libres, les autres de E à K sont des colonnes à formules.

J'utilise ce code pour verrouiller ma feuille et j'ai déverrouillé les cellules des colonnes B-C-D.

Code :

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

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123", UserInterfaceOnly:=True 'Enlève et remet le mot de passe

Or j'ai remarqué que le tableau n'est plus opérant lorsque la feuille est protégée, et il l'est dès que je déprotège la feuille.
D'où ma question: Est-il possible de faire fonctionner ce tableau sur une feuille protégée ?
Si Oui comment.
Merci
Cordialement

[78chris]

BOnjour

Non le Tableau perd sa flexibilité en cas de VBA.

J'ai posté ce code qui permet néanmoins d'ajouter des lignes comme s'il ne l’était pas https://www.developpez.net/forums/d1...tion-tableaux/

[lmc71]

Bonjour 78Chris
Merci pour ta rapidité de réponse qui est toujours aussi pertinente.
J'ai regardé vite fait ton travail et je vais l'étudier et essayer de l'adapter à mes besoins.
Tu as fait du très beau travail.
Merci
Cordialement

[lmc71]

Bonjour 78Chris

J'ai placé tes codes dans mon fichier et après arrangement, c'est parfait l'ajout de données est effectif. Comme tu t'en doute, il y a un MAIS.
Je m'étais rendu compte auparavant qu'avec le mode protégé activé, nous n'avions pas accès aux filtres. J'ai donc placé deux boutons qui me lance plusieurs macros dont une enlève le mot de passe (MDP) et l'autre me remet le MDP après utilisation du filtre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Sélection_Solde() '           POUR l'action pour le tri de SOLDES
'
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123", UserInterfaceOnly:=True 'Enlève et remet le mot de passe
 
    'Call ReduitRuban
 
 Call MDP_Ote
'
  'ActiveSheet.Shapes("Button 8").Select
  'Selection.ShapeRange.ZOrder msoSendToBack
 
   ' Range("b8:b8").Select
    '
End Sub

Après plusieurs vérification. Il s'avère que les flèches de filtrage sont inopérantes lorsque le mode protégé est activé. Essai effectué sur ton classeur, et il en est de même.
A mon niveau je n'arrive pas utiliser de code pour enlever et remettre le code afin d'utiliser les filtres.
Est-ce que tu le savais ?
Cordialement

[78chris]

Bonjour

L'une des options de protection permet de filtrer

Code :

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

AllowFiltering:=True

option à ajouter dans la ligne de protection dans le Workbook_Open et le Workbook_SheetChange

[lmc71]

Re
J'ai placé ton code dans les deux endroits indiqués, mais étant nul dans la compréhension fine du VBA, je ne sais pas exactement à quelle ligne je dois réellement le glisser et où je l'ai placé dans le Workbook_SheetChange Excel ne l'accepte pas, lorsque j'essaie d'inclure une nouvelle donnée.
Peux-tu me diriger ?

Dans le Workbook_Open, voila où je l'ai placé. Est-ce correct ?

Code :

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

  If Sh.ProtectContents And Sh.Name <> "Feuil3" Then Sh.Protect UserInterfaceOnly:=True, AllowFiltering:=True, Password:=Monpass

Cordialement