Sayfa Şifreli Ortak Excel Dosyası

[kabziman]

Merhaba,

Ekteki sadece sayfaları isimlendirilmiş dosya şirket ortak serverında duracak.
Excel dosyası ilk açıldığında sadece 'KULLANICI GİRİŞİ' sayfası gözükecek, ve userform ekranı gelecek, şifreli kullancı girişi yapılacak.

1- AD kullanıcısı 'AD', 'YÖNETİCİ' ve 'ELEMAN' sayfalarını görecek.
2- Yönetici kullanıcısı 'YÖNETİCİ' ve 'ELEMAN' sayfalarını görecek.
3- Eleman kullanıcısı sadece 'ELEMAN' sayfasını görecek.

Şirkette böyle bir tablo yapmam isteniyor, arkadaşlar yardımcı olursanız çok sevinirim. Lütfen kusura bakmayın, 1 haftadır araştırıyorum, hazırlanmış bu tarz dosyaları editlemeye çalışıyorum bir türlü yapamadım, sürekli hata alıyorum. Şimdiden çok teşekkür ederim.

 

[Trilenium]

Dosyanız ektedir.

 

[kabziman]

Elinize sağlık çok güzel olmuş, ancak kullanıcı adını girip şifreleri 12345 yaptığım zaman hatalı şifre uyarısı veriyor. Bir de kullanıcı olarak AD girince tüm sayfaları göstermesi gerekiyor, koda baktım sheets "AD" yazıyor, yanına "Yönetici" vs. yazsam sanırım onları da visible yapar?

 

[Trilenium]

Private Sub CommandButton1_Click()
If Range("E1").Value = "AD" And Range("E2").Value = "12345" Then
Sheets("AD").Visible = True
Sheets("YÖNETİCİ").Visible = True
Sheets("ELEMAN").Visible = True
End If
If Range("E1").Value = "Yönetici" And Range("E2").Value = "12345" Then
Sheets("YÖNETİCİ").Visible = True
End If
If Range("E1").Value = "Eleman" And Range("E2").Value = "12345" Then
Sheets("ELEMAN").Visible = True
End If
End Sub

 

[kabziman]

Tamamdır, tam istediğim gibi, kullanıcı ve sayfa da ekleyebiliyorum.
Yalnız son bir isteğim var, kullanıcılar Excel'den çıkarken girdiği verileri kaydetmek için exceli kaydedecek, kullanıcı girişi sayfasına şifresini yazılı unutursa kaydettiği için başkları şifreyi görebilir. Şifreyi ***** şeklinde gösterebilir miyiz? Ya da başka bir çözüm? Giriş yap tuşuna basınca şifreyi otomatik silme gibi?

 

[Trilenium]

Sayfayı açtırdıgımız bölüme True olarak olan satırdan sonra şunu yazınız

Range("E1").value=""
Range("E2").value=""

Bitti bukadar.

 

[kabziman]

Kodu nereye yazacağımı tam olarak anlayamadım

 

[Trilenium]

ALT+F11 yapın göreceksiniz