Çözüldü Worksheet sınıfının Visible özelliği kurulamıyor (Run-time error '1004')

[ekremmk]

Çalışmamda bazı sekmeleri gizledim ve anasayfada bir buton vasıtasıyla o sekmeleri yazdırıyorum. Burda bir sıkıntı yok. Ancak çalışma sayfasını korumak için şifreleme yaptığımda Worksheet sınıfının Visible özelliği kurulamıyor (Run-time error '1004') bu hatayı alıyorum. Sebebi nedir aceba nasıl giderebilirim.
Şimdiden teşekkürler iyi geceler.

Örnek dosyaya buraya tıklayarak ulaşabilirsiniz.

 

[turist]

Kural olarak:Excel çalışma kitabında en az bir tane görünür çalışma sayfası olmalıdır.
Yaptığınız şifreleme işlemleri sırasında;eğer dosyanızda çok çalışma sayfanız varsa ve bu hatayı alıyorsanız diğer çalışma sayfalarınızın görünür durumda olup olmadığını kontrol edin.
Bütün sayfalar gizlenemez.

 

[ekremmk]

Kural olarak:Excel çalışma kitabında en az bir tane görünür çalışma sayfası olmalıdır.
Yaptığınız şifreleme işlemleri sırasında;eğer dosyanızda çok çalışma sayfanız varsa ve bu hatayı alıyorsanız diğer çalışma sayfalarınızın görünür durumda olup olmadığını kontrol edin.
Bütün sayfalar gizlenemez.

Anasayfam görünür durumda hocam. Ordan userformla yazdırıyorum gizlediğim sekmeleri.

 

[turist]

Excel Dosyanızın örneğini paylaşırsanız, daha kolay cevap bulunabilir.

 

[ekremmk]

Excel Dosyanızın örneğini paylaşırsanız, daha kolay cevap bulunabilir.

ekledim hocam.

 

[ekremmk]

çözümü yok mu problemin

 

[Haluk]

Dosyanız ektedir...

.

 

[ekremmk]

Dosyanız ektedir...

.

hocam altın üye olmadığım için indiremiyorum. ayrıca nasıl düzeldiğini anlatabilir misiniz basit bi şeyse orjinal dosyama uyarlamam için.

 

[Haluk]

Private Sub CommandButton2_Click()
    Me.Hide
    ThisWorkbook.Unprotect Password:=""
    With Sheets("6")
        .Visible = True
        .PrintPreview
        .Visible = False
    End With
    ThisWorkbook.Protect Password:="", Structure:=True, Windows:=True
    Me.Show
End Sub

.

 

[ekremmk]

Private Sub CommandButton2_Click()
    Me.Hide
    ThisWorkbook.Unprotect Password:=""
    With Sheets("6")
        .Visible = True
        .PrintPreview
        .Visible = False
    End With
    ThisWorkbook.Protect Password:="", Structure:=True, Windows:=True
    Me.Show
End Sub

.

Teşekkür ederim hocam problem çözüldü.

 

[ekremmk]

Private Sub CommandButton2_Click()
    Me.Hide
    ThisWorkbook.Unprotect Password:=""
    With Sheets("6")
        .Visible = True
        .PrintPreview
        .Visible = False
    End With
    ThisWorkbook.Protect Password:="", Structure:=True, Windows:=True
    Me.Show
End Sub

.

@Haluk hocam kusura bakma rahatsız ettiğim için. Bu kodla diğer problemleri çözdüm ancak direk makro atadığım bir şekil var onun kodu

Sub FORM4()
With Sheets("SAYFA1")
    .Visible = True
    .PrintPreview
    .Visible = False
End With
End Sub

bu

bu kodu sizin koda uyarlamaya çalıştım ancak hata veriyor.

 

[etmeha]

merhabalar

Worksheet sınıfının Visible özelliği kurulamıyor

gizli sayfaları göstermek için hidden özelliğini açamıyorum dosyayı ekledim yardımcı olursanız sevinirim
Ekli dosyayı görüntüle 215775

 

[Korhan Ayhan]

Dosyanıza erişemedim. Tekrar ekler misiniz?

 

[etmeha]

 

[Korhan Ayhan]

Dosyanızda "Çalışma Kitabı" koruması var. Şifreyi girip korumayı kaldırırsanız istediğiniz işlemi yapabilirsiniz.

 

[etmeha]

şifreyi bulamıyorum kaldırmayı denedim ne yaptıysam olmadı

 

[Korhan Ayhan]

Dosya size ait değil mi?

 

[etmeha]

yok arkadaş attı dene bak diye ama verdiği şifre tutmuyor uzun zaman oldu şifre vereli ben bunu hatırlıyorum diyor

 

[Korhan Ayhan]

Forum kuralları gereği şifre-parola sorularını cevaplamıyoruz.

Nette arama yaparak sorununuza çözüm bulabilirsiniz.

 

[etmeha]

aslında öğrenmek istediğim sorunumun şifre olup olmadığı