diğer sayfadaki gizli satırları şifre ile açma

[byysmn]

Arkadaşlar kolay gelsin.
başka sayfadaki gizli satırları şifre ile açılmasını fakat f sutununda boş olan hücrenin satırlarını göstermemesini istiyorum.

ilginize teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub satirac()
Dim sat, sifre
Range("a3:a11").EntireRow.Hidden = True
sifre = InputBox("Şifrenizi giriniz.")
    For sat = 3 To 11
        If sifre Like 123 And Sayfa1.Cells(sat, "f") <> "" Then
            Sayfa1.Cells(sat, "a").EntireRow.Hidden = False
        End If
    Next
End Sub

 

[byysmn]

üstadım denedim çalıştıramadım. ekteki dosya üzerinde yapabilirmiyiz. şöyle birşeyde ilave yapalibirmiyiz acaba tüm sayfalar gizli raporla sayfasına buton ekleyerek sadece ilgi sayfayı açabilirmiyiz.