Как предотвратить выбор нескольких листов в Excel?

При случайном выборе и редактировании нескольких листов все выбранные листы будут покрыты одинаковым содержимым. Здесь мы представляем вам метод предотвращения одновременного выбора нескольких листов, чтобы на них не отображалось одно и то же содержимое.

Предотвратить выбор нескольких листов с кодом VBA

Предотвратить выбор нескольких листов с кодом VBA

Пожалуйста, сделайте следующее, чтобы предотвратить одновременный выбор нескольких листов.

1. На листе, который нужно отредактировать, щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню.

2. Затем скопируйте и вставьте приведенный ниже код VBA в Code окно всплывающего окна Microsoft Visual Basic для приложений окно.

Код VBA: запретить выбор нескольких листов в Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
 On Error GoTo err_handler
    If ActiveWindow.SelectedSheets.Count > 1 Then
        If ActiveSheet Is Target.Parent Then
            Application.EnableEvents = False
            MsgBox "Please don't make changes with multiple sheets selected.", _
            vbInformation, "Kutools for Excel"
            Application.Undo
            ActiveSheet.Select
        End If
    End If

err_handler:
Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

3. Затем нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. При выборе нескольких листов с текущим листом, вводе содержимого и нажатии клавиши Enter вы получите Kutools for Excel диалоговое окно, как показано на скриншоте ниже, чтобы напомнить вам о выборе нескольких листов. Пожалуйста, нажмите на OK .

После нажатия OK Кнопка, все выбранные листы будут немедленно разгруппированы.

Статьи по теме:

• Как в Excel удалить все листы кроме указанного / текущего?
• Как создавать новые листы для каждой строки в Excel?
• Как удалить лист без подсказки или предупреждения в Excel?