Gizli sayfa makro

[Mehmet Sait]

Merhaba,

Gizli olan sayfanın makrosunu çaıştırmak için ne yapmam gerek?
Yardımlarınız için teşekkür ederim.

Set nesne = CreateObject("Scripting.FileSystemObject")
masaustuyolu = CreateObject("Wscript.Shell").SpecialFolders("Desktop")

dosyaadi = [B2].Value & " - " & "( " & [B5].Value & "_" & [B6].Value & " - " & [C5].Value & "_" & [C6].Value & " - " & [D5].Value & "_" & [D6].Value & " Vardiyaları )"


klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi)
If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi

ActiveSheet.PageSetup.PaperSize = 281

ActiveSheet.Range("$B$2:$D$34").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        masaustuyolu & "\" & dosyaadi & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
        
MsgBox "  PDF olarak kaydedildi..! ", vbInformation, ""

ActiveWindow.Zoom = 120

ActiveSheet.Protect Password:="3"

ActiveSheet.Range("B2").Select



End Sub

 

[Korhan Ayhan]

Merhaba,

Kullandığınız kodun ilk satırına sayfayı görünür yapan kod satırını ekleyerek ve makro sonuna da tekrar gizleme kodu eklersiniz. Böylece sorunu aşabilirsiniz.

 

[fatiheryildiz]

Gizli bir sayfadan veri almaya başladığınız yerden hemen önceki satırda..

Gizli sayfanızın isminin Sayfa1 olduğunu varsayarak..

Gizli sayfadan veri aldığınız yerin hemen başlangıcına..

Sheets("Sayfa1").Visible = True 'Sayfayı açar kodunu yazınız
Arada ise sizin veri alma kodlarınız olacak kodların bittiği kısıma da aşağıdaki kodu yazdığınızda tekrardan sayfayı gizleyecektir.

Sheets("Sayfa1").Visible = False 'Sayfayı gizler

Kolaylıklar..

 

[Mehmet Sait]

Gizli bir sayfadan veri almaya başladığınız yerden hemen önceki satırda..

Gizli sayfanızın isminin Sayfa1 olduğunu varsayarak..

Gizli sayfadan veri aldığınız yerin hemen başlangıcına..

Sheets("Sayfa1").Visible = True 'Sayfayı açar kodunu yazınız
Arada ise sizin veri alma kodlarınız olacak kodların bittiği kısıma da aşağıdaki kodu yazdığınızda tekrardan sayfayı gizleyecektir.

Sheets("Sayfa1").Visible = False 'Sayfayı gizler

Kolaylıklar..

Teşekkür ederim