Korumalı sayfayı kopyalama

Sword => Korumalı sayfayı kopyalama (6.1.2025 09:39:13)

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.

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

cdemir => Korumalı sayfayı kopyalama (6.1.2025 13:23:53)

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

Sword => Korumalı sayfayı kopyalama (6.1.2025 17:49:00)

Çok teşekkür ederim.