Koşullu Yazdırma da sayfa koruması hatası

[karslan18]

Private Sub CommandButton1_Click()
Set sh = Sheets("VERİ")

sh.PrintOut Copies:=1
sh.[E1,F1,G1].Font.ThemeColor = xlThemeColorDark1

sh.PrintOut Copies:=1
sh.[E1,F1,G1].Font.ThemeColor = xlThemeColorLight1
End Sub


Yukarıda yazmış olduğum kodlar ile VERİ ismini verdiğim sayfadan 2 adet yazdırabiliyorum ve
yazdırdığım sayfalardan 2.sinde E1, F1 ve G1 hücreleri bulunmuyor. Buraya kadar bir problem yok
ama ben VERİ ismini verdiğim sayfaya koruma şifresi koyduğumda

Run-time error '1004':
Application-defined or object-defined error

şeklinde hata oluşuyor... Bu konuda yardımlarınızı bekliyorum ............

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Set sh = Sheets("VERİ")
 
    ActiveSheet.Unprotect "[COLOR=red]şifreniz[/COLOR]"
 
        sh.PrintOut Copies:=1
        sh.[E1,F1,G1].Font.ThemeColor = xlThemeColorDark1
 
        sh.PrintOut Copies:=1
        sh.[E1,F1,G1].Font.ThemeColor = xlThemeColorLight1
 
    ActiveSheet.Protect "[COLOR=red]şifreniz[/COLOR]"
 
End Sub

 

[karslan18]

Ömer hocam ne diyeyim çok teşekkür ederim emeğinize sağlık.....