[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.