Как да деактивирате или да не разрешите опциите Save & Save As в Excel?
Обикновено, когато щракнем върху функцията Запиши или Запиши като, нашите модифицирани данни в работната книга ще бъдат запазени наведнъж. Но понякога вашият файл в Excel не може да бъде модифициран и запазен от други потребители, когато четат файла. Тази статия предоставя VBA метод за деактивиране на опциите Save & Save As в Excel.
Деактивирайте опциите за запазване и запазване като с VBA код
Деактивирайте опциите за запазване и запазване като с VBA код
Можете да стартирате кода на VBA по-долу, за да деактивирате опциите Save & Save As в Excel.
1. В работната книга трябва да деактивирате функциите Save & Save As, моля, натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти Тази работна книга в лявата лента копирайте и поставете VBA 1 по-долу в прозореца на кода и след това щракнете върху Save бутон. Вижте екранна снимка:
VBA 1: деактивирайте опциите Save & Save As в Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. В откриването Save As прозорец, изберете папка, за да запазите работната книга, наименувайте работната книга както ви е необходимо и изберете Работна книга с активирани макроси на Excel от Запиши като тип падащ списък и накрая щракнете върху Save бутон.
4. Сега копирайте и поставете VBA 2 по-долу в Тази работна книга кодов прозорец. Вижте екранна снимка.
VBA 2: деактивирайте опциите Save & Save As в 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. Щракнете върху Save бутон, за да запазите кода, и след това затворете работната книга.
Работната книга е запазена като работна книга с активирани макроси на Excel с Save намлява Save As функциите са деактивирани.
Забележка: Изглежда, че промените се записват в текущия работен лист всеки път, когато промените и запазите работната книга. Но след като затворите и отворите отново работната книга, ще откриете, че промените не са били запазени.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
