Korumalı Sayfada Makro Çalıştırmak.

[GhostCu]

Herkese hayırlı ramazanlar. Çalışma dosyam var 2 sayfa bir tanesi gizli sadece orayı baskı önizle için kullanıyorum aşağıdaki kod gizli sayfayı baskıözileme yapar. benim istediğim şu sayfa yapısını koru dediğimde makro çalışmıyor bu zaten klasik bir sorundur ki sayfada çok örnek var denememe rağmen bu konuyu açtım yapamadım.
Birde butona bastıktan sonra baskı önizlemeyi kapatınca aynı sayfaya dönmüyor
Asıl dosyayı ekleyemiyorum sebebi çalıştığım iş dolayısıyla gizliliği sebebi konusudur. Örnek dosya ekledim o yüzden.

Option Explicit
Sub gizli_sayfa_yazdır_1()
Dim asi As Worksheet
Set asi = Sheets("cu")
Application.ScreenUpdating = False
asi.Visible = True
asi.PrintPreview
asi.Visible = False
Application.ScreenUpdating = True
End Sub

 

[GhostCu]

yokmu bir bilen yardımcı olacak

 

[bmutlu966]

Option Explicit
Sub gizli_sayfa_yazdır_1()
Dim asi As Worksheet
ActiveWorkbook.Unprotect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
Set asi = Sheets("cu")
Application.ScreenUpdating = False
asi.Visible = True
asi.PrintPreview
ActiveWorkbook.Protect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
asi.Visible = False
Application.ScreenUpdating = True
End Sub

 

[GhostCu]

Option Explicit
Sub gizli_sayfa_yazdır_1()
Dim asi As Worksheet
ActiveWorkbook.Unprotect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
Set asi = Sheets("cu")
Application.ScreenUpdating = False
asi.Visible = True
asi.PrintPreview
ActiveWorkbook.Protect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
asi.Visible = False
Application.ScreenUpdating = True
End Sub

hocam çok güzel olduda çıkışta sondan 3. kodu sarı renkle hata gösteriyor ve gizli dosyayı görünür yapıyor

 

[bmutlu966]

Bu şekilde deneyin

Option Explicit
Sub gizli_sayfa_yazdır_1()
Dim asi As Worksheet
ActiveWorkbook.Unprotect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
Set asi = Sheets("cu")
Application.ScreenUpdating = False
asi.Visible = True
asi.PrintPreview
asi.Visible = False
ActiveWorkbook.Protect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
Application.ScreenUpdating = True
End Sub

 

[GhostCu]

Bu şekilde deneyin

Option Explicit
Sub gizli_sayfa_yazdır_1()
Dim asi As Worksheet
ActiveWorkbook.Unprotect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
Set asi = Sheets("cu")
Application.ScreenUpdating = False
asi.Visible = True
asi.PrintPreview
asi.Visible = False
ActiveWorkbook.Protect "........." 'nokta nokta alanlara sifreyi girmelisiniz.
Application.ScreenUpdating = True
End Sub

ben en alta yaptım olduda tekrar sizin gönderdiğiniz ile düzelttim.