15-01-21, 19:00
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα σε όλους!
Δημήτρη, βεβαίως και γίνεται.
Στο συνημμένο του μηνύματος (με κωδικό 1234) υπάρχει ο παρακάτω κώδικας: Κώδικας: Option Explicit
Sub ReOpen()
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
ThisWorkbook.ChangeFileAccess xlReadWrite
End Sub
Ίσως χρειαστεί να αντιστοιχίσεις ξανά τη μακροεντολή στο κουμπί πάνω στο φύλλο εργασίας.
Καλή συνέχεια!
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |