Private Sub UserForm_Initialize()
Dim WB As Workbook, i
i = 1
For Each WB In Workbooks
If Not (WB Is ActiveWorkbook) Then Application.Windows(i).Visible = False
i = i + 1
Next
Application.DisplayFullScreen = True
End Sub
VB:
Private Sub UserForm_Terminate()
Dim WB As Workbook, i
i = 1
For Each WB In Workbooks
Application.Windows(i).Visible = True
i = i + 1
Next
Application.DisplayFullScreen = False
End Sub
NB: J'ai testé avec deux classeurs ouverts dans un seule instance Excel ouverte, et seul le classeur actif est affiché et en en plein écran.