Conas roghanna Sábháil & Sábháil Mar Excel a dhíchumasú nó gan iad a cheadú?

De ghnáth, nuair a chliceálann muid feidhm Save or Save As, sábhálfar ár sonraí modhnaithe sa leabhar oibre ag an am céanna. Ach, uaireanta, ní cheadaítear d’úsáideoirí eile do chomhad Excel a mhodhnú agus a shábháil nuair a léann siad an comhad. Soláthraíonn an t-alt seo modh VBA chun na roghanna Save & Save As in Excel a dhíchumasú.

Díchumasaigh Sábháil & Sábháil Mar roghanna le cód VBA

Díchumasaigh Sábháil & Sábháil Mar roghanna le cód VBA

Féadfaidh tú an cód VBA thíos a rith chun na roghanna Sábháil & Sábháil Mar in Excel a dhíchumasú.

1. Sa leabhar oibre ní mór duit na feidhmeanna Sábháil & Sábháil Mar a dhíchumasú, brúigh le do thoil Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte An Leabhar Oibre seo sa bharra ar chlé, cóipeáil agus greamaigh an VBA 1 thíos i bhfuinneog an Chóid, agus ansin cliceáil ar an Sábháil cnaipe. Féach an pictiúr:

VBA 1: díchumasaigh na roghanna Sábháil & Sábháil Mar in Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

3. San oscailt Sábháil Mar fuinneog, roghnaigh fillteán chun an leabhar oibre a shábháil, ainmnigh an leabhar oibre de réir mar is gá duit agus roghnaigh Leabhar Oibre Macra-Chumasaithe Excel ó na Ach amháin mar chineál liosta anuas, agus ar deireadh cliceáil ar an Sábháil cnaipe.

4. Anois cóipeáil agus greamaigh an VBA 2 thíos sa An Leabhar Oibre seo fuinneog cód. Féach an pictiúr.

VBA 2: díchumasaigh na roghanna Sábháil & Sábháil Mar in Excel

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"

If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
    Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
    Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
    Sheets(xName & "").Visible = False
    Exit Sub
End If
    Cancel = True
End Sub

5. Cliceáil ar an Sábháil cnaipe chun an cód a shábháil, agus ansin an leabhar oibre a dhúnadh.

Sábháladh an leabhar oibre mar Leabhar Oibre Macra-Chumasaithe Excel leis an Sábháil agus Sábháil Mar feidhmeanna faoi mhíchumas.

nótaí: Dealraíonn sé go sábhálfar athruithe sa bhileog oibre reatha gach uair a dhéanann tú an leabhar oibre a mhodhnú agus a shábháil. Ach tar éis duit an leabhar oibre a dhúnadh agus a athoscailt, gheobhaidh tú gur theip ar na hathruithe a shábháil.

Díghlasáil Excel Magic le Kutools AI

• Forghníomhú Cliste: Oibríochtaí cille a dhéanamh, sonraí a anailísiú, agus cairteacha a chruthú - iad uile tiomáinte ag orduithe simplí.
• Foirmlí Saincheaptha: Gin foirmlí oiriúnaithe chun do shreafaí oibre a shruthlíniú.
• Códú VBA: Scríobh agus cuir i bhfeidhm cód VBA gan stró.
• Léiriú Foirmle: Foirmlí casta a thuiscint gan stró.
• Aistriúchán Téacs: Briseadh bacainní teanga laistigh de do scarbhileoga.

Feabhsaigh do chumas Excel le huirlisí atá á gcumhachtú le AI. Íosluchtaigh Anois agus taithí a fháil ar éifeachtúlacht mar nach raibh riamh cheana!