Όταν αποθηκεύετε ένα Μάκρο αρχείο στην ακριβή θέση όπως και πριν, σας προτρέπει πάντα να αντικαταστήσετε το αρχείο με ένα μήνυμα ειδοποίησης. Αυτό μπορεί να είναι ενοχλητικό όταν πρέπει να αποθηκεύετε δεδομένα συχνά και έχετε περιορισμένο χρόνο για να το κάνετε. Ως αποτέλεσμα, θα χρησιμοποιήσουμε μια VBA κώδικα για την επίλυση του προβλήματος. Αυτό το σεμινάριο θα σας δείξει πώς να αποθήκευση ενός βιβλίου εργασίας χωρίς προτροπή με Excel VBA .

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

7 Εύκολα βήματα για την αποθήκευση ενός βιβλίου εργασίας χωρίς προτροπή με το Excel VBA

Έχουμε συμπεριλάβει ένα δείγμα δεδομένων στην παρακάτω εικόνα για να καταδείξουμε τη διαφορά μετά την εκτέλεση της εφαρμογής Κώδικες VBA για να σταματήσει η προτροπή. Κατά την αποθήκευση του αρχείου, θα χρησιμοποιήσουμε την εντολή Κώδικες VBA για να απενεργοποιήσετε το μήνυμα ειδοποίησης οθόνης.

Βήμα 1: Δημιουργήστε μια ενότητα για τη συγγραφή κώδικα VBA

• Πρώτον, πατήστε Alt + F11 για να ανοίξετε το Μακροεντολή VBA .
• Κάντε κλικ στο Εισαγωγή καρτέλα.
• Από τις επιλογές, επιλέξτε το Ενότητα για να δημιουργήσετε ένα νέο Ενότητα .

Βήμα 2: Εισαγωγή της συνάρτησης SaveAs στον κώδικα

• Για να χρησιμοποιήσετε η λειτουργία SaveAs σε αυτό το βιβλίο εργασίας, πληκτρολογήστε ( ) και SaveAs , ή επιλέξτε SaveAs από τη λίστα των διαθέσιμων λειτουργιών.

Βήμα 3: Προσθήκη διεύθυνσης και ονόματος αρχείου στον κώδικα VBA

• Για να εισαγάγετε τη διεύθυνση του αρχείου, go στη θέση του αρχείου.
• Κάντε κλικ στο φάκελος εικονίδιο και αντίγραφο τη διεύθυνση.

• Επικόλληση τη διεύθυνση κάτω από το Όνομα αρχείου επιχείρημα του Λειτουργία SaveAs .
• Μετά την εισαγωγή του διεύθυνση , πληκτρολογήστε το όνομα αρχείου .
• Τέλος, close τη διεύθυνση και το όνομα αρχείου με εισαγωγικά (" ") .

• Αφού προσθέσετε τη διεύθυνση, πληκτρολογήστε ένα κόμμα και γράψτε 52 για το FileFormat επιχείρημα.

• Έτσι θα εμφανιστούν οι τελικοί κωδικοί.

 Sub Without_Prompt() ThisWorkbook.SaveAs "C:\Users\Admin\Desktop\Bhubon\Exceldemy\3875_420093_Bhubon_excel vba save workbook without prompt\Save Without Prompt", 52 End Sub 

Βήμα 4: Εκτέλεση του κώδικα VBA και έλεγχος για σφάλμα

• Θα εμφανιστεί ένα μήνυμα προτροπής καθώς δεν απενεργοποιήσαμε το Ειδοποιήσεις μήνυμα.
• Στη συνέχεια, κάντε κλικ στο Όχι .

• Τέλος, κάντε κλικ στο Τέλος .

Βήμα 5: Γράψτε έναν κώδικα για να απενεργοποιήσετε το μήνυμα προτροπής

• Για να απενεργοποιήσουμε το μήνυμα προτροπής, πρέπει να απενεργοποιήσουμε το DisplayAlerts μήνυμα.
• Δώσε μου το DisplayAlerts. δήλωση επιλογής ως Ψευδές για να απενεργοποιήσετε την Προτροπή ή το μήνυμα συναγερμού.
• Γράψτε τους ακόλουθους κωδικούς στο Ενότητα για να σταματήσετε την προτροπή.

 Sub Without_Prompt() 'Εντολή για να μην εμφανιστεί το Prompt Application.DisplayAlerts = False 'Εφαρμόστε την εντολή για την αποθήκευση του αρχείου 'Στο όρισμα File Name δώστε το όνομα και τη διεύθυνση του αρχείου ThisWorkbook.SaveAs "C:\Users\Admin\Desktop\Bhubon\Exceldemy\3875_420093_Bhubon_excel vba save workbook without prompt\Save Without Prompt", 52 Application.DisplayAlerts = True End Sub 

Βήμα 6: Εκτέλεση κώδικα VBA μετά την απενεργοποίηση της εντολής DisplayAlerts

• Αυτή τη φορά, κάνετε κλικ στο κουμπί run ή πατάτε το πλήκτρο F5 για να εκτελέσετε το Κώδικες VBA .
• Αλλά τώρα δεν θα εμφανιστεί μήνυμα ειδοποίησης.

Βήμα 7: Ελέγξτε την τελική απάντηση στο αποτέλεσμα

• Στο σύνολο δεδομένων του δείγματός μας, αλλάξτε το όνομα παραλήπτη από το Άλατα στο Bhubon .

• Τύπος F5 για να εκτελέσετε το πρόγραμμα και δεν θα εμφανιστεί κανένα μήνυμα.
• Κλείστε το φύλλο εργασίας χωρίς αποθήκευση.

• Ανοίξτε το αρχείο και δείτε ότι το αρχείο έχει αποθηκευτεί με την τελευταία τρέχουσα έκδοση που έχετε κάνει.

Συμπέρασμα

Ελπίζω αυτό το άρθρο να σας έδωσε ένα σεμινάριο για το πώς να αποθηκεύετε βιβλία εργασίας χωρίς προτροπή με Excel VBA Όλες αυτές οι διαδικασίες θα πρέπει να διδαχθούν και να εφαρμοστούν στο σύνολο δεδομένων σας. Ρίξτε μια ματιά στο βιβλίο ασκήσεων και δοκιμάστε αυτές τις δεξιότητες. Έχουμε κίνητρο να συνεχίσουμε να δημιουργούμε σεμινάρια όπως αυτό λόγω της πολύτιμης υποστήριξής σας.

Παρακαλούμε επικοινωνήστε μαζί μας εάν έχετε οποιεσδήποτε ερωτήσεις. Επίσης, μπορείτε να αφήσετε σχόλια στην παρακάτω ενότητα.

Εμείς, οι Exceldemy Ομάδα, ανταποκρίνονται πάντα στα ερωτήματά σας.

Μείνετε μαζί μας και συνεχίστε να μαθαίνετε.