Korumalı sayfayı kopyalama

Merhaba,

ANASAYFA'nın zaman zaman "Sayfa kopyasını" oluşturmak istiyorum ama kopyalarken sayfadaki formüller gelmesin sadece sonuçlar gelsin. Aşağıdaki kodlar ile bu işi yapabiliyorum ama sayfada koruma olunca hata veriyor.

[code]Sub SayfaKopyala()

  Dim syf As Variant

  syf = Application.InputBox("Sayfa Adını Giriniz", "Sayfa Adı Girişi", "Yedek", Type:=2)

  If syf = False Then Exit Sub

  Sheets("ANASAYFA").Copy after:=Sheets(Sheets.Count)

  ActiveSheet.Name = syf

  Cells.Copy

  Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

  Application.CutCopyMode = False

  Sheets("ANASAYFA").Select

End Sub[/code]

Unprotect ve protecli kodları makronuzda ilgili yerlere ilave edin. Sifreniz yazan yeri kendi şifrenizle değiştirmelisiniz.

Birisi vba kodlama sayfasına girerek bu şifreyi görebilir.

Kodlama sayfasında modülü seçip, sağ klik / Vba project proper.. / protect sekmesini seçip kod görüntülemeye şifre koyabilirsiniz.

Sheets("ANASAYFA").Unprotect "Sifreniz"

Sheets("ANASAYFA").Copy after:=Sheets(Sheets.Count)

......

.....

.....

.....

Sheets("ANASAYFA").Protect "Sifreniz"

Sheets("ANASAYFA").Select

Çok teşekkür ederim.