Как отключить или заблокировать функции «Сохранить» и «Сохранить как» в Excel?
Обычно при нажатии кнопок «Сохранить» или «Сохранить как» все изменения в книге сохраняются немедленно. Однако бывают ситуации, когда необходимо запретить другим пользователям изменять и сохранять файл Excel во время его просмотра. В этой статье описан способ отключения функций «Сохранить» и «Сохранить как» в Excel с помощью VBA.
Отключение функций «Сохранить» и «Сохранить как» с помощью кода VBA
Отключение функций «Сохранить» и «Сохранить как» с помощью кода VBA
Вы можете выполнить приведённый ниже код VBA, чтобы отключить функции «Сохранить» и «Сохранить как» в Excel.
1. В книге, в которой нужно отключить функции «Сохранить» и «Сохранить как», одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений дважды щёлкните по элементу ЭтаКнига на левой панели, скопируйте и вставьте приведённый ниже код VBA 1 в окно кода, а затем нажмите кнопку Сохранить. См. снимок экрана:
Код VBA 1: отключение функций «Сохранить» и «Сохранить как» в Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. В открывшемся окне Сохранить как укажите имя книги по своему усмотрению, выберите тип файла Книга Excel с поддержкой макросов в поле Указать формат сохранения из раскрывающегося списка и нажмите кнопку Сохранить.
4. Теперь скопируйте и вставьте приведённый ниже код VBA 2 в окно кода ЭтаКнига. См. снимок экрана.
Код VBA 2: отключение функций «Сохранить» и «Сохранить как» в 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. Нажмите кнопку Сохранить, чтобы сохранить код, а затем закройте книгу.
Книга сохранена как книга Excel с поддержкой макросов, при этом функции Сохранить и Сохранить как отключены.
Примечание: Кажется, что изменения сохраняются в текущем листе каждый раз при редактировании и сохранении книги. Однако после закрытия и повторного открытия файла вы обнаружите, что изменения на самом деле не сохранились.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек