O zaman modulü şöyle yapın
Kod:
Global OkToClose As Boolean
Function RemoveMenu()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = False
Next I
End Function
Function gelsinMenu()
Dim I As Integer
For I = 1 To CommandBars.Count
CommandBars(I).Enabled = true
Next I
End Function
Sonra da istediğiniz bir olay veya düğmeyle "gelsinMenu" komutunu çalıştırın. Menüleriniz gelecektir. Bu işlemleri yönetici ve kullanıcılara ayrı ayrı çalıştırmak için ise yönetici ve kullanıcılar için oluşturulmuş olan düzeneğin içine if...then ile bu komutları yerleştirin. Yönetici açtığında komut çalışmasın, kullanıcı açtığında çalışsın. Bunun için admin ekranı koyun ve ordan kullanıcı ve adminleri tanımlayın. if kullanımı da şöyle
mesela admin ve user için ana forma bir metin kutusu koyup giriş yapan kişinin yetkisini yazdığınızı varsayalım. Bütün yetkiler burdan alınsın. Bu kutunun adı da "yetki" olsun
Kod:
if me.yetki= "admin" then
gelsinMenu
else
removeMenu
end if
Kolay gelsin. Uygulama üzerinde görmek isterseniz müsait olunca bir örnek hazırlarım..