Πώς να αναγκάσετε τους χρήστες να αποθηκεύσουν ως βιβλίο εργασίας με δυνατότητα μακροεντολής;
Όταν αποθηκεύετε ένα βιβλίο εργασίας του Excel, θα αποθηκευτεί ως μορφή αρχείου xlsx από προεπιλογή και αυτή η μορφή αρχείου θα απαλλαγεί από τους κωδικούς μακροεντολών από το βιβλίο εργασίας εάν υπάρχουν πολλοί κωδικοί. Για να διατηρήσετε τους κωδικούς, θα πρέπει να αποθηκεύσετε το βιβλίο εργασίας ως μορφή Excel Work-Enable Workbook. Πώς μπορείτε να αναγκάσετε τους χρήστες να αποθηκεύσουν ως βιβλίο εργασίας με δυνατότητα μακροεντολής;
Αναγκάστε τους χρήστες να αποθηκεύσουν ως βιβλίο εργασίας με δυνατότητα μακροεντολής με κώδικα VBA
Αναγκάστε τους χρήστες να αποθηκεύσουν ως βιβλίο εργασίας με δυνατότητα μακροεντολής με κώδικα VBA
Για να αποθηκεύσετε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολής από προεπιλογή, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας σύμφωνα με το VBAProject ενότητα για να ανοίξετε μια νέα κενή λειτουργική μονάδα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα:
Κωδικός VBA: Επιβάλλεται να αποθηκεύσετε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολής από προεπιλογή:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
Dim xFileName As String
If SaveAsUI <> False Then
Cancel = True
xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
If xFileName <> "False" Then
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True
Else
MsgBox "Action Cancelled"
Cancel = True
Exit Sub
End If
End If
End Sub
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, από τώρα και στο εξής, όταν οι χρήστες αποθηκεύουν ως αυτό το βιβλίο εργασίας, θα αποθηκευτούν ως Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής μορφή από προεπιλογή όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
