excell sayfasını şifre ile açma

Cevapla
sylarrr
Mesajlar: 5
Kayıt: Cum Mar 29, 2024 3:29 pm
Lokasyon: istanbul
Adınız: tolga
Soyadınız: bayrak

excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 84
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 5
Kayıt: Cum Mar 29, 2024 3:29 pm
Lokasyon: istanbul
Adınız: tolga
Soyadınız: bayrak

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 84
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
sylarrr
Mesajlar: 5
Kayıt: Cum Mar 29, 2024 3:29 pm
Lokasyon: istanbul
Adınız: tolga
Soyadınız: bayrak

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 84
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: excell sayfasını şifre ile açma

Mesaj gönderen erseldemirel »

Rica ederim kolay gelsin
sylarrr
Mesajlar: 5
Kayıt: Cum Mar 29, 2024 3:29 pm
Lokasyon: istanbul
Adınız: tolga
Soyadınız: bayrak

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 84
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 5
Kayıt: Cum Mar 29, 2024 3:29 pm
Lokasyon: istanbul
Adınız: tolga
Soyadınız: bayrak

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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
Mesajlar: 84
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: excell sayfasını şifre ile açma

Mesaj gönderen 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.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj