Conas iallach a chur ar úsáideoirí sábháil mar leabhar oibre macra-chumasaithe?
Nuair a shábhálfaidh tú leabhar oibre Excel, sábhálfar é mar fhormáid comhaid xlsx de réir réamhshocraithe, agus gheobhaidh an fhormáid comhaid seo réidh leis na macra-chóid ón leabhar oibre má tá ilchóid ann. Chun na cóid a choinneáil, ba cheart duit an leabhar oibre a shábháil mar fhormáid Leabhar Oibre Macra-Cumasaithe Excel. Conas a d’fhéadfá iallach a chur ar úsáideoirí sábháil mar leabhar oibre macra-chumasaithe?
Cuir iallach ar úsáideoirí sábháil mar leabhar oibre macra-chumasaithe le cód VBA
Cuir iallach ar úsáideoirí sábháil mar leabhar oibre macra-chumasaithe le cód VBA
Chun an leabhar oibre a shábháil mar leabhar oibre macra-chumasaithe de réir réamhshocraithe, d’fhéadfadh an cód VBA seo a leanas cabhrú leat, déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Ansin cliceáil faoi dhó An Leabhar Oibre seo faoi na Tionscadal VBA alt chun modúl bán nua a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl:
Cód VBA: Fórsa chun an leabhar oibre a shábháil mar leabhar oibre macra-chumasaithe de réir réamhshocraithe:
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. Ansin sábháil agus dún an fhuinneog cód seo, as seo amach, nuair a shábhálfaidh úsáideoirí mar an leabhar oibre seo, sábhálfar í mar Leabhar Oibre Macra-Chumasaithe Excel formáid de réir réamhshocraithe mar a thaispeántar an pictiúr a leanas:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!