Déprotéger avant insertion

Bonjour,
J'utilise un tableau dans ma feuille j'ai avec l'enregistreur créé une insertion en me positionnant sur la cellule "B9", j'ai voulu mettre à jour mon code de manière à déverrouiller la protection juste avant cette insertion puis une fois réalisée remettre de nouveau la protection avec ou sans mot de passe.

Code:

---

1 2 3 4 5 6

Sub Macro1() ' Sheets("Feuil1").Protect userinterfaceonly:=False Selection.ListObject.ListRows.Add (3) Sheets("Feuil1").Protect userinterfaceonly:=True End Sub

---

Mais bien sûr ça ne fonctionne pas il manque quelques chose.

Merci.

Bonjour,
Ce n'est pas la première fois que tu poses des questions sur des opérations à réaliser sur des feuilles protégées.
Il serait bon que tu te documentes un peu sur le sujet.
A lire ici et http://silkyroad.developpez.com/VBA/...lcul/#LII-B-31

Bonsoir et encore merci,

Je fais des essais mais sans résultat, comment réaliser un code en ne connaissant pas l'anglais et le VBA Excel ?

Je suis dans un tableau j'ai donc fait ceci :

Code:

---

1 2 3 4 5

Private Subtest() Worksheets("Feuil1").Protect UserInterfaceOnly:=False Selection.ListObject.ListRows.Add (3) Worksheets("Feuil1").Protect UserInterfaceOnly:=True End Sub

---

Dans l'intention de mettre ce code dans un bouton de commande, mais bien sûr ça ne fonctionne pas.

Il doit bien y avoir une solution ?

Bonne soirée. :?

Bonjour,

Citation:

---

Je fais des essais mais sans résultat, comment réaliser un code en ne connaissant pas l'anglais et le VBA Excel ?

---

Franchement, ce n'est pas très compliqué de comprendre ce que cette ligne veut dire et de plus à tous moment, tu peux recevoir de l'aide avec F1 et les nombreux tutos présents sur developpez.com explique en français ce que chaque propriété et méthode veux dire ou réalise.

Code:

---

Worksheets("Feuil1").Protect UserInterfaceOnly:=False

---

Beaucoup d'entre nous ont commencé en ne connaissant rien au VBA. C'est un club d'entraide et il faut aussi mettre un peu du sien. Lire les FAQ, les tutos etc..., je t'ai mis des liens
Si tu souhaites évoluer au lieu de faire un simple Copier/Coller sans rien y comprendre, je crois que c'est essentiel.
Il y a un peu plus de 15 ans, je savais juste faire une somme sur Excel.

Bonjour,
Un code informatique s'exécute séquentiellement.
Ligne 2, tu protèges le feuille [Feuil1] en lui disant avec la propriété UserInterfaceOnly à False que tu ne veux pas que l'on puisse écrire dans cette feuille alors qu'il fallait le mettre à True, ce que je t'ai déjà dit dans un ou 2 autres post. La ligne 4 n'a pas de raison d'être là si on a déjà mis cette propriété à True.

Code:

---

1 2 3 4 5

Private Subtest() Worksheets("Feuil1").Protect UserInterfaceOnly:=False Selection.ListObject.ListRows.Add (3) Worksheets("Feuil1").Protect UserInterfaceOnly:=True End Sub

---

Citation:

---

La ligne 4 n'a pas de raison d'être là si on a déjà mis cette propriété à True.

---

Code:

---

Worksheets("Feuil1").Protect UserInterfaceOnly:=True

---

Oui, c'est finalement logique puisque la feuille est déjà protégée

Je l'ai enlevée mais j'ai un message "erreur de compilation"

Je voudrais vraiment comprendre ce code de A à Z je connais plus VBA d'Access, mais pas Excel qui est un peux plus compliqué pour moi.

Bonjour,
Voici un exemple de code qui ajoute une ligne après la dernière ligne d'un tableau nommé dbPersonnel et qui se trouve sur une feuille nommée db
Curieusement et je l'avais déjà constaté il y a quelques jours, la propriété UserInterfaceOnly à True de la méthode Protect ne permet pas d'ajouter de ligne à un tableau.
En attendant mieux, je propose une solution avec déprotection et reprotection de la feuille

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Sub TestAddRowTable() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db") sht.Unprotect 'sht.Protect UserInterfaceOnly:=True Range("dbPersonnel").ListObject.ListRows.Add alwaysInsert:=True sht.Protect End Sub

---

Merci beaucoup, ça fonctionne je vais étudier ce code et je vais tenter de le modifier un peux pour y ajouter un mot de passe.

Bonne soirée.

@+ :ccool:

Visiblement ça fonctionne aussi avec un mot de passe:

Code:

---

1 2 3 4 5 6 7

Sub TestAddRowTable() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil1") sht.Unprotect Password:="ab" 'sht.Protect UserInterfaceOnly:=True Range("Tableau1").ListObject.ListRows.Add alwaysInsert:=True sht.Protect Password:="ab" End Sub

---

Encore un grand merci. ;)