XL 2019 Protection de la feuille Excel.

lcouaci · 4 Septembre 2021

Bonjour le forum,

Depuis peu, je galère sur la protection de ma feuille qui contient des formules (si, et somme), un code vba( codé avec l'enregistreur Excel, car je ne sais pas codé) et un tableau inséré. Tout marche formidablement comme joint. Le souci, je dois le transmettre à quelqu'un qui connaît pas Excel. Donc je veux protéger le tout.
Mais une fois la protection mise en place, rien ne marche. C'est à dire insérer ligne ou supprimer afin qu'un numéro s'insère après inscription d'un nom et trier la liste à l'aide du vba. Alors s'il vous plaît, quelqu'un pourrait m'aider à régler le souci. Merci d'avance !!

FlamXYZ · 4 Septembre 2021

Bonjour Icouaci,

avant la protection de votre feuille, cochez les taches que l'utilisateur pourra effectuer lors que la protection sera effective.

Cordialement

lcouaci · 4 Septembre 2021

S

FlamXYZ à dit:
Bonjour Icouaci,

avant la protection de votre feuille, cochez les taches que l'utilisateur pourra effectuer lors que la protection sera effective.

Regarde la pièce jointe 1114781

Cordialement

Salut,

oui j'ai coché mais ça ne donne rien. Dans le doute j'ai coché, sauf les deux premier mais rien aussi.
Merci d'y avoir pense.

FlamXYZ · 4 Septembre 2021

Salut,

selectionnez toutes les cellules de votre feuille, clic droit > format de cellule, puis décocher "verrouillée"

Enfin replacer la protection.

cdt

job75 · 4 Septembre 2021

Bonjour,

Avec un tableau structuré il ne faut pas protéger la feuille.

Prenez le temps de bien expliquer à l'utilisateur comment il fonctionne.

Quant au tri vous pouvez utiliser cette macro :

VB:

Sub Tri()
With Sheets("Feuil1").ListObjects(1).Range
    .Sort .Columns(2), xlAscending, Header:=True
End With
End Sub

A+

lcouaci · 4 Septembre 2021

job75 à dit:
Bonjour,

Avec un tableau structuré il ne faut pas protéger la feuille.

Prenez le temps de bien expliquer à l'utilisateur comment il fonctionne.

Quant au tri vous pouvez utiliser cette macro :

VB:

Sub Tri() With Sheets("Feuil1").ListObjects(1).Range .Sort .Columns(2), xlAscending, Header:=True End With End Sub

A+

OK, Merci pour le code !

lcouaci · 5 Septembre 2021

Re-salut,

il semble qu'il y a un souci sur le code voir capture d'écran.
Je n'ai fais que copier-coller le code dans l'éditeur de code.

lcouaci à dit:
OK, Merci pour le code !

job75 · 5 Septembre 2021

Bonjour Icouaci, le forum,

lcouaci à dit:
il semble qu'il y a un souci sur le code voir capture d'écran.
Je n'ai fais que copier-coller le code dans l'éditeur de code.

Il faut aussi affecter la macro Tri au bouton (clic droit).

A+

lcouaci · 5 Septembre 2021

job75 à dit:
Bonjour Icouaci, le forum,

Il faut aussi affecter la macro Tri au bouton (clic droit).

A+

Bonsoir,
C'est ce que j'ai fait et c'est le message d'erreur que je te présente en capture d'écran.

Merci !

job75 · 5 Septembre 2021

lcouaci à dit:
C'est ce que j'ai fait et c'est le message d'erreur que je te présente en capture d'écran.

Si vous l'avez fait alors vous l'avez mal fait.

Si vous n'êtes pas capable de faire ça tout seul vous n'irez pas bien loin, voyez le fichier joint.

lcouaci · 6 Septembre 2021

job75 à dit:
Si vous l'avez fait alors vous l'avez mal fait.

Si vous n'êtes pas capable de faire ça tout seul vous n'irez pas bien loin, voyez le fichier joint.

Bonsoir,
Franchement désolé! Je ne sais où j'avais la tête. Le code marche !!!

Merci à toi
A+

XL 2019 Protection de la feuille Excel.

lcouaci

XLDnaute Junior

Pièces jointes

FlamXYZ

XLDnaute Nouveau

lcouaci

XLDnaute Junior

FlamXYZ

XLDnaute Nouveau

job75

XLDnaute Barbatruc

lcouaci

XLDnaute Junior

lcouaci

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

lcouaci

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

lcouaci

XLDnaute Junior

Discussions similaires