Discussion :

[Willsmeeth]

Bonjour à tous,

Actuellement lors de l'ouverture de mon fichier, j'ai un Userform qui s'affiche et la fenêtre de mon fichier qui se réduit comme je le souhaite.

Pour ce faire j'ai mis le code suivant dans ThisWorkbook:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
 
Application.WindowState = xlMinimized             'réduction de la feuille excel
UserForm_utilisateur.Show                         'activation de la form principale
 
End Sub

Ma question est simple.

Y a-t-il moyen d'empêcher de rouvrir le fichier qui c'est réduit en cliquant dessus?
C'est-à-dire que si un utilisateur clique sur l'icône en barre de tâche cela n'ouvrira pas mon ficher que je viens de réduire.

Pouvez-vous m’éclaircir sur cette question avec un bout de code si cela est possible.

CORDIALEMENT

M.Gwénaël

[Oliv-]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Application.Visible = True
End Sub
 
 
 
Private Sub UserForm_Initialize()
Application.Visible = False
End Sub

[Willsmeeth]

Cela fonctionne parfaitement.

Merci de votre aide !