Çözüldü Çalışma sayfasını korumaya aldığım zaman macroda hata

[yyhy]

Çalışma sayfasını korumaya aldığım zaman macroda hata veriyor acaba sorun ne olabilir? Hata veren macronun resmini ekte ekledim.
A:T sütunları aralığı Hücre biçimlendir Korumadaki Kilit Tikini kaldırdım. U ve daha sonraki sütunlardaki hücrelerin ise Hücre biçimlendir Korumadaki Kilit Tiki var.

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Makronun ilk satırına korumayı kaldır, son satırına da korumayı uygula derseniz probleminiz biter. (Kilitli hücrelerde makro çalışmaz)
İyi çalışmalar

 

[yyhy]

Sayın Tevfik_Kursun
O yöntemi de denedim. Macrom bir modülde ekli. Makro ise;
Sub ListeKarsilastir()

Dim sonD&, sonF&, satH&, satL&, i&, krt$, k()

sonD = Cells(Rows.Count, "D").End(3).Row
sonF = Cells(Rows.Count, "F").End(3).Row

Range("D3: D" & sonD).Interior.Color = 65535
Range("F3:F" & sonF).Interior.Color = 11854022
Range("H3:L" & Rows.Count).ClearContents
satH = 3
satL = 3

With CreateObject("Scripting.Dictionary")
For i = 3 To sonD
krt = Cells(i, "D").Value
.Item(krt) = i
Next i
For i = 3 To sonF
krt = Cells(i, "F").Value
If .exists(krt) Then
Cells(satH, "H").Value = krt
satH = satH + 1
Cells(.Item(krt), "D").Interior.Color = vbGreen
Cells(i, "F").Interior.Color = vbGreen
.Remove (krt)
Else
Cells(satL, "L").Value = krt
satL = satL + 1
End If
Next i
k = Application.Transpose(.keys)
Range("J3").Resize(UBound(k), 1).Value = k
[D: D].Copy [N:N]
Range("F3:F" & sonF).Copy Range("N" & sonD + 1)
Range("N2:N" & Cells(Rows.Count, "N").End(3).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End With

End Sub

(Not: D: D araya bir boşluk koydum. Diğer türlü emoji ekliyor.)

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Bu makroda koruma yok. Sanırım siz manuel olarak koyuyorsunuz.
Diyelim koruma şifreniz 111 olsun
Dim satırından sonra ActiveSheet.Protect "111"
ve End Sub satırından önce ActiveSheet.Unprotect "111"
satırlarını ekleyiniz. Makronuz her zaman çalışacaktır.
İyi çalışmalar

 

[yyhy]

Evet bu makroda koruma yok. Şifreyi çalışma sayfasından kendim manuel olarak koyuyordum. Teşekkürler ilgili düzeltmeyi yapacağım. Emeğinize sağlık.

 

[yyhy]

Dim satırından sonra ActiveSheet.Unprotect "111"
ve End Sub satırından önce ActiveSheet.Protect "111" Olarak düzelttim.

 

[Tevfik_Kursun]

Dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar