[VBA] Διαδρομή αποσυμπίεσης

[anestaki]

Καλημέρα σε όλους
Θα ήθελα να μάθω εάν είναι δυνατή η καταγραφή σε κελί της διαδρομής αποσυμπιέσεις
π.χ. το συγκεκριμένο excel αποσυμπιέστηκε από C:\Documents and Settings\user\Τα έγγραφά μου\Downloads\test.rar και αυτό να το κάνη σε κελί της πρώτης σελίδας του δηλαδή να καταγράψει την διαδρομή του.

[Tasos]

Καλησπέρα!

Γιώργο ένα αρχείο Excel μπορεί να αντλήσει πληροφορίες για τις ιδιότητες της τρέχουσας θέσης του
στο δίσκο εφόσον φυσικά ανοιχτεί για να τρέξει ο κατάλληλος κώδικας.

Δεν μπορεί να γνωρίζει τις ενέργειες που έχουν σχέση με το αρχείο όταν αυτό είναι κλειστό.

Τάσος

[anestaki]

Καλησπέρα Τάσο
Εάν μετά την αποσυμπιέσει τρέξει αυτόματα!

[Tasos]

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

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

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

Όμως:

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

Φιλικά

Τάσος