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

• #23356 Fferi50 Topikgazda Delila_1 #23348

  Új Válasz 2014-09-20 20:14:13 #23356

  Ú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

  

  Fferi50

  Topikgazda

  válasz Delila_1 #23348 üzenetére

  Szia!

  Sikerült még rövidítenem a Thisworkbook BeforeClose -on:

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If MsgBox("Valóban kilép?", vbQuestion + vbYesNo, "Bezárás") = vbNo Then
  Cancel = True
  Else
  valasz = MsgBox("Menti a változásokat?", vbQuestion + vbYesNoCancel, "Bezárás")
  If valasz = vbCancel Then Cancel = True: Exit Sub
  If Munka1.fmtcondis.Count > 0 Then
  For Each fmt In Munka1.fmtcondis
  fmt.Delete
  Munka1.fmtcondis.Remove 1
  Next
  End If
  If valasz = vbNo Then
  ThisWorkbook.Saved = True
  kilepo = True
  Else
  kilepo = True
  ThisWorkbook.Save
  End If
  End If
  End Sub

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