Gizli Sayfayı Gösterememe Hatası

[askm]

Kolay gelsin.
Aşağıdaki kod ile gizli sayfaları göstermeye çalışıyorum. 2 Sayfaya gelince hata veriyor. Sayfalar VeryHidden gizli gibi. Sayfayı sağ tıklayınca göstermiyor. VBA kısmında sayfalar mevcut. Visible özelliği 0-xlsheetHidden işaretli.1-xlsheetVisible yapınca Worksheet sınıfının visible özelliği kurulamıyor hatası veriyor.Aşağıdaki kod ile de aynı hatayı veriyor. Bu sayfaları nasıl gösterebilirim.

Sub Tüm_Sayfalari_Göster()
'On Error Resume Next
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
    Sayfa_Adi = wks.Name
    wks.Visible = xlSheetVisible
Next wks
End Sub

 

[muygun]

Merhaba;
Bir modüle;

Sub gösterr()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
End Sub

kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[askm]

Aynı hatayı veriyor maalesef. Sayfa üzerine sağ tıklayınca Kod Görüntüle, Sayfayı Koru ve Tüm Sayfaları Seç aktif oluyor. Diğer seçenekler aktif olmuyor. Sayfaları başka çalışma kitabına kopyalamaya izin de vermiyor.

 

[askm]

Çalışma kitabı koruma mevcutmuş. workbook.xml kısmından şifreyi pasif ettim. Düzeldi.