Sut i analluogi neu beidio â chaniatáu opsiynau Cadw ac Arbed Fel yn Excel?
Fel rheol, pan fyddwn yn clicio swyddogaeth Cadw neu Arbed Fel, bydd ein data wedi'i addasu yn y llyfr gwaith yn cael ei gadw ar unwaith. Ond, weithiau, ni chaniateir i eich ffeil Excel gael ei haddasu a'i chadw gan ddefnyddwyr eraill wrth ddarllen y ffeil. Mae'r erthygl hon yn darparu dull VBA i analluogi'r opsiynau Cadw ac Arbed Fel yn Excel.
Analluoga Cadw ac Arbed Fel opsiynau gyda chod VBA
Analluoga Cadw ac Arbed Fel opsiynau gyda chod VBA
Gallwch redeg y cod VBA isod i analluogi'r opsiynau Cadw ac Arbed Fel yn Excel.
1. Yn y llyfr gwaith mae angen i chi analluogi'r swyddogaethau Cadw ac Arbed Fel, pwyswch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y bar chwith, copïwch a gludwch y VBA 1 isod i mewn i'r ffenestr Cod, ac yna cliciwch ar y Save botwm. Gweler y screenshot:
VBA 1: analluoga'r opsiynau Cadw ac Arbed Fel yn Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Yn yr agoriad Save As ffenestr, dewiswch ffolder i achub y llyfr gwaith, enwwch y llyfr gwaith yn ôl yr angen a dewiswch Llyfr Gwaith Macro-alluogedig Excel oddi wrth y Cadw fel math rhestr ostwng, ac yn olaf cliciwch y Save botwm.
4. Nawr copïwch a gludwch y VBA 2 isod i'r Llyfr Gwaith hwn ffenestr cod. Gweler y screenshot.
VBA 2: analluoga'r opsiynau Cadw ac Arbed Fel yn 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. Cliciwch ar y Save botwm i achub y cod, ac yna cau'r llyfr gwaith.
Mae'r llyfr gwaith wedi'i arbed fel Llyfr Gwaith Macro-alluog Excel gyda'r Save ac Save As swyddogaethau anabl.
Nodyn: Mae'n ymddangos bod newidiadau yn cael eu cadw yn y daflen waith gyfredol bob tro y byddwch chi'n addasu ac yn cadw'r llyfr gwaith. Ond ar ôl cau ac ailagor y llyfr gwaith, fe welwch fod y newidiadau wedi methu â chadw.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!