Discussion :

[Ge_Oceanex]

Bonjour,
est-ce qu'il est possible en VBA ou autre d'empêcher l'option fichier ouvrir.
c'est pour word 2019/365

Il ne faut pas que la personne puisse ouvrir un autre fichier word que celui qui est déjà ouvert.


Je vous remercie pour votre temps et bonne suite de journée
Ge

[Nain porte koi]

Bonjour,

je n'ai pas trouvé comment empêcher l'ouverture d'un autre fichier, mais par contre on peut le refermer dès sont ouverture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private WithEvents App As Application
Public Doc_Autorise As String
 
Sub AutoOpen()
    Doc_Autorise = ThisDocument.Name
    Set App = Application
End Sub
 
Private Sub App_DocumentOpen(ByVal Doc As Document)
    If Doc.Name <> Doc_Autorise Then Doc.Close False
End Sub

A coller dans ThisDocument du document qui doit empêcher l'ouverture des autres.
Attention, si on ferme ce document ça autorise à nouveau à en ouvrir d'autres (heureusement )

[Ge_Oceanex]

Bonjour, un énorme merci c'est exactement ce que j'avais de besoin ! je n'avais pensé le voir de ce coté la. (fermer automatiquement) mais sa fonctionne vraiment bien

Merci

[Philippe Tulliez]

Bonjour,
Une autre solution consiste à utiliser l'événement "Document_Open" ou "AutoOpen" dans le modèle global Normal.dotm ou dans un modèle/add-in spécifique chargé au démarrage de Word.
Vous pouvez y inclure une logique pour vérifier combien de documents sont ouverts et, si un document est déjà ouvert, afficher un message d'avertissement à l'utilisateur et fermer le nouveau document qui tente de s'ouvrir.

Voici un exemple de code qui illustre cette approche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Document_Open()
  ' Vérifie si plus d'un document est ouvert
  If Documents.Count > 1 Then
   MsgBox "Un document est déjà ouvert. Fermeture de ce document.", vbExclamation
   ' Ferme le document actuel sans sauvegarder les modifications
   ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
  End If
End Sub

[Nain porte koi]

Hello Philippe

c'est ce que j'ai toujours aimé dans les forums : une idée en amène une autre et ça permet d'apprendre.
Je cherchais l'évènement fichier/ouvrir pour le désactiver et ne trouvant pas je suis resté sur la gestion des évènements, mais j'avoue que ta solution est "plus élégante" et surtout plus facile à comprendre pour un débutant.


Merci

JièL, ex matricule DX32768

[Philippe Tulliez]

Bonjour JièL,
Merci pour ton message, c'est vrai que les diverses propositions et discussions sur les forums nous enrichissent.
Est-ce que tu es le JièL que j'ai connu au MPFE ?

[Nain porte koi]

Ben voui, c'est moi qui me faisait enfermer dans la cellule DX32768 par Isabelle denla geôliere 😁

[E KERGRESSE]

Bonjour aux anciens du MPFE.

Je n'ai rien oublié des hors sujets...

F(x), si tu nous lis, je serais content de reprendre contact avec toi.