Çözüldü Yandaki Sekmeyi Gösterme Parola Koyma

[ozanyakar]

Merhaba, forumda benzer örnekler var ancak tam aradığımı bulamadım.

Sağdaki GİZLİ Sekmesinin görülmesi için bir parola koymak istiyorum. Nasıl yapılacağını bulamadım. Yardımcı olur musunuz?

 

[Muzaffer Ali]

Merhaba.
BuÇalışmaKitabı adlı kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If ActiveSheet.Name = "GİZLİ" Then
        Sh.Select
        If InputBox("Lütfen şifre giriniz.") = "123" Then
            Application.EnableEvents = False
            Worksheets("GİZLİ").Select
            Application.EnableEvents = True
        Else
            MsgBox "Şifre yanlış."
        End If
    End If
End Sub

 

[ozanyakar]

Merhaba.
BuÇalışmaKitabı adlı kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If ActiveSheet.Name = "GİZLİ" Then
        Sh.Select
        If InputBox("Lütfen şifre giriniz.") = "123" Then
            Application.EnableEvents = False
            Worksheets("GİZLİ").Select
            Application.EnableEvents = True
        Else
            MsgBox "Şifre yanlış."
        End If
    End If
End Sub

Sayın
Muzaffer Ali
Öncelikle yardımınız için teşekkür ederim. Dosyayı işyerinde ortak kullanacağız, ekip olarak excel bilgimiz hiç yok desek yeridir. İlk önce kaydedemedim makro ayarlarım etkin değildi sanırım. Dana sonra kaydettim ama kodu çalıştırmayı beceremedim. Destek olabilir misiniz ?



Kod görüntüle dediğimde görüntüleyebildim ; ancak çalıştırmayı beceremedim.

 

[Muzaffer Ali]

Dosyayı farklı kaydet ile açılan pencerede Kayıt Türü="Makro İçerebilen Excel Kitabı xlsm" olarak kaydedin.

Siz yapın hem böylelikle öğrenmiş olursunuz.
2013 sonrası Excel dosyalarında makro(kod) varsa xlsm uzantısı ile kaydedilmesi gerekmekte.

 

[Muzaffer Ali]

Şimdi fark ettim. Kodu nereye yapıştırmanız gerektiğini yukarıda söylemiştim. Siz "GİZLİ" adlı sayfanın kod kısmına yapıştırmışsınız.
Kodu "BuÇalışmaKitabı" adsı kod sayfasına yapıştıracaksınız.

Sayfa seçimi yaptığınızda kod otomatik çalışacaktır.

 

[ÖmerBey]

Dosyayı işyerinde ortak kullanacağız, ekip olarak excel bilgimiz hiç yok desek yeridir. İlk önce kaydedemedim makro ayarlarım etkin değildi sanırım. Dana sonra kaydettim ama kodu çalıştırmayı beceremedim. Destek olabilir misiniz ?

Bir hatırlatma yapayım:
Siz dosyayı bu şekliyle çalışır hale getirseniz bile diğer arkadaşlarınızın bilgisayarlarında muhtemelen ayarlardan makrolar etkin olmadığı için sizin şifre girme olayı çalışmayacaktır.

 

[ozanyakar]

Bir hatırlatma yapayım:
Siz dosyayı bu şekliyle çalışır hale getirseniz bile diğer arkadaşlarınızın bilgisayarlarında muhtemelen ayarlardan makrolar etkin olmadığı için sizin şifre girme olayı çalışmayacaktır.

Üstat,
Emeğinize sağlık, uğraştınız, çok teşekkür ederim.