Excel - makro na ukončení aplikace
Napsal: 18 čer 2012 10:20
Zdravím,
pokouším se napsat makro, které se po několika minutách od otevření souboru zeptá a případně uloží změny a ukončí excel
zatím mi s pomocí tohoto fóra vyšlo toto:
Sub Ukonci10min()
Application.OnTime Now + TimeValue("00:10:00"), "Konec"
End Sub
Sub Konec()
If MsgBox("Opravdu ještě potřebujete pracovat v tomto souboru?", vbYesNo, "") <> vbNo Then Exit Sub
ChDir "C:\test"
ActiveWorkbook.SaveAs Filename:= _
"C:\test\test.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Dim strClsExl As String
strClsExl = "TASKKILL /F /IM Excel.exe"
Shell strClsExl, vbHide
End Sub
Ale mám tam chybu, ať vyberu yes nebo no, vždy se mi uloží a zavře ..
prosím o radu
pokouším se napsat makro, které se po několika minutách od otevření souboru zeptá a případně uloží změny a ukončí excel
zatím mi s pomocí tohoto fóra vyšlo toto:
Sub Ukonci10min()
Application.OnTime Now + TimeValue("00:10:00"), "Konec"
End Sub
Sub Konec()
If MsgBox("Opravdu ještě potřebujete pracovat v tomto souboru?", vbYesNo, "") <> vbNo Then Exit Sub
ChDir "C:\test"
ActiveWorkbook.SaveAs Filename:= _
"C:\test\test.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Dim strClsExl As String
strClsExl = "TASKKILL /F /IM Excel.exe"
Shell strClsExl, vbHide
End Sub
Ale mám tam chybu, ať vyberu yes nebo no, vždy se mi uloží a zavře ..
prosím o radu