Korumalı sayfayı kopyalama

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Korumalı sayfayı kopyalama

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

2
Cevap 107
Tıklama 0
Öne Çıkarma

1. sayfa

Korumalı sayfayı kopyalama

Cevap Yaz

Sword

5 ay

Binbaşı

Konu Sahibi

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

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi Sword -- 6 Ocak 2025; 12:10:53 >

cdemir

5 ay

Yarbay

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

< Bu mesaj bu kişi tarafından değiştirildi cdemir -- 6 Ocak 2025; 13:24:20 >

Sword

5 ay

Binbaşı

Konu Sahibi

Çok teşekkür ederim.

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Korumalı sayfayı kopyalama