Как отключить возможность вставки строк и столбцов в Excel?

Обычно мы можем быстро и легко вставлять строки и столбцы между существующими данными. Если вы хотите предотвратить вставку столбцов или строк другими пользователями на листе, возможно, вы можете защитить лист, чтобы отключить функцию вставки строк или столбцов. Но как можно отключить функцию вставки строк и столбцов без защиты листа?

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

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

Следующий код VBA поможет вам отключить функцию вставки строк и столбцов в книге Excel. Пожалуйста, выполните следующие действия:

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модуль, чтобы открыть окно Модуля, затем скопируйте следующий код VBA в это окно.

Код VBA: предотвращение вставки строк и столбцов:

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = False
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. Нажмите клавишу F5, чтобы запустить этот код. Теперь, когда вы щелкаете правой кнопкой мыши, чтобы вставить строки или столбцы, опция Вставить не будет доступна в контекстном меню. См. скриншот:

Примечания:

1. Этот код VBA отключит функцию Вставить в контекстном меню во всех книгах при попытке вставить строки или столбцы.

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

Sub NoInsert()
'Updateby Extendoffice
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = True
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub