Как предотвратить выбор нескольких листов в 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 Sub3. Затем одновременно нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.
4. При выборе нескольких листов вместе с текущим листом, вводе содержимого и нажатии клавиши Enter вы получите диалоговое окно Kutools для Excel, как показано на скриншоте ниже, чтобы напомнить вам о выборе нескольких листов. Пожалуйста, нажмите кнопку ОК.
После нажатия кнопки ОК все выбранные листы будут немедленно разгруппированы.
Связанные статьи:
- Как удалить все листы, кроме указанного/текущего, в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек