Як запобігти виділенню декількох аркушів у Excel?

При випадковому виборі декількох аркушів та редагуванні всі вибрані аркуші покриватимуться однаковим вмістом. Тут ми вводимо для вас метод запобігання вибору кількох робочих аркушів одночасно, щоб уникнути показу однакового вмісту на цих аркушах.

Запобігання вибору декількох аркушів із кодом VBA

Запобігання вибору декількох аркушів із кодом VBA

Будь ласка, виконайте наступні дії, щоб запобігти вибору кількох аркушів одночасно.

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

2. Потім скопіюйте та вставте наведений нижче код VBA в код вікно спливаючого 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, ви отримаєте a Kutools для Excel діалогове вікно, як показано на знімку екрана, щоб нагадати вам про вибір декількох аркушів. Клацніть на OK кнопки.

Після натискання OK кнопку, усі вибрані аркуші будуть негайно розгруповані.

Статті по темі:

• Як видалити всі аркуші, крім зазначеного / поточного в Excel?
• Як створити нові аркуші для кожного рядка в Excel?
• Як видалити аркуш без підказки або попередження в Excel?