J'ai crée un modèle de document word2000 avec une barre d'outils perso.
Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection".
J'aimerai qu'en appuyant sur le bouton, si:
Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et
vice versa. Un peu comme actuellement fait par word avec "Proteger le
document" et "Oter la protection"
Voila le code que j'utilise, mais je ne sais pas d'esactiver une option dans
une barre d'outils perso!!!
Sub ToolsProtectUnprotectDocument()
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
Else
ActiveDocument.Unprotect Password:=""
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils perso. Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection". J'aimerai qu'en appuyant sur le bouton, si: Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et vice versa. Un peu comme actuellement fait par word avec "Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé : Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande() Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Ma Barre perso") MaBarre.Controls(7).Caption = "Protéger" End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
-- A+
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils perso.
Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection".
J'aimerai qu'en appuyant sur le bouton, si:
Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et
vice versa. Un peu comme actuellement fait par word avec "Proteger le
document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé :
Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande()
Dim MaBarre As CommandBar
Set MaBarre = Application.CommandBars("Ma Barre perso")
MaBarre.Controls(7).Caption = "Protéger"
End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
J'ai crée un modèle de document word2000 avec une barre d'outils perso. Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection". J'aimerai qu'en appuyant sur le bouton, si: Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et vice versa. Un peu comme actuellement fait par word avec "Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé : Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande() Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Ma Barre perso") MaBarre.Controls(7).Caption = "Protéger" End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
-- A+
Circé
Bonsoir Geo,
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
Circé http://faqword.free.fr
Le 18/07/2008, Geo a supposé :
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils perso. Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection". J'aimerai qu'en appuyant sur le bouton, si: Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et vice versa. Un peu comme actuellement fait par word avec "Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé : Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande() Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Ma Barre perso") MaBarre.Controls(7).Caption = "Protéger" End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
Bonsoir Geo,
Et y a pas moyen d'utiliser la propriété OnAction sur un objet
CommandBarButton ?...
Circé
http://faqword.free.fr
Le 18/07/2008, Geo a supposé :
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils perso.
Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection".
J'aimerai qu'en appuyant sur le bouton, si:
Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et
vice versa. Un peu comme actuellement fait par word avec "Proteger le
document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé :
Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande()
Dim MaBarre As CommandBar
Set MaBarre = Application.CommandBars("Ma Barre perso")
MaBarre.Controls(7).Caption = "Protéger"
End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
Circé http://faqword.free.fr
Le 18/07/2008, Geo a supposé :
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils perso. Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection". J'aimerai qu'en appuyant sur le bouton, si: Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et vice versa. Un peu comme actuellement fait par word avec "Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé : Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande() Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Ma Barre perso") MaBarre.Controls(7).Caption = "Protéger" End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
Geo
Bonjour à Circé qui nous a écrit :
Bonsoir Geo,
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
J'ai peut-être mal compris la question. Il me semble qu'il ne s'agit que de changer le libellé dans le menu, le reste est programmé. Je vais aller faire un tour du côté de Word 2003.
-- A+
Bonjour à Circé qui nous a écrit :
Bonsoir Geo,
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
J'ai peut-être mal compris la question.
Il me semble qu'il ne s'agit que de changer le libellé dans le menu, le
reste est programmé.
Je vais aller faire un tour du côté de Word 2003.
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
J'ai peut-être mal compris la question. Il me semble qu'il ne s'agit que de changer le libellé dans le menu, le reste est programmé. Je vais aller faire un tour du côté de Word 2003.
-- A+
Jed Willer
Geo wrote in news::
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils perso. Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection". J'aimerai qu'en appuyant sur le bouton, si: Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et vice versa. Un peu comme actuellement fait par word avec "Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé : Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande() Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Ma Barre perso") MaBarre.Controls(7).Caption = "Protéger" End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
Bonsoir Geo,
Désolé pour le retard dasn ma réponse mais plus moyen de répondre par IE7, donc j'ai du installer chez moi un lecteur de news
J'ai utiliser ta solution pour en faire :
Sub ToolsProtectUnprotectDocument()
Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Modele_Piece")
If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ NoReset:=True
MaBarre.Controls(2).Caption = "Protéger"
Else ActiveDocument.Unprotect Password:=""
MaBarre.Controls(2).Caption = "Déprotéger"
End If
End Sub
Merci pour ton aide.
Cordialement
Jed
Geo <Geo@sans.pub> wrote in news:mn.93447d87d65953eb.41568@sans.pub:
Bonjour à Jed qui nous a écrit :
Bonjour à tous,
J'ai crée un modèle de document word2000 avec une barre d'outils
perso. Dans cett barre d'outils j'ai mis un bouton "Protection et
Deprotection". J'aimerai qu'en appuyant sur le bouton, si:
Le mode passe en "Protection" c'est le "Deprotection" qui sera activé
et vice versa. Un peu comme actuellement fait par word avec
"Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé :
Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande()
Dim MaBarre As CommandBar
Set MaBarre = Application.CommandBars("Ma Barre perso")
MaBarre.Controls(7).Caption = "Protéger"
End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
Bonsoir Geo,
Désolé pour le retard dasn ma réponse mais plus moyen de répondre par
IE7, donc j'ai du installer chez moi un lecteur de news
J'ai utiliser ta solution pour en faire :
Sub ToolsProtectUnprotectDocument()
Dim MaBarre As CommandBar
Set MaBarre = Application.CommandBars("Modele_Piece")
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
J'ai crée un modèle de document word2000 avec une barre d'outils perso. Dans cett barre d'outils j'ai mis un bouton "Protection et Deprotection". J'aimerai qu'en appuyant sur le bouton, si: Le mode passe en "Protection" c'est le "Deprotection" qui sera activé et vice versa. Un peu comme actuellement fait par word avec "Proteger le document" et "Oter la protection"
Franchement, le plus simple est de mettre un double libellé : Protéger/Déprotéger.
Sinon essayer quelque chose comme :
Sub RenommeCommande() Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Ma Barre perso") MaBarre.Controls(7).Caption = "Protéger" End Sub
Pas testé car les barres d'outils n'existent plus en Word 2007
Bonsoir Geo,
Désolé pour le retard dasn ma réponse mais plus moyen de répondre par IE7, donc j'ai du installer chez moi un lecteur de news
J'ai utiliser ta solution pour en faire :
Sub ToolsProtectUnprotectDocument()
Dim MaBarre As CommandBar Set MaBarre = Application.CommandBars("Modele_Piece")
If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ NoReset:=True
MaBarre.Controls(2).Caption = "Protéger"
Else ActiveDocument.Unprotect Password:=""
MaBarre.Controls(2).Caption = "Déprotéger"
End If
End Sub
Merci pour ton aide.
Cordialement
Jed
Jed Willer
=?ISO-8859-15?Q?Circé?= wrote in news::
Bonsoir Geo,
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
Solution adaptée. Voir post reponse à Geo
=?ISO-8859-15?Q?Circé?= <circe@aea.gr> wrote in
news:mn.94ef7d87c831e7fe.54897@aea.gr:
Bonsoir Geo,
Et y a pas moyen d'utiliser la propriété OnAction sur un objet
CommandBarButton ?...
Et y a pas moyen d'utiliser la propriété OnAction sur un objet CommandBarButton ?...
Solution adaptée. Voir post reponse à Geo
Jed Willer
Geo wrote in news::
J'ai peut-être mal compris la question. Il me semble qu'il ne s'agit que de changer le libellé dans le menu, le reste est programmé. Je vais aller faire un tour du côté de Word 2003.
La question était bien comprise et la solution adaptée.
Merci à tous
Geo <Geo@sans.pub> wrote in news:mn.94f97d8741b0b8e8.41568@sans.pub:
J'ai peut-être mal compris la question.
Il me semble qu'il ne s'agit que de changer le libellé dans le menu,
le reste est programmé.
Je vais aller faire un tour du côté de Word 2003.
La question était bien comprise et la solution adaptée.
J'ai peut-être mal compris la question. Il me semble qu'il ne s'agit que de changer le libellé dans le menu, le reste est programmé. Je vais aller faire un tour du côté de Word 2003.
La question était bien comprise et la solution adaptée.
Merci à tous
Geo
Bonjour à Jed qui nous a écrit :
La question était bien comprise et la solution adaptée.
Parfait. Merci pour le retour.
-- A+
Bonjour à Jed qui nous a écrit :
La question était bien comprise et la solution adaptée.
