korumalı sayfanın kopyalanması

[ahmetozbey]

iki ayrı sayfadaki verileri tek bir sayfada birleştiren makroyla yapılmış çalışmam var. sorunum şu ; verilerin olduğu sayfalar sayfa koruma şifresi ile korunmakta olduğu için makrolarda sorun meydana geliyor. bunun çözümü varmıdır?
dosya ekdedir.

 

[Tankut SAZLI]

A ve 1 isimli sekmeleri sayfa korumasını şifreleyin.Şu kodları deneyin:

Sub birlestir()
Sheets("A").Unprotect Password:="şifre"
Application.ScreenUpdating = False
Set s1 = Sheets("giriş")
Sheets("" & s1.[c7]).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = s1.[c9] & s1.[c7]
[b4:d29] = Sheets("" & s1.[c9]).[b4:d29].Value
Sheets("A").Protect Password:="şifre"
s1.Select
End Sub