Evet evet hepsi tam fakat shift tuşu kilidi kaldırıldığında tabloları açmayı engellemeye bir çaremiz yok

Yaptıklarım,
*Tablolarım ve sorgularım gizli
*Access penceresi gizli durumda(Açılışta gizlettim)
*Shift tuşu kilidi aktif durumda

(01-04-2021, 14:43)tolgahanay8 demiş ki: Evet evet hepsi tam fakat shift tuşu kilidi kaldırıldığında tabloları açmayı engellemeye bir çaremiz yok

Yaptıklarım,
*Tablolarım ve sorgularım gizli
*Access penceresi gizli durumda(Açılışta gizlettim)
*Shift tuşu kilidi aktif durumda

Const Yonet As String = "tolgahanay8" '*** Uygulamanizi OZGUN KONUMDA acabilmeniz icin
Public Function Kim()
......
OzGun "AllowBypassKey", dbBoolean, IIf(Kim = Yonet, True, False)        'ATLAMA Shift
......
Erb:
Exit Sub
Erc:
MsgBox Err.Description
Resume Erb
End Sub

Bilinen Pencere Gizle Kodları haricinde olaydan bahsetmiştim.

Yonet değişkenine kendi userID yazarsanız shift tuşu aktif olur, sızın haricinizdeki kullanıcılar açmaya çalıştığında kodlar çalışır ve uygulama kilitlenir.

Tablolar olmaksızın İlk karşılama formuna tablo bağlama Docmd.TransferSharePointList.... ile bağlanıp, sonuç alınabilir.

Hocam hemen deneyeceğim. Fakat bu bahsettiğiniz yonet değişkeni kodlarını nereye yazacağım? Başlangıç formuna mı?

(01-04-2021, 15:49)tolgahanay8 demiş ki: Fakat bu bahsettiğiniz yonet değişkeni kodlarını nereye yazacağım? Başlangıç formuna mı?

Pencere Gizle Kodları konusunda bahsetmiştim, ilk prosedürü uygulamanız içinde modül oluşturup, taşıyın. ikinci prosedürü başlangıç formu VBA bölümüne taşıyın. Yonet değişkenine kendi userID nızı yazın ve OzGun "StartupForm", DB_Text, "Menu" Menu yazan yere Başlangıç formu adını yazın.

Hocam anladığım kadarı ile bu kodlar uygulamanın yalnızca kendi bilgisayarımızda açılabilmesini sağlıyor. Fakat benim sorunum Shift tuşu programı konusundaki programın uygulamanın shift tuşunu aktif ve pasif yapmasını engellemek. Yalnızca ben aktif ve pasif yapabileyim istiyorum. Diğer kullanıcılar hiç bir şekilde bunu yapamasın. Böylelikle güvenliğini sağlamış olurum. Ben biraz daha araştırayım. İlginiz ve yardımlarınız için çok teşekküler.