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

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