excell sayfasını şifre ile açma

[sylarrr]

Mehabalar,

Arkadaşlar bir konuda bilginize ihtiyacımzı var, bir excell hazırlamak istiyorum ancak bu exceli farklı kişiler açacak ve her açan kişi girdiği şifreye göre farklı sayfalar açacak (mesala tolga exceli açmak istediğinde şifreyi girecek excel açacak ama sayfa 1 görüp işlem yapacak, ahmet exceli açmak istediğinde şifresini girecek girdiği şifreye göre sayfa 2 görüp işlem yapacak) admin olan kişi bütün sayfalarda işlem yapabilecek.
Çok uzun oldu ama böyle bir şey mümkünmü acaba yardımcı olabilirmisniz.

[erseldemirel]

Bu basit örnekte inputbox geliyor. Gireceğiniz değere göre sayfaları gösterir. Bu kodu thisworkbook alanına ekliyoruz. 1 girilirse 1.sayfa... vs diye gider. 0 girilirse her sayfayı açar

Kod: Tümünü seç

Sub Workbook_Open()
    password = InputBox("Lütfen şifrenizi girin:", "Giriş")

    Select Case password
        Case "1"
            Sheets("Sayfa 1").Visible = True
            Sheets("Sayfa 2").Visible = False
            Sheets("Sayfa 3").Visible = False
        Case "2"
            Sheets("Sayfa 1").Visible = False
            Sheets("Sayfa 2").Visible = True
            Sheets("Sayfa 3").Visible = False
        Case "0"
            Sheets("Sayfa 1").Visible = True
            Sheets("Sayfa 2").Visible = True
            Sheets("Sayfa 3").Visible = True
        Case Else
            MsgBox "Geçersiz şifre!"
    End Select
End Sub

[sylarrr]

erseldemirel yardımlarınz için teşekkür ederim. Ancak dediğiniz gibi yaptığımda "subscript out of range" hatası alıyorum. Herşey iyi olsa bile excel açılırken karşıma kullanıcı adı ve şifre gelecek bir userform osla oraya kullanıcı adı şifre yazsa ve hangi kullanıcı hangi şifre ile hangi sayfayı açacağını benim belirleyeceğim bir çalışma olabilirmi.

[erseldemirel]

Aşağıdaki örnek dosya yaptım. DATA sayfası gizli orada kullanıcı adı şifre ve açacağı sayfa bilgileri var. Geliştirebilirsiniz. ADMIN yazarsanız şifre 4 girerseniz tüm gizli sayfaları açar.

test.xlsm

[sylarrr]

erseldemirel yardımların ve ilgin alakan için çok çok teşekkür ederim. Dediğin gibi geliştirip inşallah senin gibi başkalarına yardımcı olurum bende, tekrardan çok teşekkür ederim yardımların için.

[erseldemirel]

Rica ederim kolay gelsin

[sylarrr]

erseldemirel arkadaşım eğer kusura bakmazsan senin içinde zor olmaz ise çok küçük bir yardım isteyeceğim. İstediğim gibi istediğim sayfaya kullanıcı adı ve şifre tanımlıyorum benim istediğim, olursa tabi;
ANKARA kullanıcısı giriş yaptıktan sonra işi bitince bir tuşla ana İNDEX sayfasına dönsün buraya kadar tamam yapılıyor ancak INDEX sayfasına dönünce ANKARA kullanıcısının sayfası gizlenip şifre haricinda sağ tık yaparak başkası tarafında açılmasın istiyorum
Böyle birşey yapılabilinirmi acaba şimdiden teşekkür ederim

[erseldemirel]

Merhaba. A sayfası koduna şunu ekle örneğin;

Kod: Tümünü seç

rivate Sub Worksheet_Activate()
   
    If ThisWorkbook.Sheets("Data").Range("E2") <> "ANKARA" And ThisWorkbook.Sheets("Data").Range("E2") <> "ADMIN" Then
        ThisWorkbook.Sheets("A").Visible = xlSheetHidden
    End If
End Sub

userform1 deki koduda şöyle yap; yani kullanıcı adı tespit edilip ondan yada admin farklıysa o sayfayı açmıyor.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
    Dim kullaniciAdi As String
    Dim sifre As String
    Dim dataSheet As Worksheet
    Dim i As Long
    kullaniciAdi = Me.TextBox1.Value
    sifre = Me.TextBox2.Value
    Set dataSheet = ThisWorkbook.Sheets("Data")
    For i = 2 To dataSheet.Cells(Rows.Count, 1).End(xlUp).Row
        If kullaniciAdi = dataSheet.Cells(i, 1).Value And sifre = dataSheet.Cells(i, 2).Value Then
            Dim sayfaAdi As String
            sayfaAdi = dataSheet.Cells(i, 3).Value
            If sayfaAdi = "HEPSİ" Then
                TumSayfalariAc
            ElseIf SayfaVarMi(sayfaAdi) Then
            ''''''''''''''EKLENEN SATIR
                ThisWorkbook.Sheets("Data").Range("E2") = kullaniciAdi
            ''''''''''''''EKLENEN SATIR
                Sheets(sayfaAdi).Visible = True
                Sheets(sayfaAdi).Select
            Else
                MsgBox "Hedef sayfa bulunamadı!"
            End If
            Exit Sub
        End If
    Next i
    MsgBox "Geçersiz kullanıcı adı veya şifre!"
End Sub

[sylarrr]

erseldemirel çok teşekkür ederim son bir ricam olacak senden user forma kullanıcı adı ve şifre yadıktan sonra sayfa açılınca user form otomatik olarak kendisi kapansa olabilir mi.

[erseldemirel]

Kod: Tümünü seç

Unload Me

Bu komut ile userform kapatılır. Bunu

Kod: Tümünü seç

 Sheets(sayfaAdi).Visible = True
                Sheets(sayfaAdi).Select

bu koddan sonra yazabılırsınız. Amaç başarılı işlem sonrası kapatmak. Excelde sizin kodda denemedim ezbere yazıyorum dediğim aralıkda sıkıntı olursa unutma kodunun yerini değiştirin.