Menü Çubuğuna Kullanıcı Yetkisi

Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
Merhaba arkadaşlar ve üstadlar ekteki örnekle ilgili bi sorum olacak ben menü çubuğuyla çalışıyorum sorum şu kullanıcı girişi admin olarak olduğunda menü çubugundaki bütün yerlere girebiliyim ama user olarak girildiğinde benim tayin ettiğim yerlere girebilsin user olarak giren o yazıları görsün ama alt grubundaki bazı yazılar etkin olmasın yani giremesin
şifreler : osman 123 admin kullanıcı
admin admin user kullanıcı
ilginiz için şimdiden teşekkür ederim
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
slm

bu konu hakkında çalışma yapan arkadaşlar varmı acaba
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
Sayın Modalı Hocam Böyle bi çalışma varmı daha önceden bu konuyla bi ilgilenseniz rica etsem
 
Katılım
17 Temmuz 2007
Mesajlar
294
Excel Vers. ve Dili
access
sayın osmn06 formda buna benzer örnek çok misal benimde kullandığım CELOCAN TİCARET adında bir proğram ve bunun ana giriş sayfasında yaptım formdan araştırıp kendinize uyarlayın User olarak giriş yaptığınızda istediğiniz kısıtlamayı yapabilirsiniz.
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
Sayin :celoy Çok Örnek Var Ama MenÜ Çubu Olarak HİÇ Yok Çogu Form Üzerİnde Butonlari YapmiŞ Ama MenÜ De Yok ( Bİ De O DedİĞİn Programi Eklersen İnceleme Şansimiz Olur ) TeŞekkÜrler
 
Katılım
17 Ocak 2008
Mesajlar
19
Excel Vers. ve Dili
2003
osmn06 dostum benimde böyle birşeye ihtiyacım var
yardımcı olabilecek varmı?
 
Katılım
21 Ekim 2005
Mesajlar
529
Excel Vers. ve Dili
2010 - TR!
bu sekılde bır yetkılendırme 2 turlu olur

1 - ıkı ayrı menu hazırlarsın en bastakı kullanıcı adı ve sıfre gırısı yapıldıktan sonra kullanıcının sevıyesıne gore makro calıstırırsın.

2 - her formun acılısına kullanıcının yetkılerını kontrol eden bır makro hazırlarsın eger yetkısız kullanıcı acmaması gereken bır formu acarsa hata verıp kapatacak sekılde ayarlayabılırsın.
bunlar bı kac dakıkalık ısler degıl o yuzden dosya uzerınde duzenleme yapıp gonderemıyorum ok takıldıgınız yerlerde burdan yazın ıyı gunler.
 
Katılım
17 Ocak 2008
Mesajlar
19
Excel Vers. ve Dili
2003
cyber sağol fikirlerin için
yalnız bi örnek vercem üretim Satış Satın Alma Muhasebe Ambar KaliteKontrol gibi bölümler olduğunu yani 1den fazla kullanıcı ve bunlar popup menüde birbirlerinin bölümlerine giremesin veya gireceği fakat değişiklik yapamayacağı bölümler olsun bunlar için fikri olan varmı?
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
Sayin : Cyberwolf : VerdİĞİn Bİlgİ İÇİn TŞk Ama O Kadar Profesyonel DeĞİlİm En Azindan VerdİĞİm Örnek Üzerİnde Bİ ÇaliŞma Olursa ÇÖzebİlİrİm İlgİn İÇİn TŞk Ler EĞer Bu ÖrneĞİ Yaparsan Çok Mİnnettar Kalirim İyİ GÜnler
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
bu konu hakkında bilgisi veya örneği olan arkadaş varmı acaba
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
inanmıyorumki bu forumda bu konu çözümsüz kalsın ama hiç kimsenin vakti yok galiba
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
mrb arkadaşlar bu konu ile ilgili bilgi almadım hala
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın osmn06,

Sorunuza neden bir aydan beri bakmadım bilemiyorum? Kısmet bu günmüş.

Elbette sizin istediğiniz gerçekleşiyor. (şimdiye kadar pek gerçekleşemeyen işleme de rastlayamadım:eek:k:: )

Ancak tabi bu iki aşamada gerçekleşebilecek bir durum ve her uygulama için ayrı düşünülüp uygulamaya çevrilmesi gerekiyor.

Bence uygulamaya bir tablo daha eklenip, her oluşturduğunuz gurubun yetkilerini de kaydetmeniz gerekiyor. Mesela menu barınızdan hangi gurup nereyi görecek vs.

Bu da kapsamlı bir çalışmayı gerektiriyor. Tabi yavaş yavaş bu basit uygulamaya giriş formunun yanına birkaç form ve tablo eklenmesi gerekecek. Yetkiler, seviyeler, şifre yenileme vs.

Yani bir yönetici paneli uygulaması eklenmesi gerekecek.

Ondan sonra da bu tablolardaki bilgilere göre uygulama başlayacak. Açılabilecek formlar, açılacak menu barları, kullanılabilecek komut yetkileri vs.

Anlayacağınız sizin sorduğunuz kapsamlı ve zaman alıcı. İyi düşünüp sağlam temeller üzerine kurulması gerekecek uygulamanın. Yani şifre formunuzun arkasındaki aç kodları yetersiz kalacak ve modüller kullanılması gerekecek. Yani o andaki kullanıcıların bilgilerini. şifre, id, seviye ve yetkilerini global değişkenlere atayıp, uygulama kapanana kadar kullanıma hazır halde bulunması gerkecek. Çünkü açılacak olan her forma değişik menu barlar açmak isteyebileceksiniz, buna bağlı olarak da yetkileri değişik yapmanız gerekebilir.

Ama menu bardaki komutları etkinleştirme komutları tüm yukarıdaki log on (bağlanma) işleminden daha basit. İtiyorsanız sadece bunları gönderebilirim.

İyi çalışmalar
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
sAYIN MODALI HOCAM
İLGİNİZ İÇİN ÇOK ÇOK TŞK LER ÖRNEK OLARAK GÖNDERİRSENİZ SEVİNİRİM İSTERİM TABİ DİĞER KONUYUDA MÜSAİT OLDUĞUNUZ ZAMANLARDA BAKARSANIZ BEKLERİM ÇÜNKÜ YAPTIĞIM PROJE BAYA GÜZEL OLDU BUNU NETTE KULLANACAĞIM ONUN İÇİN ÇOK ÖNEMLİ BENİM İÇİN
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
Sayin Modali Hocam
Bİrde Formda Haftasonu Ve Bayram Hesaplam Otomatİk Adinda Bİ Konu Var Bİ GÖz Atarsaniz Sevİnİrİm
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın osmn06,

Aşağıdaki fonksiyonu bir modüle kaydedin:

Kod:
Public Function CommandbarEnable(Cmdbar As CommandBar, CmdbarEnabled As Boolean, TopLevel As Long, Optional Sublevel As Long)
Dim SubCommandbar
On Error GoTo Err_CommandBarEnable
'If the command bar is not visible, make it so.
If Cmdbar.Visible = False Then Cmdbar.Visible = True
'If no menu item on a submenu is selected for enabling\disabling,
'enable\disable the top level menu choice only.
If IsMissing(Sublevel) Or Sublevel = 0 Then
Cmdbar.Controls(TopLevel).Enabled = CmdbarEnabled
'If a menu item on a submenu is selected for
'enabling\disabling, do so now.
Else
Set SubCommandbar = Cmdbar.Controls(TopLevel)
SubCommandbar.Controls(Sublevel).Enabled = CmdbarEnabled
End If
Exit_CommandBarEnable:
Exit Function
Err_CommandBarEnable:
MsgBox Err.Description
Resume Exit_CommandBarEnable
End Function
Fonksiyonun kullanılışı:

Kod:
Call CommandbarEnable(CommandBars("Custom1"), False, 3, 3)
Custom1 yerine menu bar adı, eğer menu bar etkinleşecekse True, yoksa False, ilk 3 ana menü üstünde 3. sıradaki menü, ikinci 3 ise 3. menünün 3. alt menüsünün etkinliğini durdurur. Eğer Ana menü üstündeki herhangi bir menünün etkinliği kapatılacaksa ikinci 3 yazılmaz.

İyi çalışmalar
 
Katılım
26 Ağustos 2007
Mesajlar
110
Excel Vers. ve Dili
office 2003
sayın modalı hocam ikinci verdiğiniz kodu nereye yazacağız
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
sayın modalı hocam ikinci verdiğiniz kodu nereye yazacağız
Form load olayında olabilir, bir butonun klik olayı olabilir, geçiş panosunda formları açarken kişinin kimşiğine gör olabilir. Artık bu sizin uygulamanıza kalmış.

İyi çalışmalar
 
Üst