• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kullanıcı Yetkisi kısıtlama

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
okinava14

okinava14

Yeni Üye
Katılım
19 Haz 2022
Mesajlar
673
Çözümler
3
Aldığı beğeni
128
Excel V
Office 2021 TR
Konu Sahibi
Rafez Hocam az önceki kodlar işe yaramadı yani hiç bir işlem yapmadı. Bende verdiğiniz eski kodlardan uyarlama yaptım. keşke sizin verdiğiniz olsa aslında o daha iyi ekte üst satırdaki sizin kodlar altta kide başarılı sonuç veren. ama olsun sonuç da oldu emeğinize yüreğinize sağlık.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Şimdi hocam son sorun tabi umarım :)
Kısıtlı kullanıcı penceresi Yani AYARLAR butonu sadece admin tarafından gözüksün user kullanıcılar ayarlara müdahale edemesin.
FrmAnaEkran da olan AYARLAR butonu sadece admin şifresi ile giriş yapanlar tarafından gözükmesi user kullanıcılar bu ayarlar formuna giremesin.

Kısacası; Ayarlar tıklanırsa Kullanıcı admin yetkili değilse YETKİNİZ YOK UYARISI versin yada kullanıcı ise bu buton gözükmesin. Sadece Admin yetkisi ile giren kullanıcılara gözüksün.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
okinava14' Alıntı:
Set bul = Range("A:A").Find(Me.txtKullaniciAd.Value, , xlValues, 1, , , True) 'Küçük büyük harf duyarlı
Genişletmek için tıkla...
Burda Range den önce nokta olmalıydı heralde bundan sizde çalışmadı Kullanıcılar sayfasından başka sayfada çalıştırdıysanız.
O yüzden size bu with gibi kodları öğrenin diye yazmıştım önceleri :)
 
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
If Not bul Is Nothing Then MsgBox "Kullanıcı Şifre Boş Olamaz...", vbCritical, "Hata" .Cells(bul.Row, "B").Value = txtYeniSifre2.Value MsgBox "Kullanıcı Şifre Yanlış...", vbCritical, "Silme" End If
Genişletmek için tıkla...
Ayrıca Not is nothing olduğu için aranan bulunuyor manasına geliyor Not olmazsa aranan bulanamdı oluyor ordada mantık hatası yapmışsınız ve if else olayını uygulamalısınız.
 
Olumlu oy 0 Negatif oyla
KullaniciAdveSifre_Modul modüldeki

Sub KullaniciSifre_Guncelle(ByVal txtEskiKullaniciSifre As MSForms.TextBox, ByVal frm As Object, _
ByVal txtYeniKullaniciSifre As MSForms.TextBox, ByVal txtKullaniciAd As MSForms.TextBox)
adında sub var orda boş olamaz örnekleri var mesela.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Önceki mesajdaki Sub olanı açıp kodları inceleyip anlamaya çalışın tüm sorunuza yardımcı olacak örnek kodlar var bence.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam sadece şu kısıtlı kullanıcılar olayı kaldı. burayı o yüzden açtım. Onu nasıl yapıcam.
 
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
Şimdi hocam son sorun tabi umarım :)
Kısıtlı kullanıcı penceresi Yani AYARLAR butonu sadece admin tarafından gözüksün user kullanıcılar ayarlara müdahale edemesin.
FrmAnaEkran da olan AYARLAR butonu sadece admin şifresi ile giriş yapanlar tarafından gözükmesi user kullanıcılar bu ayarlar formuna giremesin.

Kısacası; Ayarlar tıklanırsa Kullanıcı admin yetkili değilse YETKİNİZ YOK UYARISI versin yada kullanıcı ise bu buton gözükmesin. Sadece Admin yetkisi ile giren kullanıcılara gözüksün.
Genişletmek için tıkla...
Sayın hocam.
ilk resimdeki x olan yeri yanlış yazmışsınız alttakini yapın.
ikinci resimdekini eklerseniz Multipage sayfaları arasında geçişte gizlenme ve mesaj olayı çıkar.

Yada ikinci resimdeki Multipagechange kodlarını userformActivate yada Userforminitalieze kodlarında End subtan önce yazarsanız gizlenir.Tabi bu durumda mesaj olayı mantıksızlık olur belki.

1.png

2.png
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Sayın hocam.
ilk resimdeki x olan yeri yanlış yazmışsınız alttakini yapın.
ikinci resimdekini eklerseniz Multipage sayfaları arasında geçişte gizlenme ve mesaj olayı çıkar.

Yada ikinci resimdeki Multipagechange kodlarını userformActivate yada Userforminitalieze kodlarında End subtan önce yazarsanız gizlenir.Tabi bu durumda mesaj olayı mantıksızlık olur belki.

Ekli dosyayı görüntüle 28353

Ekli dosyayı görüntüle 28354
Genişletmek için tıkla...
ilk resimdeki hatanız alttaki resimdeki gibi modül içindeki işaretli olanla aynı yazmadığınızdan.Burdan değiştiriseniz diğer yerlerede aynısı yazılmalı.

Kısaca açılışta adminmi değilmi diye hafızaya alınıyor değişkene.

4.png
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam verdiğiniz her iki örnekde işe yaramadı hata bile vermedi isterseniz bir denermisiniz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst