Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet letiltani vagy nem engedélyezni a Mentés és mentés másként opciókat az Excelben?

Normális esetben, amikor a Mentés vagy a Mentés másként gombra kattintunk, a munkafüzet módosított adataink egyszerre kerülnek mentésre. De előfordul, hogy az Excel fájlt más felhasználók nem módosíthatják és menthetik el, amikor elolvassák a fájlt. Ez a cikk VBA módszerrel ismerteti a Mentés és mentés másként beállítások letiltását az Excelben.

Tiltsa le a Mentés és mentés másként opciókat VBA kóddal


Tiltsa le a Mentés és mentés másként opciókat VBA kóddal

Az alábbi VBA-kód futtatásával letilthatja a Mentés és mentés másként opciókat az Excelben.

1. A munkafüzetben le kell tiltania a Mentés és mentés másként funkciókat, nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán Ez a munkafüzet a bal sávba másolja és illessze be az alábbi VBA 1 elemet a Kód ablakba, majd kattintson a gombra Megtakarítás gomb. Lásd a képernyőképet:

VBA 1: tiltsa le a Mentés és mentés másként opciókat az Excelben

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

3. A nyílásban Mentés másként ablakban válasszon egy mappát a munkafüzet mentéséhez, nevezze el a munkafüzetet, ha szükséges, és válassza ki Excel makró-engedélyezett munkafüzet tól Mentés típus legördülő listából, és végül kattintson a gombra Megtakarítás gombot.

4. Most másolja és illessze be az alábbi VBA 2-t a Ez a munkafüzet kód ablak. Lásd a képernyőképet.

VBA 2: tiltsa le a Mentés és mentés másként opciókat az Excelben

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. Kattintson a Megtakarítás gombot a kód mentéséhez, majd zárja be a munkafüzetet.

A munkafüzet mentésre került Excel makró-engedélyezett munkafüzetként a Megtakarítás Mentés másként funkciók letiltva.

Megjegyzések: Úgy tűnik, hogy a munkafüzet minden módosításakor és mentésekor a módosítások az aktuális munkalapra kerülnek. A munkafüzet bezárása és újbóli megnyitása után azonban azt fogja találni, hogy a módosításokat nem sikerült menteni.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe · 7 months ago
    Please, I do not want someone to copy or save my excel file, how can I remove save or save as?

  • To post as a guest, your comment is unpublished.
    Madhusudhan · 9 months ago
    Hello I am a fan of this website...I used to try the code. It works flawlessly. But it disables "Save option" too. I am not able to save the Excel sheet. What I need is to disable only the feature "Save As" I read the other user's comments too. ThisWorkbookSaved = True is not working for me as well. Could you please help? Thanks a lot for all your contributions.
  • To post as a guest, your comment is unpublished.
    I.C. Problems · 1 years ago
    @crystal The update to the code adds a sheet, but never actually checks whether there is a TRUE/FALSE value in that sheet. The update fixes nothing, it just creates a useless sheet within the workbook.

    I think you forgot to do a check whether there is a TRUE/FALSE value on that sheet.
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @Naomi Good day,
    Which Excel version do you use?
  • To post as a guest, your comment is unpublished.
    Naomi · 1 years ago
    I keep getting debug error
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @jen Hi jen,
    The article has been updated again with the problem solving. Please have a try. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    jen · 2 years ago
    @crystal dear
    the article is not updated. it doesnt work
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Rogue Dear Rogue,
    I miss the point of the problem. Thank you so much for your help and sharing.

    Best Regards
  • To post as a guest, your comment is unpublished.
    Rogue · 3 years ago
    Just to help whoever else reads this article looking for help with suppressing the save button I thought I'd place the answer down here as "Crystal" doesn't seem to be answering the question....


    If you place the workbook in "Design Mode" and then hit SAVE it should work.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @What they said Hi,
    Thank you for your question. The article is updated to support saving the code into workbook now.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Les Battersthee Dear Les,
    Thank you for your question. The article is updated to support saving the code into workbook now.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @tee Dear tee,
    Thank you for your question. The article is updated to support saving the code into workbook now.
  • To post as a guest, your comment is unpublished.
    What they said · 3 years ago
    As TEE and LES posted, how do we save the file with the macro in?
  • To post as a guest, your comment is unpublished.
    Les Battersthee · 3 years ago
    As TEE posted, how do we save the file with the macro in? It is not there when I reopen. I am also now getting a bug on the ThisWorkbookSaved = True bit.
  • To post as a guest, your comment is unpublished.
    tee · 4 years ago
    this doesn't work. I can't save the code it's gone once I reopen the file. How do I save the code?