Fichier qui doit être le seul à pouvoir s'ouvrir

[MJ13]

Bonjour à tous

J'ai un planning que j'ouvre dans une nouvelle instance d'Excel.

Or, je voudrais que quand il est ouvert, on ne puisse pas ouvrir un autre fichier.

Comment en VBA, puis je le faire?

Merci d'avance 🙂.

 

[Pierrot93]

Re : Fichier qui doit être le seul à pouvoir s'ouvrir

Bonjour Michel🙂

J'ai un planning que j'ouvre dans une nouvelle instance d'Excel.

c'est dans cette même instance que tu veux ne pas pouvoir ouvrir d'autres classeurs ????

bon après midi
@+

 

[MJ13]

Re : Fichier qui doit être le seul à pouvoir s'ouvrir

Bonjour Pierrot

Merci de ta réponse 🙂.

c'est dans cette même instance que tu veux ne pas pouvoir ouvrir d'autres classeurs ????

En effet, le but est que si je veux que le planning puisse se fermer au bout d'un certain temps d'inactivité, je dois passer par l'ouverture d'une nouvelle instance car lors de la fermeture du fichier, il sauvegarde le planning et ferme Excel. Donc les utilisateurs ne doivent pas pouvoir ouvrir un autre fichier, sinon, ils risquent de perdent leur données.

Le but serait de bloquer l'ouverture de tous fichier si ce fichier est ouvert. Mais la cela me paraît complexe 😕

 

[Pierrot93]

Re : Fichier qui doit être le seul à pouvoir s'ouvrir

Re,

si j'ai bien compris, essaye avec un module de classe, codes ci-dessous à placer dans ton fichier planning :

dans un module standard :

Option Explicit
Public z As New Classe1

dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Set z.MonExcel = Application
End Sub

dans un module de classe nommé "classe1" :

Option Explicit
Public WithEvents MonExcel As Application
Private Sub MonExcel_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name <> ThisWorkbook.Name Then Wb.Close: MsgBox "Interdit..."
End Sub

bonne fin d'après midi
@+

 

[Pierrot93]

Re : Fichier qui doit être le seul à pouvoir s'ouvrir

Re,

A noter, tu peux rajouter cet événement dans le module de classe pour éviter la création de nouveaux classeurs...

Private Sub MonExcel_NewWorkbook(ByVal Wb As Workbook)
Wb.Close: MsgBox "Interdit..."
End Sub

@+

 

[MJ13]

Re : Fichier qui doit être le seul à pouvoir s'ouvrir

Re,

Pierrot, tu es un génie 😱.

Merci beaucoup 😉.

Bonne soirée 🙂.