[Γενικά] Απαγόρευση "save as" σε αρχείο excel

[Nikos Kok]

Καλημέρα,
Θα ήθελα να ρωτήσω εάν κάποιος γνωρίζει αν μπορώ να απαγορεύσω την αντιγραφή αρχείου excel, δηλαδή να επιτρέπετε η μεταφορά του αλλά να μην μπορεί να γίνει "save as". Αν γίνεται ΧΩΡΙΣ την χρήση μακροεντολών.
Ευχαριστώ

[Spirosgr]

Καλησπέρα

Πριν την τελική απάντηση, ας δούμε πληροφοριακά κάποια πράγματα.

1. Χωρίς κώδικα.
Δεν είναι δυνατή η απενεργοποίηση της λειτουργίας "Save As", χωρίς χρήση κώδικα*

2. Με κώδικα στο ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then Cancel = True
End Sub

3. Με ολική αναδιάρθρωση του βιβλίου.
*Υπάρχει περίπτωση να απενεργοποιηθεί χωρίς Vba το εικονίδιο Save As απ' την κορδέλα
και κατά συνέπεια και η ενέργεια αυτή, αλλά απαιτεί άλλες δυσκολότερες μεθόδους (xml).
Αλλά και στην περίπτωση αυτή, υπάρχει το F12.

Συμπέρασμα:

Θεωρώ ότι η ενέργεια αυτή, ουσιαστικά δεν έχει εφαρμογή.
Ο λόγος είναι απλός.
Ας υποθέσουμε, ότι μου δίνεις το αρχείο με τον κώδικα και δεν μπορώ να κάνω Save As.
Αν απενεργοποιήσω τις μακροεντολές από την εφαρμογή, ... τότε, μπορώ να κάνω ότι θέλω.

Επομένως, μπορεί κανείς να δώσει ένα αρχείο ως ReadOnly ( για ανάγνωση μόνο ),
μπορεί να το κλειδώσει,
μπορεί να κάνει πολλά άλλα πράγματα αλλά...
δεν υπάρχει κανένας απολύτως τρόπος να χαλάσει κάποιος το Save As.

[Nikos Kok]

Ευχαριστώ πολύ Χρήστο!
Κατατοπιστικότατος.
Φιλικά
Νίκος

[Spirosgr]

Αφού με βάφτισες θέλω και δωράκια τώρα τα Χριστούγεννα