kilitli sayfaya veri yapıştırıp sonra tekrar kilitlemek

[esad45]

kilitli sayfam Gelirler buraya veri yapıştırdıktan sonra tekrar kilitleme adına aşapıdaki makroma ilave ettim ama hata alıyorum nerde yanlış yaptım acaba

kodum şu:

Sub GELİR_EKLE()
Sheets("FORM").Select
If Range("d20").Text = Empty Then MsgBox "BU ALANI BOŞ BIRAKAMAZSINIZ!!! TÜM ALANLARI DOLDURUNUZ AÇIKLAMA,TUTAR", vbInformation, "Tüm Boşluklar Doldurulmalı": Exit Sub
If Range("B23").Text = Empty Then MsgBox "BU ALANI BOŞ BIRAKAMAZSINIZ!!! TÜM ALANLARI DOLDURUNUZ AÇIKLAMA,TUTAR", vbInformation, "Tüm Boşluklar Doldurulmalı": Exit Sub
If Range("B20").Text = Empty Then MsgBox "BU ALANI BOŞ BIRAKAMAZSINIZ!!! TÜM ALANLARI DOLDURUNUZ AÇIKLAMA,TUTAR", vbInformation, "Tüm Boşluklar Doldurulmalı": Exit Sub


cevap = MsgBox("Kayıt Etmek İstediğinizden Eminmisiniz!", vbYesNo, "")
If cevap = vbNo Then MsgBox "Kayıt İptal Edildi", vbInformation: Exit Sub

Application.ScreenUpdating = False






son_dolu_satır = Sheets("GELİRLER").Range("C65536").End(xlUp).Row
bos_satır = son_dolu_satır + 1
ActiveSheet.Unprotect "1"
Sheets("GELİRLER").Range("D" & bos_satır).Value = Range("D20").Value
Sheets("GELİRLER").Range("e" & bos_satır).Value = Range("B23").Value
Sheets("GELİRLER").Range("c" & bos_satır).Value = Range("B20").Value
Sheets("GELİRLER").Range("b" & bos_satır).Value = Range("d3").Value
ActiveSheet.Protect "1"

Sheets("FORM").Select
Call temizlik
End Sub

 

[Trilenium]

Worksheets("GELİRLER").Protect Password:="şifreniz", UserInterFaceOnly:=True
Sheets("GELİRLER").Range("D" & bos_satır).Value = Range("D20").Value
Sheets("GELİRLER").Range("e" & bos_satır).Value = Range("B23").Value
Sheets("GELİRLER").Range("c" & bos_satır).Value = Range("B20").Value
Sheets("GELİRLER").Range("b" & bos_satır).Value = Range("d3").Value
Worksheets("GELİRLER").Protect Password:="şifreniz", UserInterFaceOnly:=False


olarak degiştiriniz

 

[esad45]

çok teşekkür ederim işe yaradı

 

[Trilenium]

rica ederim kolay gelsin