kullanıcıya göre sayfa gösterme ve işlem yetkisi

[Yesilyurtlu]

Değerli Uzmanlarım
Excelimizde 12 tane sayfamız mevcut.
Kullanıcı Adı : Memur
Şifre : Özlük

yukarıda ki Şifre ile 1.2.3 ve 4 sayfalara girecek ve işlem yapabilecek. Diğer sayfaları göremeyecek ve işlem yapamayacak

Kullanıcı Adı : Memur 1
Şifre : Özlük 1

yukarıda ki Şifre ile 5.6.7 ve 8 sayfalara girecek ve işlem yapabilecek. Diğer sayfaları göremeyecek ve işlem yapamayacak

Kullanıcı Adı : şef
Şifre : genel

Yukarıdaki şifre ile tüm sayfalara girebilecek ve işlem yapabilecek

müsait olduğunuzda böyle bir işlem için örnek bir dosya ekleyebilir misiniz?

 

[hamitcan]

F12 tuşuna bastığınızda kod çalışacaktır.
Bir Module içine;

Sub Yetki()
    kullanici_adi = InputBox("Kullanıcı Adını Girin")
    sifre = InputBox("Şifreyi Girin")
    If kullanici_adi = "a" And sifre = 1 Then Sheets(2).Visible = True: Sheets(2).Select
    If kullanici_adi = "b" And sifre = 2 Then Sheets(3).Visible = True: Sheets(3).Select
End Sub
Sub calis()
    Yetki
End Sub

Sayfa2 içine;

Private Sub Worksheet_Activate()
    If Sheets(2).Visible <> True Then
    Yetki
    End If
End Sub

Private Sub Worksheet_deActivate()
    If Sheets(2).Visible = True Then
      Sheets(2).Visible = False
    End If
End Sub

Sayfa3 içine;

Private Sub Worksheet_Activate()
    If Sheets(3).Visible <> True Then
      Yetki
    End If
End Sub
Private Sub Worksheet_deActivate()
    Sheets(3).Visible = False
End Sub

ThisWorkBook içine;

Private Sub Workbook_Activate()
    Application.OnKey "{F12}", "calis"
End Sub
Private Sub Workbook_deActivate()
    Application.OnKey "{F12}", ""
End Sub

 

[burak46]

hamitcan üstadım benim istediğim de böyle bir şey ama ben yapamadım excel hakkında peki bir bilgim yok neyin nereye yazılacağını bilmiyorum yardımcı olabilrmisiniz ?

 

[hamitcan]

Excel Dershanesi bölümünde kod oluşturma ile ilgili temel bilgiler mevcut; buradan başlayabilirsiniz.

 

[burak46]

hamit can hocam yaptım inceledim dersleri ve kodları doğru yerlere yazdım fakat ben mesela A kullanıcısının kullanıcı adı ve şifresini girdiğimde bütün sayfaları görmek ve bütün sayfalarda değişiklik yapmak istiyorum

Hocam bir de mesela diğer kullanıcılar girdiği zaman sadece görmelerini istiyorum değişik hakkına sahip olmasınlar istiyorum

Yardımlarınız için şimdiden teşekkür ederim Hocam

 

[burak46]

Hocam Merhaba cevap bekliyorum sizden

 

[hamitcan]

Kodlara eklentiler yaptım, ekli dosyayı inceleyiniz.

Sub Yetki()
    kullanici_adi = InputBox("Kullanıcı Adını Girin")
    sifre = InputBox("Şifreyi Girin")
    If kullanici_adi = "a" And sifre = 1 Then Sheets(2).Visible = True: Sheets(2).Select
    If kullanici_adi = "b" And sifre = 2 Then Sheets(3).Visible = True: Sheets(3).Select
    If kullanici_adi = "c" And sifre = 3 Then
        Sheets(2).Visible = True: Sheets(3).Visible = True
        Sheets(2).Unprotect "H": Sheets(3).Unprotect "H"
    End If
End Sub

Private Sub Worksheet_deActivate()
      Sheets(2).Visible = False
      Sheets(2).Protect "H"
End Sub
   Private Sub Worksheet_deActivate()
    Sheets(3).Visible = False
    Sheets(3).Protect "H"
End Sub