userform açılırken excel gözükmemesi

[zeugma35]

merhabalar,

excel ilk açarken hemen formla başlamasını istiyorum aşağıdaki kodları kullandığımda ilk açılırken 2 ,3 saniyede olsa excel gözüküyo hiç gözükmemesi için ne eklemeliyim

Sub Auto_Open()
Application.ScreenUpdating = False
Application.CommandBars.ActiveMenuBar.Enabled = False
Application.Visible = False

End Sub

 

[zeugma35]

güncel...................

 

[Ergün GÖKER]

Application.Visible = False
Userform1.Show

 

[Ergün GÖKER]

Bir modüle aşağıdaki kodu yapıştırın ve açın

Application.Visible = False
Userform1.Show

 

[zeugma35]

bu kodla userformdan excele dönmek için kullanılır kardesım ben masaüstündekı excel yıkladığında direk userform gelsın dıyorum benım yazdığım kodla 2-3 sanideye olsa gözüküyo

 

[assenucler]

Murat OSMA kodu

Bir soruya verilen yanıtın size yararlı olacağını düşünerek ekliyorum. Bu arada, değerli üstadıma sevgi ve saygılarımı sunarım.

Private Sub Workbook_Open() 'Çalışma kitabı açıldığında UserForm1'i gösterir, exceli kapatır.
Application.Visible = False
UserForm1.Show
End Sub


Sub Autpen() 'Ya da aynı kodları Autpen olayına yazabilirsiniz.
Application.Visible = False
UserForm1.Show
End Sub


'UserForm 'u çarpıdan "X" kapattığınızda tekrar sayfaya dönsün isterseniz; UserForm'un kodlarına aşağıdaki kod ekleyebilirsiniz.

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Application.Visible = True
'End Sub '

Bu arada False yerine "0" True yerine de "1" yazabilirsiniz.