Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 03-06-13, 01:38
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλημέρα!
Τζίμη, αφού δώσεις στην ιδιότητα της φόρμας "ShowModal" την τιμή False, πέρασε στη φόρμα τον παρακάτω κώδικα και δοκίμασε:

Κώδικας:
Option Explicit
Private WState As Long

Private Sub UserForm_Initialize()
    WState = Application.WindowState
    Application.WindowState = xlMinimized
End Sub

Private Sub UserForm_Terminate()
    Application.WindowState = WState
End Sub
Καλή συνέχεια!

Με εκτίμηση

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση