
Originally Posted by
JOHN H. DAVIS
No Application.Quit closes Excel. You would need to use Workbook("Name").Close or Activeworkbook.close or Thisworkbook.close.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ResetAndStopClock
Select Case Workbooks.Count
Case Is <= 1
If ThisWorkbook.ReadOnly = True Then
'FECHA O DOCUMENTO SEM GUARDAR
'EM MODO LEITURA
Application.DisplayAlerts = False
ThisWorkbook.Saved = True 'apenas finge, não guarda
ThisWorkbook.Save
Application.Quit
Else
'EM MODO ESCRITA
Call UnDoALL
Call VisibleFalse
ThisWorkbook.Save
Application.Quit
End If
Case Is > 1
If ThisWorkbook.ReadOnly = True Then
'FECHA O DOCUMENTO SEM GUARDAR
'EM MODO LEITURA
Application.DisplayAlerts = False
ThisWorkbook.Saved = True 'apenas finge, não guarda
ThisWorkbook.Save
'Application.Quit
Else
'EM MODO ESCRITA
Call UnDoALL
Call VisibleFalse
ThisWorkbook.Save
'Application.Quit
End If
End Select
End Sub
tHIS IS what i have at moment, although have 1 problem:
Where line is bold, the file reopens after i close it, it saves perfectly, although it reopens if i have another file open
Bookmarks