Kullanıcılara Giriş Yetkisi Verme

  • Konuyu başlatan Konuyu başlatan Local
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Local

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Merhaba ekte yer alan dosyamda kullanıcı giriş yetkisiyle ilgili form mevcuttur .Açıklamalar Login sayfasında yer almaktadır.Bu konu ile ilgili araştırma yaptım fakat kararsız kaldım ve çözemedim
 

Ekli dosyalar

Çözüm
ExcelDepo

ExcelDepo

Merhaba, Login formundaki açıklamaya göre her kullanıcının açabileceği menüleri Users sayfasından yönetebilirsiniz. Önce Users sayfasının C sütununa Yetki başlığını ekleyip sütunu Metin biçimine alın ve menü etiketlerini yazın: Admin için 1,2,3,4, Deneme1 için 1,2, Deneme2 için 3,4. Ardından aşağıdaki kodları, açıklama satırlarında belirtilen yerlere yerleştirin. Login ve ANASAYFA formlarındaki eski kodların tamamı kaldırılmalıdır.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (16 satır). Giriş Yap
Tarihe göre sırala Oylamaya göre sırala
Merhaba, Login formundaki açıklamaya göre her kullanıcının açabileceği menüleri Users sayfasından yönetebilirsiniz. Önce Users sayfasının C sütununa Yetki başlığını ekleyip sütunu Metin biçimine alın ve menü etiketlerini yazın: Admin için 1,2,3,4, Deneme1 için 1,2, Deneme2 için 3,4. Ardından aşağıdaki kodları, açıklama satırlarında belirtilen yerlere yerleştirin. Login ve ANASAYFA formlarındaki eski kodların tamamı kaldırılmalıdır.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (93 satır). Giriş Yap

Kod nasıl çalışır?
  1. Dosya açılınca Login formu gelir; girilen kullanıcı adı ve şifre Users sayfasıyla karşılaştırılır.
  2. Giriş doğruysa Excel penceresi gizlenir ve ANASAYFA formu açılır. Vazgeç düğmesi veya formun çarpısı kullanılırsa dosya kapanır.
  3. Menüden bir seçim yapıldığında seçimin Tag değeri, kullanıcının C sütunundaki yetkileriyle karşılaştırılır. Yetki yoksa form açılmaz ve uyarı gösterilir.
  4. ANASAYFA kapatıldığında Excel yeniden görünür olur. Deneme kullanıcıları için dosya kaydedilip kapatılır; Admin sayfalarda çalışmaya devam edebilir.

Notlar
  • Deneme1 kullanıcısının şifresi Users sayfasında boşluklu olarak Deneme 1 yazılıdır; giriş bu şekilde yapılır. Şifre bitişik olacaksa B3 hücresi değiştirilmelidir.
  • Üst menü düğmelerinin çoğunda Tag değeri 3 olduğu için eski ButtonClick olayı, üst düğmeye basılınca da Çoklu Stok formunu açabiliyordu. Yetkinin delinmemesi için bu olay kaldırılmıştır.
  • Banka, Kasa gibi henüz formu bağlanmamış menülerde işlem yapılmaz. Yeni form bağlarken etiketi FormAc içindeki listeye ve Select Case bloğuna, Admin dâhil ilgili kullanıcıların C sütununa ekleyin.
  • STOKKARTI formundaki btnkaydet_Click yordamının UserForm1.Show satırı, dosyada olmayan bir formu çağırdığı için kayıttan sonra 424 hatası verir; bu satır silinmelidir.
  • TALEPFORMU kaydı örnek dosyada hata verir: kod TalepSayfası adlı sayfaya yazıyor, bu sayfa dosyada yok; ayrıca Frmmesaj ve frmmesaj64 formları da bulunmuyor. Bu bölüm yetki kodundan bağımsızdır ve ayrıca düzenlenmelidir.
  • Excel gizliyken çıkan hata penceresinde End (Son) seçilirse Excel görünmez kalır. Bu nedenle kayıt yordamları düzeltilene kadar Application.Visible = False satırı geçici olarak kapatılabilir.
  • Excel gizlendiğinde aynı oturumdaki diğer açık dosyalar da görünmez olur.
  • Bu yöntem kullanım kolaylığı sağlar, tam güvenlik sağlamaz; makrolar devre dışı açılırsa sayfalar görülebilir ve şifreler Users sayfasında açık durur. Users sayfası çok gizli yapılıp VBA projesine parola konması önerilir.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst