Korumalı Sayfaya Kayıt

[1Al2Ver]

Merhaba,

Dosyamda sayfayı ("ZİYARETÇİ_LİSTESİ") Sayfayı Koru ile koruyorum,

Aşağıdaki kod, koruması olmayan sayfaya kayıt yapıyor,

Sub ZİYARETÇİ_KAYIT()
Set zk = Sheets("ZİYARETÇİ_KAYIT")
Set zl = Sheets("ZİYARETÇİ_LİSTESİ")
zk.[C2:C8].Copy
zl.Cells(zl.Cells(Rows.Count, "B").End(xlUp).Row + 1, "B") _
    .PasteSpecial Paste:=xlPasteValues, Transpose:=True
zk.Range("C3:C7").ClearContents
End Sub

Kod, "ZİYARETÇİ_LİSTESİ" sayfasının E:H aralığı ile J ve K sütunları sayfa koruması ile korunmuş iken kayıt yapabilsin istiyorum.

Teşekkür ederim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin.

Sub ZİYARETÇİ_KAYIT()
Set zk = Sheets("ZİYARETÇİ_KAYIT")
Set zl = Sheets("ZİYARETÇİ_LİSTESİ")
[COLOR="red"]zk.Unprotect Password:="12345"[/COLOR]
zk.[C2:C8].Copy
zl.Cells(zl.Cells(Rows.Count, "B").End(xlUp).Row + 1, "B") _
    .PasteSpecial Paste:=xlPasteValues, Transpose:=True
zk.Range("C3:C7").ClearContents
[COLOR="Red"]zk.Protect Password:="12345"[/COLOR]
End Sub

 

[cems]

Sayfayı korumaya alırken karşınıza çıkan seçenekler işinizi görmüyorsa ; bildiğim kadarı ile korumalı hücreye dışardan yazılamaz ama korumadan önceki komutlar çalışabilir.

Yani , kaydın kopyalanmasını istediğiniz hücreye tıklayıp + yazın ve kopyalanacak kaydın gelmesi gereken hücre verisine tıklayıp enterlayın. Bu şekilde diğer hücrelere de uygulayın sonra korumaya alın ve deneyin.

 

[1Al2Ver]

Sayın PLİNT merhaba,

zk.Unprotect Password:="12345"

zk.Protect Password:="12345"

Buradaki zk ibaresini zl olarak düzelttim ve sorunum çözüldü,

Yardımlarınız için teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

Sayın cems merhaba,

Önerileriniz ve ilginiz için teşekkür ederim.

Saygılarımla.