
Private Sub Workbook_Activate()
Workbooks("BASE PROGETTI CON SCADENZE.xls").Activate
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("Registro commesse OK.xls").Close False
Workbooks("Rubrica clienti.xls").Close False
Workbooks("BASE PROGETTI CON SCADENZE.xls").Save
End Sub
Private Sub Workbook_Open()
Workbooks.Open ("\EASYSTOREpublicperindarchiviModelli OKRubrica clienti.xls")
Workbooks.Open ("\EASYSTOREpublicperindarchiviModelli OKRegistro Commesse OK.xls")
End Sub
|
