Как отключить или запретить параметры «Сохранить и сохранить как» в Excel?

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

Отключить параметры «Сохранить и сохранить как» с помощью кода VBA

Отключить параметры «Сохранить и сохранить как» с помощью кода VBA

Вы можете запустить приведенный ниже код VBA, чтобы отключить параметры «Сохранить и сохранить как» в Excel.

1. В книге вам необходимо отключить функции «Сохранить и сохранить как», нажмите другой + 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 Macro-Enabled Workbook из Сохранить как раскрывающийся список и, наконец, щелкните Сохранено .

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 без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!