
Private Sub Workbook_Activate()
Workbooks("BASE PROGETTI CON SCADENZE.xls").Activate
End Sub
--------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
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")
End Sub
|
