Excelで行と列の挿入機能を無効にするにはどうすればよいですか？

通常、既存のデータ間に行や列を簡単に挿入できますが、他のユーザーがワークシートに行や列を挿入することを防ぎたい場合、シートを保護して行や列の挿入機能を無効にすることが考えられます。しかし、シートを保護せずに、行や列の挿入機能を無効にするにはどうすればよいでしょうか？

VBAコードを使用して、他のユーザーが行や列を挿入するのを防ぐ

VBAコードを使用して、他のユーザーが行や列を挿入するのを防ぐ

以下のVBAコードを使用すると、Excelワークブックでの行や列の挿入機能を無効にすることができます。次の手順で行ってください：

1. Alt + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを開きます。

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