Πώς να απενεργοποιήσετε ή να μην επιτρέψετε τις επιλογές Save & Save As στο Excel;
Κανονικά, όταν κάνουμε κλικ στη λειτουργία Αποθήκευση ή Αποθήκευση ως, τα τροποποιημένα δεδομένα μας στο βιβλίο εργασίας θα αποθηκευτούν ταυτόχρονα. Ωστόσο, μερικές φορές, το αρχείο Excel δεν επιτρέπεται να τροποποιείται και να αποθηκεύεται από άλλους χρήστες όταν διαβάζουν το αρχείο. Αυτό το άρθρο παρέχει τη μέθοδο VBA για να απενεργοποιήσετε τις επιλογές Save & Save As στο Excel.
Απενεργοποιήστε τις επιλογές Save & Save As με τον κώδικα VBA
Απενεργοποιήστε τις επιλογές Save & Save As με τον κώδικα VBA
Μπορείτε να εκτελέσετε τον παρακάτω κώδικα VBA για να απενεργοποιήσετε τις επιλογές Save & Save As στο Excel.
1. Στο βιβλίο εργασίας πρέπει να απενεργοποιήσετε τις λειτουργίες Save & Save As, πατήστε άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στην αριστερή γραμμή, αντιγράψτε και επικολλήστε το παρακάτω VBA 1 στο παράθυρο κώδικα και, στη συνέχεια, κάντε κλικ στο Αποθήκευση κουμπί. Δείτε το στιγμιότυπο οθόνης:
VBA 1: απενεργοποιήστε τις επιλογές Save & Save As στο Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Στο άνοιγμα Αποθήκευση ως παράθυρο, επιλέξτε ένα φάκελο για να αποθηκεύσετε το βιβλίο εργασίας, ονομάστε το βιβλίο εργασίας όπως χρειάζεστε και επιλέξτε Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα και, τέλος, κάντε κλικ στο Αποθήκευση κουμπί.
4. Τώρα αντιγράψτε και επικολλήστε το παρακάτω VBA 2 στο Αυτό το βιβλίο εργασίας παράθυρο κώδικα. Δείτε το στιγμιότυπο οθόνης.
VBA 2: απενεργοποιήστε τις επιλογές Save & Save As στο Excel
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub
5. Κάντε κλικ στο κουμπί Αποθήκευση κουμπί για να αποθηκεύσετε τον κωδικό και, στη συνέχεια, κλείστε το βιβλίο εργασίας.
Το βιβλίο εργασίας έχει αποθηκευτεί ως βιβλίο εργασίας με δυνατότητα μακροεντολής Excel με το Αποθήκευση και Αποθήκευση ως απενεργοποιημένες λειτουργίες.
Note: Φαίνεται ότι οι αλλαγές αποθηκεύονται στο τρέχον φύλλο εργασίας κάθε φορά που τροποποιείτε και αποθηκεύετε το βιβλίο εργασίας. Αλλά μετά το κλείσιμο και το άνοιγμα του βιβλίου εργασίας, θα διαπιστώσετε ότι οι αλλαγές απέτυχαν να αποθηκευτούν.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!