Başlangıçta Yetkiye Göre Sayfa Açma

Başlangıçta Yetkiye Göre Sayfa Açma

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

mhezer

Kullanıcı
Katılım
17 Mar 2023
Mesajlar
232
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
İngilizce
Merhaba değerli arkadaşlarım,
Ekli ddosyamda açılan userformdan girişte yetki tamınlamasına göre sayfalar gelmektedir. Kafamı karıştıran durum Ayarlar sayfasında giriş yapan kişinin hangi sayfaları görmesi gerktiğini belirlememe rağmen kullanıcı ile girişte bazı kullanıcılar için tanımlanan sayfaları değil başka sayfa açmaktadır. "data" sayfasında gerekli olan atama şekli mevcuttur. Sizdan ricam algoritmayı oluştururken nasıl bir hata yaptığım konusunda beni yönlendirmeniz.

Hata aldığım bir kullanıcıyı örenek verecek olursam, genclikkollari isimli kullanıcı ile giriş yaptığımda açılması gereken sayfa "Kılavuz ve Gençlik Kolları" sayfası olması gerekirken, aşapıdaki kullanıcı adı ve şifre ile giriş yaptığımda açılan sayfalar "Kılavuz ve Seçim İşleri" sayfası olarak gelmektedir.

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

K.Adı : admin
Şifre: 123
K.Adı: genclikkollari
Şifre: 123
 
Her Kullanıcı İçin Ayrı Sayfa Yetkilendirme
Tarih Bazlı Raporlamada Açıklama Temizleme
Tarih Bazlı Raporlamada Açıklama Temizleme

Ekli dosyalar

Çözüm
Ömer BARAN
1) For döngüsünün 2 olan başlangıç değerini 3 yapın.
2) data sayfasında 1'inci satıra admin başlıklı bir sütun ekleyip, o sütunda tüm sayfa adları için 1 yazın. Çünkü data sayfasında admin adı yok.
3) sutun = ...... satırından sonra
If sutun = Empty Then sutun = 1
şeklinde bir satır ekleyin.

Umarım telefondan yazarken hata yapmadım.
Tarihe göre sırala Oylamaya göre sırala
İlgili kod satırı şöyle: If yetki = 4 Then nesne = Array("US", "CF", "CE")
Bu nesne isimleri de Page2'de IUS (sağında Lus) , ICF (sağında Lcf) , ve ICE (sağında Lce) .
Yani en alttaki 3 nesne grubu.
Koddaki nesne isimlerine göre işlem gerçekleşiyor durumda.
 
Oyla 0 Olumsuz oyla
@Ömer BARAN Hocam teşekkür ederim.Yetki kodları ile ilgili bir sıkıntı yok. Benim anlamadığım konu data sayfası A1:V1 satırında arasında kullanıcı isimleri, A1:A kolundaysa sayfa isimleri gelmektedir. Burada yaptığım atam sonrasında dosya açıldığında giriş yapan kullanıcının tanımlanan sayfalara göre ekrana sayfaların gelmesi gerekmektedir. Buradaki algoritmada sıkıntı yaşamaktayım.
 
Oyla 0 Olumsuz oyla
@mhezer

1) User_Role isimli MODULE'nin başını şu şekilde güncelleyin.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)

2) LOGIN formundaki Btn_Giris isimli nesneye ait kodların son kısmını da şu şekilde güncelleyin.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)

Böylece LOGIN formundaki kullanıcı adı data isimli sayfa 1'inci satırda hangi sütunda olduğu bulunur.
Bulunan sütunda 1 değeri olan satırlarda A sütununda belirtilen ismi taşıyan sayfalar gösterilir, 1'den farklı olan değerlere ait sayfalar gizlenir.
Kılavuz isimli sayfa sürekli görünür (en az 1 sayfa görünür olmalıdır).

sayfa_goster_gizle isimli makro kodunun başına Appliication.screen
 
Oyla 0 Olumsuz oyla
@Ömer BARAN Hocam, dosyaya heehangi bir kullanıcı ile giriş yaptığımda kodlar istediğim gib çalışıyor. Ancak, Dosyayı kapatıp admin ile giriş yaptığımda "run time 13 type mismatch" hatası veriyor. Hata ekranını kapattığımda işaretli satırda hataya düşüyor.


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(15 satır)
 
Oyla 0 Olumsuz oyla
1) For döngüsünün 2 olan başlangıç değerini 3 yapın.
2) data sayfasında 1'inci satıra admin başlıklı bir sütun ekleyip, o sütunda tüm sayfa adları için 1 yazın. Çünkü data sayfasında admin adı yok.
3) sutun = ...... satırından sonra
If sutun = Empty Then sutun = 1
şeklinde bir satır ekleyin.

Umarım telefondan yazarken hata yapmadım.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt