10-07-15, 21:49
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Αποθηκεύουμε το βιβλίο ως .xlsm
Στο νέο βιβλίο και στο συμβάν BeforeSave, βάζουμε τον κώδικα: Κώδικας: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sh1.Range("d1").Value = Sh1.Range("d1").Value + 1
End Sub
Στο φύλλο, στο οποίο αναφέρεται ο κώδικας, αλλάζουμε το κωδικό όνομά του σε Sh1. Σημείωση:
Ο κώδικας με αυτήν την μορφή, εκτελεί βασική λειτουργία.
Αν συνδυαστεί, με άλλα συμβάντα ή αποτελέσει μέρος, ενός άλλου μεγαλύτερου κώδικα,
θα χρειαστεί, να τον χειριστούμε διαφορετικά.
|