XL 2021 Pb macro sur feuille protégée

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #2

Bonsoir.
Tu peux dans ta macro déprotéger ta feuille y faire ce que tu as a y faire et en fin de macro le reproteger.

VB:

Sub macro
'déprotéger
Worksheets("ma feuille").Unprotect
' faire ce qu'il y a a faire !


'Puis reproteger
Worksheets("ma feuille").Protect
End Sub

Depuis mon téléphone
Jean marie

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 3 Février 2024

• #3

Bonjour,

ChTi160 à dit:

Tu peux dans ta macro déprotéger ta feuille y faire ce que tu as a y faire et en fin de macro le reproteger.

Cliquez pour agrandir...

Je dirais même "tu dois" déprotéger/reprotéger ta feuille pour écrire dedans.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 3 Février 2024

• #4

Bonsoir,
Merci pour vos réponses, je pensais que cette macro permettait de s'abstenir de déprotéger et protéger chaque feuille.
On va revenir aux fondamentaux.
Cordialement

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #5

Re
effectivement , il ne devrait pas y avoir de problème
avec

VB:

  Ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="", UserInterfaceOnly:=True

il est dit :

Contents:=True protège le contenu des cellules, mais UserInterfaceOnly:=True permet au code VBA de contourner cette protection pour apporter des modifications via du code. Bien que cela puisse sembler paradoxal, c'est une fonctionnalité spécifique à l'utilisation de UserInterfaceOnly dans le contexte de la protection de feuille de calcul en VBA.

Cliquez pour agrandir...

jean marie

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 3 Février 2024

• #6

ChTi160 à dit:

effectivement , il ne devrait pas y avoir de problème

Cliquez pour agrandir...

Il est apparemment question d'ajouter des lignes à un TS, donc je pense que ça ne peut pas fonctionner.

D'où ma remarque sur "tu dois déprotéger/reprotéger ta feuille". 😉

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #7

Re
Oui il ajoute une ligne a un TS
Mais n'est ce pas modifier des cellules ?
Jean marie

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 3 Février 2024

• #8

ChTi160 à dit:

Oui il ajoute une ligne a un TS
Mais n'est ce pas modifier des cellules ?

Cliquez pour agrandir...

Non, pour Microsoft on dirait ben que ce n'est pas pareil que modifier des cellules.
Encore une restriction due aux TS... 🙁

En tout cas, c'est ce que j'ai pu constater il y a quelques temps quand j'ai voulu faire la même chose.
Mais peut-être me trompé-je.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #9

Re
Merci
Jean marie

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 4 Février 2024

• #10

Re,

Oui TooFatBoy tu as raison, il n'est pas possible de rajouter des lignes dans un TS si l'onglet est verrouillé. Dommage.
Cordialement

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Février 2024

• #11

Bonjour le Fil
il semblerait que cette version (avec AllowInsertingRows:=True) permette l'ajout d'une Ligne !

VB:

  ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="", UserInterfaceOnly:=True, AllowInsertingRows:=True

Bonne Journée
Jean marie

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 4 Février 2024

• #12

Bonjour,
Je viens d'essayer, malheureusement cela n'a pas l'air de fonctionner. Que ce soit avec la boucle ou en ciblant directement la feuille concernée.
As tu testé de ton coté ?
Cordialement

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Février 2024

• #13

Re
J'ai ajouté : AllowInsertingRows:=True en bout de procédure dans la boucle du workbook open
A voir ?
Jean marie
Depuis mon téléphone

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 4 Février 2024

• #14

Il me semble que j'avais aussi essayé ça, et que ça ne fonctionnait pas.

Autant que je me souvienne, c'est impossible d'ajouter une ligne à un TS si la feuille n'est pas d'abord déprotégée.
En tout cas, je n'avais trouvé aucune autre solution à l'époque.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 4 Février 2024

• #15

Re,
C'est ce que j'ai fait, mais j'ai toujours le même message.

Cordialement

 

Vote positif 0 Vote négatif