kullanıcıya göre sayfa sınırlama

[kadir_s]

Merhaba,

Kayıtlı kullanıcıların, sadece çalışma kitabı içinde, kendilerine izin verilen sayfaları görüntüleyebilmesini istiyorum. Bununla ilgili nasıl bir uygulama yapabiliriz.

Ör: Ahmet Sayfa1, ve Sayfa2 ile çalışabiliyorken sayfa3 teki bilgileri görüntüleyemiyor.
Mehmet ise bütün sayfalar üzerinde çalışabiliyor.

Teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim syf As Worksheet
If ComboBox1.Value = "AHMET" Then
    For Each syf In Worksheets
        If syf.Name <> "Sayfa3" Then
            syf.Visible = True
            Else
            syf.Visible = False
        End If
    Next
End If
If ComboBox1.Value = "MEHMET" Then
    For Each syf In Worksheets
        syf.Visible = True
    Next
End If
    
End Sub

 

[cebir]

merhaba
yine üstad bildiğimiz gibi hızlı
saygılar.

eki inceleyin.şifre 123

Private Sub Worksheet_Activate()
Columns("A:IV").Hidden = True
Dim Parola As Variant
Parola = InputBox("Sayfaya Girmek İçin Parola Giriniz.")
If Parola = "123" Then 'Kendi şifreniz
Sheets("Sayfa2").Select
Columns("A:IV").Hidden = False
Else
Sheets("Sayfa1").Select
MsgBox " YETKİNİZ YOK "
End If
End Sub


2. sayfa açılmak istendiğinde gizlenip şifre sorar.

 

[kadir_s]

ikisi de gerçekten çok kullanışlı çalışmalar çok teşşekkür ediyorum fakat tam uygun olanı aslında ikisinin karşımı bir çalışma.

şöyle ki:

üstad orion2 'nin çalışması üzerine; kullanıcı seçmek yerine kullanıcı adı ve parola girişi yapılarak verilen yetkiye göre sayfalar görüntülenirse amaca ulaşmış olacağım.

teşekkürler, iyi çalışmalar

 

[kadir_s]

sayın arkadaşlar,

bu ricamın bir çözümü yok mudur?

 

[cebir]

merhaba..
bir modül e:

Sub auto_open()
Sheets("Sayfa2").Visible = False
End Sub

sayfa 2 yi açması istenen button a :

Private Sub CommandButton1_Click()
Dim Parola As Variant
Parola = InputBox("Sayfaya Girmek İçin Parola Giriniz.")
If Parola = "123" Then 'Kendi şifreniz
Sheets("Sayfa2").Visible = True
Sheets("Sayfa2").Select
Else
MsgBox " YETKİNİZ YOK "
End If
End Sub

dosyayı kaydedip tekrar açınız.

 

[baydeniro]

Paylaşım için teşekkürler.

 

[tahsinanarat]

istediğiniz bir çalışma

çok önceki tarihlerde kod gen tr den indirdiğim bir çalışma, umarım işinize yarar.

 

[kadir_s]

tahsin bey,

gönderdiğiniz dosyada istediğimden de fazlası var. bu çok işime yarayacak. ilgi ve alakanız için çok teşekkürler.

iyi bayramlar

 

[tahsinanarat]

Sn. kadir s sizede iyi bayramlar, tüm excel kullanıcıların kurban bayramını kutlar, saygılar sunarım.