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

• sztanozs veterán

  #1835

  #1834 vilag

  2012-09-06 13:56:12

  Ú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

  #1834 vilag

  #1834 vilag

  Igazából csak annyit szeretnék elérni, hogy az excel megnyitása után azonnal csakis a userform látszódjon. Se a munkalap, se pedig az üres excel ablak ne látszódjon, csak és kizárólag a userform.

  A táblába jelen esetben semmiféle kivétel-visszaírás nem történik!
  Gyakorlatilag kódból fut minden.
  Az egész csak annyit csinál, hogy gombnyomásra kiválasztott fájlt/fájlokat bizonyos helyre másol. Kilépéskori mentésre semmi szükség.
  Rendben, valamint egy kilépés gomb.

  --------------------

  A több munkafüzetes problémára esetleg valami megoldás?

  Üdv, vilag

  Form properties:
  Show Modal - False
  Window Position - Center Screen

  Több Workbookra - csak a formosat zárja be:
  Kód - Workbook:
  Private Sub Workbook_Open()
  Application.WindowState = xlMinimized
  Set UserForm1.wb = Me
  UserForm1.Show
  End Sub

  Kód - Form:
  Public wb As Object
  
  Private Sub CommandButton1_Click()
  Dim wcount As Integer
  Dim twb As Workbook
  wcount = 0
  For Each twb In Application.Workbooks
  wcount = wcount + 1
  Next
  If wcount = 1 Then
  Application.Quit
  Else
  Application.DisplayAlerts = False
  wb.Close False
  End If
  End Sub

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