Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe te dwingen gebruikers om op te slaan als een macro-enabled werkmap?

Wanneer u een Excel-werkmap opslaat, wordt deze standaard opgeslagen als xlsx-bestandsindeling, en deze bestandsindeling verwijdert de macrocodes uit de werkmap als er meerdere codes zijn. Om de codes te behouden, slaat u de werkmap op als Excel Macro-Enable Workbook-indeling. Hoe kunt u gebruikers dwingen om op te slaan als een werkmap die is ingeschakeld voor macro's?

Gebruikers dwingen om op te slaan als een macro-enabled werkmap met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Gebruikers dwingen om op te slaan als een macro-enabled werkmap met VBA-code

Als u de werkmap standaard wilt opslaan als een macro-ingeschakelde werkmap, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik vervolgens ThisWorkbook onder de VBAProject sectie om een ​​nieuwe lege module te openen en kopieer en plak vervolgens de volgende code in de module:

VBA-code: dwingen om werkmap standaard als werkmap met macro-ingave op te slaan:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice 20161222
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 opslaan als xlsm 1

3. Sla het codevenster vervolgens op en sluit het vanaf nu, wanneer gebruikers opslaan als deze werkmap, wordt het opgeslagen als Excel Macro-Enabled werkmap formaat standaard in als volgende screenshot getoond:

doc force opslaan als xlsm 2


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jonathan · 6 months ago
    Keep getting a 1004 ERROR.
    Using Off365 2016 for MAC. Got a solutions?
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Jonathan,
      This code works well in Windows Office, but it not tested in MAC.
      You should search for a code for working in MAC.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Shazza · 7 months ago
    fileformat: =52 is a nicer was as making macro enabled workbook. fileformat:=51 is normal workbook.
  • To post as a guest, your comment is unpublished.
    Brevig Madison · 1 years ago
    I'm using Excel 2016 for Mac, and when I use this VBA code to achieve the "force save as .xlsm" I get the following error:

    Run-time error '1004':

    Method 'GetSaveAsFilename' of object '_Application' failed

    Any guidance someone could provide around this error and how I may need to adjust the code to work on the Mac version of Excel would be greatly appreciated!
  • To post as a guest, your comment is unpublished.
    ProbablyNotLadyGaga · 1 years ago
    Nice one!

    Saved me a lot of headache! :)
  • To post as a guest, your comment is unpublished.
    RM · 1 years ago
    Saved me a lot of pain - thanks so much
  • To post as a guest, your comment is unpublished.
    AFF · 2 years ago
    This was so useful and worked like a charm thank you :)