[Résolu][Calc] Blocage validation de protection de feuille

[J a c]

Votre titre : [Calc] Macro protection feuille a été modifié car il n'est pas assez explicite.
Nous l'avons complété et supprimé le terme macro qui est inutile dans cette section dédiée aux macros.

Bonjour,
J'ai une macro qui, avant de travailler, dé-protège la feuille et la re-protège à la fin.
Mon problème est qu'il reste toujours une boite de dialogue à cliquer pour valider la protection de la feuille.
Comment peut-on intégrer ce clic à la macro ?
Voir la copie d'écran en pièce jointe (je n'ai gardé que la partie concernant la protection de la feuille, pour plus de simplicité).
Merci pour votre aide.

[Dude]

Salut,

Arrête d'utiliser le dispatcher et passe par les API.

[boulauventre]

Salut,

Moi j'utilise les macros faites par CoachFab et ça fonctionne très bien.

Voir la =>https://forum.openoffice.org/fr/forum/v ... 15&t=12212

Bonne journée

A+

[J a c]

Merci beaucoup,
Je vais essayer et ferai un retour d'expérience.
A +

[J a c]

Bonjour,
Merci pour ton aide, mais j'ai essayé la macro jointe, elle ne fonctionne pas.

[J a c]

Salut Dude,

En français, ça donne quoi : "Arrête d'utiliser le dispatcher et passe par les API." ?

Merci de ne pas poster plusieurs messages à la suite, si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

[luky-luke]

Bonjour

En français, ça donne quoi : "Arrête d'utiliser le dispatcher et passe par les API." ?

Ça donne pour protéger la Feuille et sans boite de dialogue

Code : Tout sélectionner

ThisComponent.Sheets.GetByName("Feuille1").Protect("")

Et pour déprotéger

Code : Tout sélectionner

ThisComponent.Sheets.GetByName("Feuille1").UnProtect("")

Et entre les guillemets on met le mot de passe si il y en a un Protect("MonMotDePasse") .

Cordialement
Luke

[boulauventre]

Salut,

Est-ce que dans ton fichier de macro, tu as également copié la fonction NomActiveFeuille ? ( elle est présente parmis le lien que je t'ai donné )

Boulauventre