Soru Gizli Sekme Yazdır

[ekremmk]

İyi geceler. Excel dosyamda bir sayfayı direk yazdırmam gerekiyor bunun için bir makro oluşturarak simgeye atadım. Ancak normalde çalışan makro çalışma kitabı korumalı olduğunda çalışmıyor ve
''Run-time Error ''1004'': Worksheet sınıfının visible özelliği kurulamıyor. Hatası veriyor.

Makroyu çalıştırmak için kullandığım kod şudur.

Sub FORM3()
With Sheets("Sayfa1")
.Visible = True
.PrintPreview
.Visible = False
End With
End Sub


 

[Orion1]

Buyurun.

Sub FORM3()
ThisWorkbook.Unprotect "şifreniz"
With Sheets("Sayfa1")
.Visible = True
.PrintPreview
.Visible = False
End With
ThisWorkbook.Protect "şifreniz"
End Sub

 

[ekremmk]

Buyurun.

Sub FORM3()
ThisWorkbook.Unprotect "şifreniz"
With Sheets("Sayfa1")
.Visible = True
.PrintPreview
.Visible = False
End With
ThisWorkbook.Protect "şifreniz"
End Sub

Teşekkür ederim hocam. Bu kodla halloldu. Ancak şifreyi girmeden halletme ihtimalimiz yok mudur aceba

 

[Orion1]

Teşekkür ederim hocam. Bu kodla halloldu. Ancak şifreyi girmeden halletme ihtimalimiz yok mudur aceba

Şifre girmeden aşağıdaki gibi olur.

Sub FORM3()
ThisWorkbook.Unprotect
With Sheets("Sayfa1")
.Visible = True
.PrintPreview
.Visible = False
End With
ThisWorkbook.Protect
End Sub

 

[ekremmk]

Şifre girmeden aşağıdaki gibi olur.

Sub FORM3()
ThisWorkbook.Unprotect
With Sheets("Sayfa1")
.Visible = True
.PrintPreview
.Visible = False
End With
ThisWorkbook.Protect
End Sub

Harikasın hocam. Saygılar

 

[Orion1]

Harikasın hocam. Saygılar

Rica ederim.
İyi çalışmalar.

 

[ekremmk]

Rica ederim.
İyi çalışmalar.

Şifre koyunca yine hata verdi hocam. Şifre olmasına rağmen şifre istemeden yapılmaz mı aceba

 

[Orion1]

Şifre koyunca yine hata verdi hocam. Şifre olmasına rağmen şifre istemeden yapılmaz mı aceba

Şifre koyarsanız ilk cevap verdiğim gibi olur,şifre koymazsanız ikinci cevap verdiğim gibi olur.Başka türlü olmaz.

 

[ekremmk]

Şifre koyarsanız ilk cevap verdiğim gibi olur,şifre koymazsanız ikinci cevap verdiğim gibi olur.Başka türlü olmaz.

Tamam hocam tekrar teşekkür ederim. Vakit ayırdın saolasın.