Note: The other languages of the website are Google-translated. Back to English

Πώς να αναγκάσετε τους χρήστες να αποθηκεύσουν ως βιβλίο εργασίας με δυνατότητα μακροεντολής;

Όταν αποθηκεύετε ένα βιβλίο εργασίας του 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

doc force αποθήκευση ως xlsm 1

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, από τώρα και στο εξής, όταν οι χρήστες αποθηκεύουν ως αυτό το βιβλίο εργασίας, θα αποθηκευτούν ως Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής μορφή από προεπιλογή όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

doc force αποθήκευση ως xlsm 2


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (11)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν τόσο χρήσιμο και λειτούργησε σαν γούρι ευχαριστώ :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου έσωσε πολύ πόνο - ευχαριστώ πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Νίκαια ένα!

Με γλίτωσε από πολύ πονοκέφαλο! :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ το Excel 2016 για Mac και όταν χρησιμοποιώ αυτόν τον κώδικα VBA για να επιτύχω το "force save as .xlsm" λαμβάνω το ακόλουθο σφάλμα:

Σφάλμα χρόνου εκτέλεσης '1004':

Η μέθοδος "GetSaveAsFilename" του αντικειμένου "_Application" απέτυχε

Οποιαδήποτε καθοδήγηση θα μπορούσε να δώσει κάποιος σχετικά με αυτό το σφάλμα και πώς μπορεί να χρειαστεί να προσαρμόσω τον κώδικα ώστε να λειτουργεί στην έκδοση Mac του Excel θα εκτιμούσαμε ιδιαίτερα!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μορφή αρχείου: =52 είναι καλύτερο από τη δημιουργία βιβλίου εργασίας με δυνατότητα macro. fileformat:=51 είναι κανονικό βιβλίο εργασίας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συνεχίστε να λαμβάνετε ένα ΣΦΑΛΜΑ 1004.
Χρήση του Off365 2016 για MAC. Έχετε λύσεις;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Τζόναθαν,
Αυτός ο κώδικας λειτουργεί καλά στο Windows Office, αλλά δεν έχει δοκιμαστεί σε MAC.
Θα πρέπει να αναζητήσετε έναν κωδικό για εργασία στο MAC.
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Οποιοσδήποτε τρόπος να έχετε αυτό το VBA σε ένα αρχείο προτύπου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να υπάρχει αυτό το VBA σε ένα αρχείο που είναι πραγματικός τύπος αρχείου προτύπου;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν είστε έτοιμοι να δημιουργήσετε το πρότυπο, πιστεύω ότι πρέπει να χρησιμοποιήσετε το Άμεσο Παράθυρο για εκτέλεση
ActiveWorkbook.SaveAs Όνομα αρχείου:="ΕΙΣΑΓΕΤΕ ΤΟ ΟΝΟΜΑ ΤΟΥ ΠΡΟΤΥΠΟΥ ΣΑΣ", FileFormat:=xlOpenXMLTemplateMacroEnabled
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA που αναγκάζει τον χρήστη να αποθηκεύσει σε μορφή αρχείου .xlsm λειτουργεί πολύ καλά για μένα. Αυτή τη λύση την έψαχνα αρκετό καιρό. Ευχαριστώ πολύ για τη βοήθεια!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL