Satır eklemeyi engelleme

[ikikan]

Arkadaşlar dolu satırların arasına satır eklemeyi engellemenin bir yolu veya kodu varmı?

Kod olarak varsa çok makbule geçer şimdiden teşekürler.

 

[Seyit Tiken]

Bu kod sadace sağ Click'i engeliyor.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

 

[ikikan]

Bu kod sadace sağ Click'i engeliyor.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Teşekkürler ilginiz için ama bana kod olarak lazım sağ click ile işlemler yapmak zorundayim daha farklı bir yol gerekiyor özellikle kod olursa iyi olur..

 

[antonio]

Merhaba,
Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Auto_Open()
NoInsert
End Sub
Sub NoInsert()

    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

Not: İnternetten bulduğum bir kod. Umarım işinize yarar.