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

• vilag tag

  #1848

  #1835 sztanozs

  2012-09-13 11:04:49

  Ú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

  

  vilag

  tag

  #1835 sztanozs

  #1835 sztanozs

  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

  Üdv!

  Csináltam magamnak egy kis időt és megnéztem a több munkafüzetes megoldást is.

  A megoldás működik...csak fordítva

  Igazából azt írtad, hogy ha csak egy munkafüzet van nyitva, akkor csak a munkafüzetet zárja be, és ha több akkor pedig az egész programot

  De a problémát megoldottam.
  A hiba a következő volt:

  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 helyette 0 kell
  Application.Quit
  Else
  Application.DisplayAlerts = False
  wb.Close False
  End If
  End Sub

  Valamint a wb.Close -ra hibát dob, így azt átírtam twb-re (de így sem működött), így átírtam ThisWorkbook-ra.
  Meg annyi, hogy én ez után a hibajelzést újra true-ra állítottam, hogy a nyitva maradt munkafüzetekben működjön. Bár lehet, hogy ez csak adott munkafüzetre vonatkozik.
  Az igazat megvallva ezt nem tudom.

  Mindent egybevéve, nagyon köszönöm a segítséget, most több programomba is beépítem a megoldást.

  Üdv, vilag

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