Korumalı sayfaya aktarım hatası

[NADİR YILDIZ]

Private Sub CommandButton4_Click()
Sheets("FİŞ KONTROL").Range("C4:J10000").Copy
Sheets("KAYIT").Range("C19").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
End Sub

kodu ile aktarım yapıyorum
kayıt sayfası korumalı C4:J10000 arasındaki alan korumasız
kayıt sayfasındaki korumayı kaldırdığımda aktarım yapıyor
fiş kontrol sayfasından korumalı kayıt sayfasına aktarım için kodda nasıl bir değişiklik yapmam gerekiyor

 

[Ömer]

Merhaba,

Sayfa koruma şifresi "1" düşüldü.

Private Sub CommandButton4_Click()
ActiveSheet.Unprotect "1"
Sheets("FİŞ KONTROL").Range("C4:J10000").Copy
Sheets("KAYIT").Range("C19").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
ActiveSheet.Protect "1"
End Sub

 

[NADİR YILDIZ]

Ömer bey öncelikle teşekkürler
Sheets("KAYIT").Range("C19").PasteSpecial Paste:=xlPasteValues
Bu satırda hata verdi ( sarı oldu )

 

[Ömer]

Şifreyi dosyanızdakiyle değiştirdiniz mi?
Örnek dosya ekleyebilir misiniz.

 

[NADİR YILDIZ]

Fiş kontrol sayfasında
kayıt sayfasına aktar ( yeşil buton ) bastığımda
şifre 197200

 

[NADİR YILDIZ]

Ömer bey
gönderdiğim dosyaya bakabildinizmi ?

 

[NADİR YILDIZ]

Arkadaşlar bu konuda yardımcı olurmusunuz

 

[Ömer]

Merhaba,

Gecikme için kusura bakmayın.
Deneyiniz.

Private Sub CommandButton4_Click()
Sheets("KAYIT").Unprotect "197200"
Sheets("FİŞ KONTROL").Range("C4:J10000").Copy
Sheets("KAYIT").Range("C19").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"
Sheets("KAYIT").Protect "197200"
End Sub

 

[NADİR YILDIZ]

Merhaba Ömer bey
rica ederim

teşekkürler