Excel Gizli Sayfanın Açılmaması / Kilitleme

[arifbasaran]

Merhaba arkadaşlar,

Excel'de gizlediğim sayfanın açılmamasını,
açmak isteyince parola girerek açılmasını istiyorum...

çalışma kitabını / sayfasını koru bölümünden bulamadım ..

yardımcı olabilir misiniz. iyi çalışmalar..

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sayfa1" Then
        a = InputBox("Şifreyi Girin")
        If a <> 1 Then
            MsgBox "Şifre Yanlış"
            Sh.Visible = False
            Sheets("Sayfa3").Select
        End If
    End If
End Sub

 

[Murat OSMA]

Gizlediğiniz sayfanın kod kısmına yapıştırıp deneyiniz; şifre 123'dür.

Private Sub Worksheet_Activate()
    ActiveSheet.Visible = -1
    parola = Application.InputBox("Parola", "Parola Girin")
    If parola <> 123 Then
        ActiveSheet.Visible = 0
            Else
        ActiveSheet.Visible = -1
    End If
End Sub

Not: Afedersiniz Sn. hamitcan, mesajınızı görmedim.

 

[arifbasaran]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sayfa1" Then
        a = InputBox("Şifreyi Girin")
        If a <> 1 Then
            MsgBox "Şifre Yanlış"
            Sh.Visible = False
            Sheets("Sayfa3").Select
        End If
    End If
End Sub

Gizlediğiniz sayfanın kod kısmına yapıştırıp deneyiniz; şifre 123'dür.

Private Sub Worksheet_Activate()
    ActiveSheet.Visible = -1
    parola = Application.InputBox("Parola", "Parola Girin")
    If parola <> 123 Then
        ActiveSheet.Visible = 0
            Else
        ActiveSheet.Visible = -1
    End If
End Sub

Not: Afedersiniz Sn. hamitcan, mesajınızı görmedim.

Her ikinize de cevabınız için teşekkürler.

Açıkçası tam anlayamadım. Normal excel sayfasında nereye yapıştıracağım kodu ?

gizlemek istediğim sayfa 2 diyelim, ona sağ tıklayıp kod görüntüle dedim.

gelen pencerede verdiğiniz kodu yapıştırdım, kaydet yapınca "aşağıdaki özellikler makro içermeyen çalışma kitaplarında kaydedilmez" uyarısını veriyor.

 

[Murat OSMA]

Dosyanızı Makro İçerebilen Excel Çalışma Kitabı olarak farklı kaydedin.

 

[arifbasaran]

Dosyanızı Makro İçerebilen Excel Çalışma Kitabı olarak farklı kaydedin.

Makro olarak kaydedince sorun yok, gizli sayfayı açmaya çalışınca şifre istiyor.. Çok güzel..

Ama bu dosyaya bazı elemanlar sadece telefondan bakabiliyor ve az önce deneme amaçlı kendime gönderdim, Makro olduğu için açılmadı..

Excel çalışma sayfasını kullanarak bu şekilde bir şifreleme yapabilir miyiz ?

 

[Murat OSMA]

O konuda bilgim yok.

 

[arifbasaran]

Bu konuda bilgim yok.

Teşekkürler ilginiz için,

İyi çalışmalar...

 

[hamitcan]

Afedersiniz Sn. hamitcan, mesajınızı görmedim.

Murat Bey, çok naziksiniz, teşekkür ederim ama her defasında bu şekilde bir mesaj yazmayın lütfen. Farklı çözümler herkese fayda sağlayacaktır.

 

[Murat OSMA]

Peki Sn. hamitcan, söylediğiniz gibi yaparım.

Hoşça kalın !

 

[DMR 7]

Gizlediğiniz sayfanın kod kısmına yapıştırıp deneyiniz; şifre 123'dür.

Private Sub Worksheet_Activate()
    ActiveSheet.Visible = -1
    parola = Application.InputBox("Parola", "Parola Girin")
    If parola <> 123 Then
        ActiveSheet.Visible = 0
            Else
        ActiveSheet.Visible = -1
    End If
End Sub

Not: Afedersiniz Sn. hamitcan, mesajınızı görmedim.

Merhabalar, eski bir mesaj fakat burada bir bug var. Şifreyi yanlış girince açmıyor fakat şifre ekranında ESC tuşuna basılırsa sayfa açılıyor. Birde gizli sayfayı göster dedikten sonra arka planda sayfa görünürken şifreye cevap isteniyor.

 

[Korhan Ayhan]

Ekteki örnek belki işinize yarayabilir.

Sayfa2-Sayfa3 gizlidir. Göster dediğinizde parola ister. Parolayı kod editöründe görebilirsiniz.