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

• #1851 vilag tag sztanozs #1850

  Új Válasz 2012-09-13 12:50:47 #1851

  Ú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

  

  vilag

  tag

  válasz sztanozs #1850 üzenetére

  Végül is eddig úgy tűnik, hogy a következő verziónál maradok:

  Workbook:
  Private Sub Workbook_Open()
  
  UserForm1.Show
  
  End Sub

  Userform:

  Private Sub CommandButton2_Click() 'Kilépés gomb
  
  mfszam = 0 'mfszam=munkafüzetek száma
  For Each twb In Application.Workbooks
  mfszam = mfszam + 1
  Next
  If mfszam = 0 Then
  Application.Quit
  Else
  Application.DisplayAlerts = False
  Unload Me
  ThisWorkbook.Close
  Application.DisplayAlerts = True
  End If
  Application.WindowState = xlNormal
  
  End Sub

  Private Sub UserForm_Terminate()
  
  Application.DisplayAlerts = True
  Application.WindowState = xlNormal
  
  End Sub

  Ez lett a végleges (legalább is most annak tűnő) megoldás.
  Még betettem egy Unload Me-t, mert így lefut a lejjebbi részben írt Terminate is, amivel el tudom érni, hogy a hibajelzést visszakapcsoljam, illetve, hogy újra nagy méretű legyen a megnyitva maradt munkafüzet (már persze ha több volt nyitva). Ha csak egy volt nyitva az sem gond, mert felugrik és aztán bezáródik az egész.

  A dim-eket kihagytam, mert anélkül is megy, illetve a változó nevét megváltoztattam, mert nekem így beszédesebb

  Üdv, vilag

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