Exceli durum çubuğuna indir ve userformu göster

[meslek5]

Merhaba değerli uzman hocalarım
Aşağıdaki kodla userform açık iken exceli gizleyebiliyorum ama aynı zamanda bir butona tıklayınca da exceli göstermek istiyorum ama sadece görev çubuğunda
userform üzerine bir buton ekleyip o butona tıklayınca gizlenen exceli göstersin ama görev çubuğuna indirsin ve userform gösterilmeye devam etsin ama görev çubuğuna indirilen Excele tıklayınca exceli göstermesin. Kısacası gizlenen ve görev çubuğunda gösterilen excele tıklayınca tam ekranda açılmasın.
Umarım anlatabilmişimdir. şimdiden teşekkür ederim.

Private Sub UserForm_Activate()
Application.Visible = False
End Sub

 

[asdsxx]

UserForm' a komut düğmesi ekle ve
"Application.Visible = True" kodunu yaz
Excel'e tıklanınca açılmaması için UserForm özelliklerinden "ShowModal" kısmı "True" olacak
Böylece form açık olduğu sürece excel aktif olmaz

 

[meslek5]

Teşekkür ederim ama demek istediğim bu değildi.
Yapmak istediğim şu; Userform açık ve Excel gizli iken userform üzerindeki bir butona tıklayınca gizli olan excel görünsün ama görev çubuğuna indirilsin yani userform arkasında excel tablosu gözükmesin ve görev çubuğundaki excele tıklayınca tam ekrana geçmesin. Lütfen yardım

 

[asdsxx]

Excel görev çubuğuna iner ama tıklanınca açılmaması olayı biraz zor
aşağıdaki kod son isteğe kadar olan kısmı karşılıyor. Ama görev çubuğuna tıklanınca açılmama olayı yok.

Private Sub CommandButton1_Click()
 Dim i As Integer
 
 Application.Visible = True

    For i = 1 To Workbooks.Count
        Workbooks(i).Activate
        ActiveWindow.WindowState = xlMinimized
    Next i
    
UserForm1.Show


End Sub

 

[meslek5]

Excel görev çubuğuna iner ama tıklanınca açılmaması olayı biraz zor
aşağıdaki kod son isteğe kadar olan kısmı karşılıyor. Ama görev çubuğuna tıklanınca açılmama olayı yok.

Private Sub CommandButton1_Click()
Dim i As Integer

Application.Visible = True

    For i = 1 To Workbooks.Count
        Workbooks(i).Activate
        ActiveWindow.WindowState = xlMinimized
    Next i
   
UserForm1.Show


End Sub

Çok teşekkür ederim kısmen işimi gördü ama keşke userform arka planında kalan gri tonlu excel tamamen simgeye inse tam istediğim gibi olacak

 

[asdsxx]

Bende Gri ton şeklinde bir görüntü yok. Sizden kaynaklanan bir durum olsa gerek
Kolay gelsin.