Akce před uložením (vložit do thisworkbook):
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' code or call to routine here....
End Sub
(zdroj Google)
Akce před uložením (vložit do thisworkbook):
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' code or call to routine here....
End Sub
(zdroj Google)