mevcut makroda koruma kodunun yeri

[mustafa7691]

Sn dostlar benzer sorular forumda vardı ancak ben bu işin içinden çıkamadım yardımcı olursanız sevinirim.aşağıdaki kodla bilgileri korumalı sayfaya aktarabilmem için;
ActiveSheet.Unprotect "0"
ActiveSheet.Protect "0"

kodlarını nereye yerleştirmeliyim.saygılar

Private Sub FKÜ_Click()

Dim i, j, k
i = 6
j = 6
Do While Cells(i + 1, 3) <> ""
i = i + 1
Loop

Range("b" & 6 & ":j" & i).Copy
Do While Worksheets("FKÜ YILLIK").Cells(j, 3) <> ""
j = j + 1
Loop

Worksheets("FKÜ YILLIK").Cells(j, 1).PasteSpecial
Range("b" & 6 & ":j" & i).Select
k = MsgBox("AKTARMA TAMAMLANDI." + Chr(13) + "SEÇİLİ ALAN SİLİNSİN Mİ?", vbYesNo)
If k = vbYes Then
Range("b" & 6 & ":j" & i).ClearContents
Else
End If
End Sub

 

[Levent Menteşoğlu]

Unprotect ilk sat&#305;ra (subtab sonra), protect son sat&#305;ra (end subtan &#246;nce) yaz&#305;lmal&#305;d&#305;r.

 

[mustafa7691]

Unprotect ilk sat&#305;ra (subtab sonra), protect son sat&#305;ra (end subtan &#246;nce) yaz&#305;lmal&#305;d&#305;r.

Private Sub FK&#220;_Click()
ActiveSheet.Unprotect.pasword"0"

Dim i, j, k
i = 6
j = 6
Do While Cells(i + 1, 3) <> ""
i = i + 1
Loop

Range("b" & 6 & ":j" & i).Copy
Do While Worksheets("FK&#220; YILLIK").Cells(j, 3) <> ""
j = j + 1
Loop

Worksheets("FK&#220; YILLIK").Cells(j, 1).PasteSpecial
Range("b" & 6 & ":j" & i).Select
k = MsgBox("AKTARMA TAMAMLANDI." + Chr(13) + "SE&#199;&#304;L&#304; ALAN S&#304;L&#304;NS&#304;N M&#304;?", vbYesNo)
If k = vbYes Then
Range("b" & 6 & ":j" & i).ClearContents
Else
End If
ActiveSheet.Protect.pasword"0"

End Sub




(Worksheets("FK&#220; YILLIK").Cells(j, 1).PasteSpecial) bu sat&#305;r&#305; g&#246;stererek hata veriyor say&#305;n leventm.te&#351;ekk&#252;rler
.

 

[Levent Menteşoğlu]

ActiveSheet.Unprotect.pasword"0"

Yukarıdaki satırı aşağıdaki gibi değiştirin. Aynı değişikliği protect içinde yapın.

ActiveSheet.Unprotect "0"