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 Impliqué

• 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 Impliqué

• 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 Impliqué

• 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 Impliqué

• 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