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

• sztanozs veterán

  #1852

  #1851 vilag

  2012-09-13 13:12:02

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #1851 vilag

  #1851 vilag

  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

  Dim-eket ne hagyd ki és tedd ki az összes modul elejére az Option Explicit-et (megköveteli az összes változó deklarálását), és akkor nem lesznek esetleges elütésből eredő problémáid sem.

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