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

Sut i orfodi defnyddwyr i gynilo fel llyfr gwaith macro-alluog?

Pan arbedwch lyfr gwaith Excel, bydd yn cael ei gadw fel fformat ffeil xlsx yn ddiofyn, a bydd y fformat ffeil hwn yn cael gwared ar y macro-godau o'r llyfr gwaith os oes codau lluosog. Er mwyn cadw'r codau, dylech gadw'r llyfr gwaith fel fformat Llyfr Gwaith Macro-Galluogi Excel. Sut allech chi orfodi defnyddwyr i gynilo fel llyfr gwaith macro-alluog?

Gorfodi defnyddwyr i arbed fel llyfr gwaith macro-alluog gyda chod VBA


swigen dde glas saeth Gorfodi defnyddwyr i arbed fel llyfr gwaith macro-alluog gyda chod VBA

Er mwyn arbed y llyfr gwaith fel llyfr gwaith macro-alluog yn ddiofyn, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna cliciwch ddwywaith Llyfr Gwaith hwn O dan y Prosiect VBA adran i agor modiwl gwag newydd, ac yna copïo a gludo'r cod canlynol i'r modiwl:

Cod VBA: Llu i arbed llyfr gwaith fel llyfr gwaith macro-alluog yn ddiofyn:

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

grym doc arbed fel xlsm 1

3. Yna arbedwch a chau y ffenestr god hon, o hyn ymlaen, pan fydd defnyddwyr yn arbed fel y llyfr gwaith hwn, bydd yn cael ei gadw fel Llyfr Gwaith Macro-alluogedig Excel fformat yn ddiofyn fel y dangosir y screenshot canlynol:

grym doc arbed fel xlsm 2


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn mor ddefnyddiol ac yn gweithio fel swyn diolch :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi arbed llawer o boen i mi - diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Un braf!

Wedi arbed llawer o gur pen i mi! :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio Excel 2016 ar gyfer Mac, a phan fyddaf yn defnyddio'r cod VBA hwn i gyflawni'r "force save as .xlsm" rwy'n cael y gwall canlynol:

Gwall amser rhedeg '1004':

Methodd dull 'GetSaveAsFilename' gwrthrych '_Application'

Byddai unrhyw arweiniad y gallai rhywun ei ddarparu ynghylch y gwall hwn a sut y gallai fod angen i mi addasu'r cod i weithio ar fersiwn Mac Excel yn cael ei werthfawrogi'n fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
fileformat: =52 yn brafiach oedd fel gwneud macro-alluogi llyfr gwaith. fileformat:=51 yn llyfr gwaith arferol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Daliwch ati i gael GWALL 1004.
Gan ddefnyddio Off365 2016 ar gyfer MAC. Oes gennych chi atebion?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Jonathan,
Mae'r cod hwn yn gweithio'n dda yn Windows Office, ond ni chafodd ei brofi yn MAC.
Dylech chwilio am god ar gyfer gweithio yn MAC.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw ffordd i gael y VBA hwn mewn ffeil templed
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw ffordd o gael y VBA hwn mewn ffeil sy'n wir fath o ffeil templed?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddwch chi'n barod i greu'r templed, rwy'n credu bod yn rhaid i chi ddefnyddio'r Ffenest Ar Unwaith i redeg
ActiveWorkbook.SaveAs Filename:="NODWCH EICH ENW TEMPLED", FileFormat:=xlOpenXMLTemplateMacroEnabled
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir