Menu Personnaliser

Bonjour,

A ma connaissance, non (encore qu'avec une macro, ce soit peut-être
possible). Mais "pourquoi faire simple quand on peut faire compliqué ?"
Puisque tu parles d'un document précis, sache que tu peux protéger des
parties de document (ou encore le mettre en lecture seule). Certes, la
protection n'est pas absolue, mais c'est sans doute plus efficace et moins
compliqué que la solution que tu envisageais.
AB

"DesseJ" <DesseJ@caramail.com> a écrit dans le message de news:
1129724851.095538.314760@o13g2000cwo.googlegroups.com...
Bonjour,

Je me demandais s'il était possible, pour un document précis,
d'interdire la possibilité de personnaliser les barres d'outils et les
menus de Word (notamment par le clic droit), afin de ne pas laisser à
l'utilisateur le pouvoir de tout "massacrer".

Merci d'avance pour vos réponses. Bon après-midi.
Steph D.

Bonjour,

Je me demandais s'il était possible, pour un document précis,
d'interdire la possibilité de personnaliser les barres d'outils et les
menus de Word (notamment par le clic droit), afin de ne pas laisser à
l'utilisateur le pouvoir de tout "massacrer".

Tu imprimes le document et tu lui envoies par la poste, tu lui enlèves

de ce fait son pouvoir de malfaisance.



--
A+

Bonjour à tous,

En fait, le document Word (une facture) est généré et stocké dans
un de nos progiciels (par fusion), pour bénéficier de la souplesse de
Word pour tout ce qui est mise en forme. Le but était d'interdire la
modification du contenu du document (aperçu avant impression compris)
et l'enregistrement de celui-ci.

J'avais d'abord bloqué les accés aux commandes "Enregistrer" et
"Enregistrer" avec le code suivant (en ayant préalablement protéger
le document. Très bonne idée AB Merci).
With Application
.CommandBars("File").FindControl(ID:=3).Enabled = False
.CommandBars("File").FindControl(ID:=748).Enabled = False
End With

Mais je pouvais toujours personnaliser l'interface (peut-être
existe-t-il un FindControl pour bloquer l'accès !).
Alors finalement, j'ai opté pour masquer toutes les barres, avec
toujours la protection du document, et là plus de personnalisation et
d'enregistrements possibles, le document en consultation uniquement.
Voici le code simple :

'ouverture du document
Private Sub Document_Open()
Call JeDéProtège
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Call MasqueBarre
Call JeProtège
End Sub

'Fermeture du document
Private Sub Document_Close()
Call JeDéProtège
Call AfficheBarre
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Call JeProtège
ThisDocument.Saved = True
End Sub

Sub JeProtège()
ActiveDocument.Protect Password:="MOT DE PASSE", NoReset:=False,
Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
End Sub

Sub JeDéProtège()
ActiveDocument.Unprotect Password:="MOT DE PASSE"
End Sub

Sub MasqueBarre()
Dim cbar As CommandBar
For Each cbar In Application.CommandBars 'pour chaque barre de
l'application excepté la barre de menu
cbar.Enabled = False 'inactivation de la barre
Next
End Sub

Sub AfficheBarre()
Dim cbar As CommandBar
For Each cbar In Application.CommandBars 'pour chaque barre de
l'application
cbar.Enabled = True 'activation de
la barre
Next
End Sub

Géo m'a conseillé

Tu imprimes le document et tu lui envoies par la poste, tu lui enlèves
de ce fait son pouvoir de malfaisance.
Tu sais Géo, quand tu demandes à un client de t'envoyer une copie du

fichier qui pose problème sur disquette, et que tu reçois par
courrier postal une photocopie de la disquette ... ;o))

Bonne journée
Steph D.