Как отключить стандартное сохранение книги, оставив возможность использовать только «Сохранить как» в Excel?
Чтобы защитить исходные данные в книге, часто приходится использовать команду «Сохранить как» вместо «Сохранить», особенно при обновлении данных. Однако многие пользователи по привычке нажимают Ctrl + S, чтобы сохранить свою работу во время редактирования. Можно ли отключить функцию «Сохранить», оставив доступной только «Сохранить как» в Excel? В этом руководстве показано, как легко решить эту задачу с помощью простого макроса на VBA.
Отключение сохранения книги с разрешением только «Сохранить как» с помощью кода VBA
Отключение сохранения книги с разрешением только «Сохранить как» с помощью кода VBA
Приведённый ниже код VBA поможет вам отключить функцию «Сохранить», оставив доступной только команду «Сохранить как» для данной книги.
1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений дважды щёлкните элемент ThisWorkbook на панели Проект, чтобы открыть окно ThisWorkbook (Код). Затем скопируйте и вставьте приведённый ниже код VBA в окно кода.
Код VBA: разрешить только «Сохранить как» в Excel
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
Cancel = True
MsgBox "You cannot save this workbook. Use Save As", vbInformation, "Kutools for Excel"
End If
End Sub
3. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
4. Поскольку книга содержит сценарий VBA, при её сохранении сначала появится следующее диалоговое окно. Нажмите кнопку Да.
5. Теперь появится диалоговое окно с уведомлением о том, что функция «Сохранить» в этой книге отключена, и для сохранения обновлённых данных необходимо воспользоваться командой «Сохранить как».
Нажмите кнопку ОК и продолжите сохранение книги с помощью функции «Сохранить как».
См. также:
- Как отключить или запретить использование команд «Сохранить» и «Сохранить как» в Excel?
- Как вставить или отобразить метку времени последнего сохранения на листе Excel?
- Как сохранить в книге Excel только один лист?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек