Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i analluogi neu beidio â chaniatáu opsiynau Cadw ac Arbed Fel yn Excel?

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.


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
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
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim 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 gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (27)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw hyn yn gweithio. Ni allaf arbed y cod mae wedi mynd ar ôl i mi ailagor y ffeil. Sut ydw i'n arbed y cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl ti,
Diolch i chi am eich cwestiwn. Mae'r erthygl yn cael ei diweddaru i gefnogi arbed y cod yn llyfr gwaith nawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
annwyl
nid yw'r erthygl yn cael ei diweddaru. nid yw'n gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo jen,
Mae'r erthygl wedi'i diweddaru eto gyda'r datrys problemau. Rhowch gynnig arni. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r diweddariad i'r cod yn ychwanegu dalen, ond nid yw byth yn gwirio a oes gwerth CYWIR / ANGHYWIR yn y ddalen honno. Nid yw'r diweddariad yn trwsio dim, mae'n creu taflen ddiwerth yn y llyfr gwaith.

Rwy'n meddwl eich bod wedi anghofio gwirio a oes gwerth CYWIR / ANGHYWIR ar y ddalen honno.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel y postiodd TEE, sut ydyn ni'n cadw'r ffeil gyda'r macro ynddo? Nid yw yno pan fyddaf yn ailagor. Rwyf hefyd nawr yn cael byg ar y darn ThisWorkbookSaved = Gwir.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Les,
Diolch i chi am eich cwestiwn. Mae'r erthygl yn cael ei diweddaru i gefnogi arbed y cod yn llyfr gwaith nawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel y postiodd TEE a LES, sut ydyn ni'n cadw'r ffeil gyda'r macro ynddo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Diolch i chi am eich cwestiwn. Mae'r erthygl yn cael ei diweddaru i gefnogi arbed y cod yn llyfr gwaith nawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Er mwyn helpu pwy bynnag arall sy'n darllen yr erthygl hon yn chwilio am help i atal y botwm arbed, meddyliais y byddwn yn gosod yr ateb i lawr yma gan nad yw'n ymddangos bod "Crystal" yn ateb y cwestiwn ....


Os rhowch y llyfr gwaith yn "Design Mode" ac yna taro SAVE dylai weithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Rogue,
Rwy'n colli pwynt y broblem. Diolch yn fawr iawn am eich cymorth a rhannu.

Cofion gorau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n dal i gael gwall dadfygio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo dwi'n ffan o'r wefan yma... roeddwn i'n arfer trio'r côd. Mae'n gweithio flawlessly. Ond mae'n analluogi "Save opsiwn" hefyd. Nid wyf yn gallu arbed y daflen Excel. Yr hyn sydd ei angen arnaf yw analluogi'r nodwedd "Save As" yn unig, darllenais sylwadau'r defnyddiwr arall hefyd. ThisWorkbookSaved = Nid yw Gwir yn gweithio i mi hefyd. Allech chi helpu os gwelwch yn dda? Diolch yn fawr am eich holl gyfraniadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os gwelwch yn dda, nid wyf am i rywun gopïo neu gadw fy ffeil excel, sut y gallaf ddileu arbed neu gadw fel?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais ddefnyddio'r cod ar gyfer PEIDIWCH Â ARBED y ffeil. Ond ni weithiodd. Mae'n arbed y ffeil.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich ateb. Gwerthfawrogi'n fawr. Rwyf am i chi fy arwain sut i anfon ffeil wedi'i chadw at ffrind a all agor fy ffeil ond dim ond ei darllen neu ei golygu, ond ni all gadw'r ffeil mewn unrhyw ffolder.
1. Er enghraifft, mae gen i ffeil wedi'i chadw, yr wyf am ei hanfon at "A" Mae'n agor y ffeil sydd wedi'i chadw ond ar ôl ei hagor mae'n darllen neu'n gwneud unrhyw newidiadau yn fy ffeil, ni all ei gadw ar ei ddiwedd mewn unrhyw ffolder.
2. Mae gen i ffurflen cod rhyngrwyd sy'n gwrthod cadw. Ond yn yr achos hwn pan fyddaf yn copïo a gludo'r cod, nid yw'r ffeil yn arbed. Felly ni allaf anfon y ffeil ato
3. Sut alla i anfon y ffeil i Blaid "A" gyda chod arbed yn y gobaith na all achub y ffeil.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych!   
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I bawb a ddaeth ar draws y gwall, ar ôl gwneud hyn unwaith yn barod, pan fyddant yn ceisio ei wneud eto, ni fydd y cod yn arbed:

Ewch i waelod y ffeil excel lle mae'n dangos y dalennau
De-gliciwch ar y taflenni
Pwyswch Datguddio
Dileu'r ddalen o'r enw CancelBeforeSave
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch yn fawr, dyma'r union beth sydd ei angen arnaf, i atal eraill rhag arbed neu arbed fel ffeil mewn unrhyw leoliad, ac mae'n gweithio i mi, diolch i'r sylw am "Modd Dylunio".

Fodd bynnag, mae dal angen i mi allu gwneud newidiadau i'r ffeil o bryd i'w gilydd ac arbed y newidiadau. Oes rhaid i mi ddileu'r cod VBA yn gyntaf, gwneud y newidiadau, Cadw, ac yna ychwanegu'r cod VBA yn ôl i mewn eto i atal eraill rhag arbed? Neu a oes ffordd symlach o wneud golygiadau ac arbed wrth adael y cod VBA yn gyfan?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rochelley,
Diolch i chi am eich adborth. Mae'r cod VBA wedi'i ddiweddaru fel a ganlyn. Mae angen i chi:
1. Gwasgwch y Alt + F11 allweddi i agor y Visual Basic golygydd.
2. Yn y Visual Basic golygydd, cliciwch ddwywaith Llyfr Gwaith hwn yn y chwith Prosiect cwarel, ac yna copïwch y cod VBA canlynol i mewn Y Llyfr Gwaith hwn (Cod) ffenestr.
3. Arbedwch y cod ac arbedwch y llyfr gwaith fel Llyfr Gwaith Excel Macro-Enabled.
Nodiadau:
1) Yn y cod, "Prawf Win10x64Mae " " yn sefyll am yr enw defnyddiwr yn eich system weithredu. Newidiwch ef i'ch enw defnyddiwr eich hun.
2) Ar ôl ychwanegu'r cod, gallwch olygu'r llyfr gwaith a'i gadw fel arfer. Ond os bydd rhywun arall yn cael y llyfr gwaith hwn, ni fydd yr opsiynau Cadw a Chadw fel ar gael.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20220930
    ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "Win10x64Test" 'The username in your operating system

If xName <> Environ("username") Then
Cancel = True
End If
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf newydd ddarganfod, cyn gynted ag y byddaf yn gosod llwybr byr i'r ffeil hon mewn lleoliad arall (lle mae'r lleill yn mynd i'w gyrchu) nad yw fy holl amddiffyniadau'n gweithio mwyach. Nid yw'r daflen wedi'i diogelu (yr wyf wedi'i gosod yn flaenorol), nid yw'r llyfr gwaith wedi'i ddiogelu (yr wyf hefyd wedi'i osod o'r blaen) ac mae'r gallu Save-Save As yno nawr, fel pe na bai'r cod VBA yno o gwbl. Os af i'r ffeil wreiddiol, mae'r cyfan yn dal i weithio.

Beth am y llwybr byr sy'n tynnu'r holl amddiffyniadau i ffwrdd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rochelley,
Ni all y cod VBA ddarganfod pa ffordd y mae'r llyfr gwaith yn cael ei agor. Felly ni all atal eraill rhag newid y ffeil trwy ei hagor trwy lwybr byr.
Mae'n ddrwg gennyf, ni allaf helpu gyda'r broblem hon.
Ar gyfer y rhifyn cyntaf y soniasoch amdano uchod, mae angen amser arnaf i weld a allaf ei drin.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n bosibl y bydd y defnyddiwr sy'n derbyn y ffeil yn analluogi'r macros ac ni fydd y rheolydd yn gweithio. Helpwch i ddeall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Deepak Kachar,
Os nad ydych am i ddefnyddwyr eraill analluogi'r macros ar ôl iddynt dderbyn y ffeil, gallwch guddio'r cod macro na all neb ei agor a'i weld.
Gweld a all y dull yn yr erthygl ganlynol eich helpu chi.
Sut i Ddiogelu a Chuddio Macros Excel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich ymateb. Rwy'n meddwl bod y cysylltiad yn un gwallus. A fyddech cystal â helpu gyda'r ddolen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo DEEPAK KACHARE,
Sori am y camgymeriad. I amddiffyn a chuddio macros Excel, mae angen i chi ffurfweddu fel a ganlyn.
1. Cliciwch ar y Alt + F11 allweddi i agor y golygydd VBA.
2. Yn y golygydd, cliciwch offer > Priodweddau VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba3.png
3. Yn y Priodweddau VBAProject blwch deialog, ewch i'r Diogelu tab, gwiriwch y Prosiect cloi i'w weld blwch, rhowch gyfrinair ac yn olaf cliciwch OK.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba4.png
O hyn ymlaen, mae angen cyfrinair ar unrhyw un (gan gynnwys chi'ch hun) sydd am agor golygydd VBA y llyfr gwaith hwn.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL