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 ????
Option Explicit
Public z As New Classe1
Option Explicit
Private Sub Workbook_Open()
Set z.MonExcel = Application
End Sub
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
Private Sub MonExcel_NewWorkbook(ByVal Wb As Workbook)
Wb.Close: MsgBox "Interdit..."
End Sub