Как отключить сохранение книги, разрешив только функцию «Сохранить как» в Excel?

Для защиты исходных данных в книге часто необходимо использовать функцию «Сохранить как» вместо обычного «Сохранить», особенно при обновлении данных. Однако многие пользователи инстинктивно нажимают Ctrl + S для сохранения своей работы во время редактирования. Существует ли способ отключить функцию «Сохранить», разрешив только использование «Сохранить как» в Excel? В этом руководстве мы покажем вам, как это сделать с помощью простого решения на VBA.

Отключение сохранения книги с разрешением только функции «Сохранить как» с использованием кода VBA

Отключение сохранения книги с разрешением только функции «Сохранить как» с использованием кода VBA

Следующий код VBA поможет вам отключить функцию «Сохранить», разрешив только использование «Сохранить как» для книги.

1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните 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 for Applications.

4. Поскольку книга содержит сценарий VBA, при сохранении книги сначала появится следующее диалоговое окно. Пожалуйста, нажмите кнопку Да.

5. Теперь появится диалоговое окно, информирующее вас о том, что функция «Сохранить» в этой книге отключена, и вам нужно использовать функцию «Сохранить как», чтобы сохранить обновленные данные этой книги.

Пожалуйста, нажмите кнопку ОК и продолжите сохранение книги с помощью функции «Сохранить как».

Связанные статьи:

• Как отключить или запретить опции «Сохранить» и «Сохранить как» в Excel?
• Как вставить или отобразить временную метку последнего сохранения на листе в Excel?
• Как сохранить только один рабочий лист в книге в Excel?