Run-time error '1004'

[HarEndu]

Run-time error '1004'
Method 'Visible' of object'_Worksheet'failed
hatası alıyorum, tam yetkili olmama rağmen tüm yetkilerim kalkmış tek sayfa görüyorum yardımcı olabiliecek biri var mı acaba?

 

[mancubus]

yani dosyayı açınca aslında daha fazla sayıda olmasına rağmen sadece 1 sayfa mı görüntüleniyor.

ve açar açmaz bu hata mı geliyor.

veya ne yapınca bu hata geliyor.

şu kod ile gizlenmiş tüm sayfaları göstermek mümkün.

Sub TumSayfalarıGoster()

    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each ws In ActiveWorkbook.Sheets
        ws.Visible = xlSheetVisible
    Next ws
    
    Application.ScreenUpdating = True

End Sub

 

[HarEndu]

Dosyam ekte, ben hazırladım ama şimdi sisteme kendim giremiyorum... nasıl bir müdahale yapmış kullanıcılar emin değilim. lütfen yardımcı olun, çok teşekkür ederim...

 

[mancubus]

bir ihtimal de dosya koruması olabilir diye yazacaktım. atlamışım.

dosyada koruma var. ve şifreli. bu korumayı kaldırın.

bu sorunu çözebilir.



devam ederse...

thisworkbook kod modülündeki workbook_open olay kodu HideSheets isminde bir kod çalıştırıyor.

bir dosyada en az 1 sayfa görünür olmalıdır. bu kodun tüm sayfaları gizleyip gizlemediğini denetleyin.



Biçim-sayfa-göster ile de ayfa görüntülemeyi deneyin.

 

[HarEndu]

herşeyi denedim olmadı, sayfa göster pasif, admin kullanıcısıyım tek sayfa kullanıcı haline dönüştüm. yenide oluşturarak çözüm ürettik şubeler işlemleri tek tek girecek ilginize teşekkür ederim... kullanıcı adı mbahadir şifre: 61 koruma şifresi 55