Private cb As CommandBar
Private i As Integer

Private Sub Worksheet_Activate()
    Set cb = Application.CommandBars.Item("Worksheet Menu Bar")

    For i =  1  To cb.Controls.Count
        If cb.Controls(i).Caption = "Вст&авка" Then
            cb.Controls(i).Enabled = False
        End If
    Next
End Sub

Private Sub Worksheet_Deactivate()
    Set cb = Application.CommandBars.Item("Worksheet Menu Bar")

    For i =  1  To cb.Controls.Count
        If cb.Controls(i).Caption = "Вст&авка" Then
            cb.Controls(i).Enabled = True
        End If
    Next
End Sub

Private Sub Worksheet_Activate()
    With Application.CommandBars("Worksheet Menu Bar").Controls( 4 )
        .Controls( 2 ).Visible = False
        .Controls( 3 ).Visible = False
    End With
End Sub

Private Sub Worksheet_Deactivate()
    With Application.CommandBars("Worksheet Menu Bar").Controls( 4 )
        .Controls( 2 ).Visible = True
        .Controls( 3 ).Visible = True
    End With
End Sub