sayfa koruması ve korunan sayfaya yazdırma

[bulentcigali]

sayfa1 deki bilgileri sayfa2 yazıyorum.ancak sayfa2 deki bilgileri hiç kimse ulaşamasın diye sayfa koruma yapıyorum.ancak sayfa1 den yazdırma işlemi yaptığımda "sayfa2 nin salt okunur oldğu" mesajı geliyor.
benim yapmak istediğim hem sayfa2 korunacak hemde sayfa1 den sayfa2 ye yazdırma yapabileceğim.bu konuda yardımcı olursanız sevinirim

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Düğme1_Tıklat()
Sheets("Sayfa2").Unprotect ("1")
Sheets("Sayfa2").PrintOut
Sheets("Sayfa2").Protect ("1")
End Sub

 

[bulentcigali]

sn seyit tiken teşekkür ederim yazdığınız kodu girdim ama "rın time error " verdi herhalde ben yapamadım daha açık yazmanız mümkünmü?düğmeyi sayfa1 e mi yoksa sayfa2 yemi koyacağım iyi çalışmalar

 

[Seyit Tiken]

Düğme sayfa1 de olacak. Sayfa2 şifreli ise açın. Kod satırı içindeki "1" rakamları varsayılan şifredir. Bunu kendinize göre değiştirebilirsiniz.

 

[bulentcigali]

sayın seyit tiken yine olmadı dediklerinizi aynen yaptım değişik uyguladım yine beceremedim.

 

[Seyit Tiken]

Eğer sayfaya isim verilmiş ise onu sayfa2 olarak değiştirin. Olmazsa ilgili dosyayı ekleyin. Birde kodları iki kısma ayırıp deneyin. Hangi bölümde hata var belli olur.

 

[bulentcigali]

sayın seyit tiken dediklerini önceden yapmıştım ekte dosyayı gönderiyorum teşekkürler

 

[bulentcigali]

sayın seyit tiken kusura bakmayın dosyayı göndermemişim şimdi gönderiyorum

 

[Seyit Tiken]

Eğer sayfaya isim verilmiş ise onu sayfa2 olarak değiştirin.

İlgili kodu bu şekilde değiştiriniz.

Private Sub CommandButton1_Click()
Sheets("bilanço").PrintOut
End Sub

 

[bulentcigali]

çok teşekkür ederim seyit tiken başardım ancak korumaya aldığımda şifre sormasını istiyordum bu konudada yardımcı olursanız sevinirim iyi günler.

 

[Seyit Tiken]

Ezberden yapma yerine kodların mantığını anlamaya gayret gösteriniz.
Kodu bu şekilde deneyin.

Sub Düğme1_Tıklat()
Sheets("Sayfa2").Unprotect ("1")
Sheets("bilanço").PrintOut
Sheets("Sayfa2").Protect ("1")
End Sub