Új hozzászólás Aktív témák

• #8341 Fire/SOUL/CD félisten Oly #8339

  Új Válasz 2010-10-01 17:01:30 #8341

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #8339 üzenetére

  Hali!

  Ááá, de hüle vagyok "néha"...

  Ez az, ami Neked kell

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

  Fire.

• #8340 Fire/SOUL/CD félisten Oly #8339

  Új Válasz 2010-10-01 16:38:17 #8340

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #8339 üzenetére

  Hali!

  Hmm, érdekes gondolat... Hát az egész excel ablakot nem tudom, hogy elrejteni de a worbook-ot így igen (nem elrejtjük, minimize-re állítjuk)

  Megnyitáskor így indíthatod a Formot

  Private Sub Workbook_Open()
  UserForm1.Show vbModal
  End Sub

  Ez pedig a UserForm események, az előbbi amikor megnyílik a form, az utóbbi meg amikor bezáródik

  Private Sub UserForm_Activate()
  
  On Error Resume Next
  With GetObject(, "Excel.Application")
  .ActiveWindow.WindowState = xlMinimized
  End With
  
  End Sub
  
  Private Sub UserForm_Terminate()
  
  On Error Resume Next
  With GetObject(, "Excel.Application")
  .ActiveWindow.WindowState = xlMaximized
  End With

  Fire.

Új hozzászólás Aktív témák