Gizli sayfalar hakkında

[yetis1]

Merhaba Arkadaşlar,

Excel ilk açıldığında, mevcut sayfaların(Sayfa1, Sayfa2... vs) görünmemesi ve görünmek istendiğinde de şifre sorması hakkında yardımlarınızı rica ederim.

Peşinen teşekkürler.

Cihan

 

[Mahmut Bayram]

http://www.filebig.net/files/zxSHbxUvTP

 

[yetis1]

Yardımlarınız için çok teşekkür ederim. Ancak benim demek istediğim; ilk açılışta şifre sorulmadan açılsın ve sadece, örneğin, "Sayfa1" açık gelsin. Diğer gizli sayfaları görünür yapmak istendiği zaman şifre sorsun.

 

[Mahmut Bayram]

Private Sub Workbook_Open()
Dim Users As String
    
    Users = Application.InputBox("Kullanıcı adınızı giriniz")
    
    'Eğer kullanıcı adı "excel" ise sayfa gizleme işlemleri
    If Users = "excel" Then
        Sayfa1.Visible = xlSheetVisible
        Sayfa2.Visible = xlSheetVisible
        Sayfa3.Visible = xlSheetVeryHidden
    End If

    'Eğer kullanıcı adı "web" ise sayfa gizleme işlemleri
    If Users = "web" Then
        Sayfa1.Visible = xlSheetVeryHidden
        Sayfa2.Visible = xlSheetVeryHidden
        Sayfa3.Visible = xlSheetVisible
    End If

    ' Eğer kullanıcı adı "tr" ise sayfa gizleme işlemleri
    If Users = "tr" Then
        Sayfa1.Visible = xlSheetVisible
        Sayfa2.Visible = xlSheetVisible
        Sayfa3.Visible = xlSheetVisible       
    End If

    If Users = "" Then
        MsgBox Title:="UYARI", Prompt:="Yanlış parola"
    Exit Sub
    End If
    
End Sub