[Tasos]

Καλησπέρα Γιώργο!

Ο κώδικας που θα μπορούσε να χρησιμοποιηθεί είναι:

Private Sub Workbook_Open()
    If Sheets("MyHiddenSheet").Range("A1") = vbNullString Then
        Sheets("MyHiddenSheet").Range("A1") = ThisWorkbook.Path
        ThisWorkbook.Save
    End If
End Sub

Όμως:

Τι θα κάνεις εάν οι το επίπεδο ασφάλειας της εφαρμογής είναι ρυθμισμένο έτσι ώστε να μην επιτρέπει την εκτέλεση κώδικα;

Φιλικά

Τάσος