userformun simge durumu

[xxihsidxx]

hayırlı akşamlar,
userformun thisworkbookun içine
private sub userform1_open()
application.visible =false
userform1.show
end sub
yazdım .açılışta 2-3 saniye kadar excel çalışma sayfası görünüp kayboluyor daha sonra userform açılıyor.excel sayfası hiç görünmeden direk olarak userform açılamaz mı? bir de userformu sadece kapat butonu ile kapatılmasını istiyorum,çarpıdan kapatılmamasını. userforma simge durumu ikonu nasıl eklenir. bunları arama butonu ile aradım ama bulamadım.belki de aramayı bilmiyorum.yardımcı olursanız sevinirim.

 

[byexcel]

Application.Visible=False 'excelin görünmemesi
UserForm1.Show ' UserForm1 in açılması

 

[byexcel]

2.sorunuzun cevabı X ile çıkış yasak

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
      MsgBox "Nereye gidiyon çıkış yasak!", vbOKOnly, "Çıkış yasak"
      Cancel = True
   End If
End Sub

 

[byexcel]

3.sorunuz Userforma simge durumunu küçültme ve ekranı kapla butonu ekler

Private Declare Function FindWindowA Lib "User32" _ 
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Declare Function EnableWindow Lib "User32" _ 
   (ByVal hWnd As Long, ByVal bEnable As Long) As Long 
Private Declare Function GetWindowLongA Lib "User32" _ 
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long 
   Private Declare Function SetWindowLongA Lib "User32" _ 
   (ByVal hWnd As Long, ByVal nIndex As Long, _ 
   ByVal dwNewLong As Long) As Long 

 Private Sub UserForm_Activate() 
   EnableWindow FindWindowA("XLMAIN", Application.Caption), 1 
 End Sub 

 Private Sub UserForm_Initialize() 
   Dim hWnd As Long 
   hWnd = FindWindowA(vbNullString, Me.Caption) 
   SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000 
 End Sub

 

[Ali]

excel sayfası hiç görünmeden direk olarak userform açılamaz mı?

http://www.excel.web.tr/viewtopic.php?t=12625

userforma simge durumu ikonu nasıl eklenir

http://www.excel.web.tr/viewtopic.php?t=10294

bir de userformu sadece kapat butonu ile kapatılmasını istiyorum,çarpıdan kapatılmamasını.

http://www.excel.web.tr/viewtopic.php?t=3665

 

[xxihsidxx]

çok teşekkür ederim byexcel
bilgine sağlık. sadece userformun görünmemesi için verdiğiniz kodu thisworkbookun içine yazdım .modül kısmına yazdım olmadı.
"object doesn't support this property or method" hatası veriyor.

 

[Ali]

Modüle

Sub Autpen()
Application.Visible = False
UserForm1.Show
End Sub

Userformu kapattığınızda bigilerinizde kaydedilmesi için

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
Application.Quit
End Sub


kodlarını ekleyin

 

[xxihsidxx]

sağolasın fructose, form kapandıktan sonra bilgilerin kaydedilmesi olayını hiç düşünmemiştim.