Excelde Kullaniciya gore sayfayi gizlemek

[gurcan21]

Merhaba,
Uzerinde calistigim excel belgesinin 3 sayfasi var. Bu belgeye 2 farkli kullanici, kullanici isimleri ve sifreleriyle girecek. Istedigim sey 1. kullanici girdiginde sayfa 2 ve sayfa 3u, 2. kullanici girdiginde sayfa 1 ve sayfa 3 u gorebilsin. bunu yapabilecek bir kod yazabilirmiyim??

 

[Necdet]

Merhaba,

Fikir vermesi açısından basit bir kod yazdım. Siz kendinize göre uyarlayınız.

Kullanıcı "ahmet" ve "mehmet" e göre davranır.

Aşağıdaki kodların ThisWorkbook'un sayfa bölümünde olması gerekir.

Private Sub Workbook_Open()
    Dim Kullanici As String
    
    Kullanici = InputBox("Kullanıcı Adını Giriniz", vbOKCancel, "Kullanıcı Adını Giriniz")
    
    MsgBox "Kullanıcı : " & Kullanici
    
    If Kullanici = "ahmet" Then
        Sheets("Sayfa2").Visible = True
        Sheets("Sayfa3").Visible = True
        Sheets("Sayfa1").Visible = False
        Sheets("Sayfa2").Select
    ElseIf Kullanici = "mehmet" Then
        Sheets("Sayfa1").Visible = True
        Sheets("Sayfa3").Visible = True
        Sheets("Sayfa2").Visible = False
        Sheets("Sayfa1").Select
    Else
        ThisWorkbook.Close Savechanges:=False
    End If
    
End Sub

 

[gurcan21]

Hocam teşekkürler. Bir adım sonrasında da şöyle bir şeye ihtiyacım var. Her kullanıcı bir kullanıcı grubuna dahil olacak. 1,2,3,4,5 numaralı gruplar. (Kullanıcı adı ve şifresini yazdığım sayfada bir sütuna kullanıcının dahil olduğu grubuda yazacağım.) Amacım 1. gruba dahil kullanıcının visible olan sayfa1in A ve B sütunlarını, 2. gruba dahil olan kullanıcının sayfa2nin C ve D sütunlarını görmemesini istiyorum v.s.?

Ayrıca, saayfa1in K kolonunda kullanıcı kodları olacak. (Her kullanıcının kendine ait kodu olacak) kullanıcı kendi adıyla giriş yaptığında sadece kendi koduna ait satırları görebilecek?(Görünür olan sayfanın kendi koduna ait satırlarını görecek)

Şöyle özetleyebilirim: Her kullanıcı ait olduğu gruba göre bazı sütunları göremeyecek ayrıca kendi koduna ait satırları görecek. Bu yapılabilir mi?

 

[Necdet]

Merhaba,

Örnek dosya ekleyebilir misiniz? Sorunuzu yanıtlayacak olan arkadaşlara yardımcı olacaktır.