Korumalı Sayfada Satır Ekle Satır Sil

[bulentkars]

Arkadaşlar Merhaba
Excelde 123 sayfa korumalı çalışmam var. Burada ben satır ekle veya satır sil yapamıyorum. Makro ile satır ekle veya satır sil yaptığımda 123 olan parola kalkacak sil veya satır ekleme yaptıktan sonra sayfa tekrar 123 parola ile korunacak. Bu konuda yardımlarınızı bekliyorum. İyi çalışmalar.

 

[EmrExcel16]

Merhaba , deneyiniz..

Sub Test()
    ActiveSheet.Unprotect "123"
    'Silinecek satirlari buraya ekleyebilirsiniz
    Rows("5:5").Delete Shift:=xlUp ' 5. satiri siler
    
    ActiveSheet.Protect "123"
End Sub

 

[Muzaffer Ali]

Merhaba.

Silme-Ekleme yapan satırdan önce
unprotect "123"

Silme-Ekleme yapan satırdan sonra
protect "123"

satırlarını ekleyin

 

[bulentkars]

Merhaba

ilginiz için teşekkür ederim.
ancak sileceğim ve ekleyeceğim satır yerleri belli değil. A2:K1600 arası her hangi bir satır silip ekleyebiliyorum. Burada istediğim örneğin 9. Satıra geldiğimde sağ yapıp ekle dediğimde parolayı kaldırıp ekleyecek veya silecek. Veya form açılır satır sayısı yazılır sil veya ekle ile işlem yapılabilir. Basit ve dinamik bir makro olursa çok sevinirim.

 

[AdemCan]

Merhaba, sayfada Sağ Tuş Tıklama ile işlem yapmak için örnek kod.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect "123"

If Target.Column < 12 And Target.Row < 1601 Then
    Cancel = True
    
    soru = MsgBox("Seçili satırda hangi işlemi yapmak istiyorsunuz?" & _
        vbNewLine & "Evet = Satır Ekle" & vbNewLine & "Hayır = Satır Sil", vbQuestion + vbYesNoCancel, "İşlem Seçiniz")
    
    If soru = vbYes Then
        Rows(Target.Row).Insert Shift:=xlDown
    ElseIf soru = vbNo Then
        Rows(Target.Row).Delete Shift:=xlUp
    ElseIf soru = vbCancel Then
        Cancel = False
    End If
    
End If
ActiveSheet.Protect "123"
End Sub

 

[bulentkars]

Adem Bey,

Tam istediğim gibi olmuş elinize emeğinize sağlık çok teşekkür ederim

 

[AdemCan]

Rica ederim.