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

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

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

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

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

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

2. Затем скопируйте и вставьте приведенный ниже код VBA в окно Код появившегося окна Microsoft Visual Basic for Applications.

Код 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. Затем одновременно нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

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

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

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