Discussion :

[Nounours1]

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 :

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

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.

[Philippe Tulliez]

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

[Nounours1]

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 :

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

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.

[Philippe Tulliez]

Bonjour,

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 :

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

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.

[Philippe Tulliez]

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 :

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

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

[Nounours1]

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

Code :

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

 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.