Açılışta Acces Menülerini Kilitleme

[Ersen]

Arkadaşlar Acces'i hepimiz öğrenmek için bu forumu kullanıyoruz. ileri düzey bilgisi olan arkadaşlar bile bu forumdan istifade ediyor. Accesi rahatlıkla bir programlama ortamı olarak kabul ediyorum. Kolay ve seri bir şekilde yaptığımız bu programları koruyabilmek için HDD numarasına göre aktivasyon kodu yapmayı, shift tuşunu kilitlemeyi daha benzer birçok şeyi bu forumdan öğrendik.

Esas meseleye gelince Acces açılışta shift tuşu ile menülere ulaşılabilmekte dolayısı ile rahatlıkla kaynak kodlara erişilebilmekte. Shift tuşunu devre dışı bıraktığımızı sanıyoruz ancak Araçlar menüsüne erişildiği anda shift tuşunu devre dışı bırakan kodların hiçbir anlamı kalmıyor. Acces.exe çalışır çalışmaz ya da acces ana penceresi yüklenir yüklenmez Acces'in standart menülerinin kullanımını engelleyen, ya da kilitleyen bir yordama ihtiyacım var. Bir firmanın ticari programında gördüğüm için bunun mümkün olduğunu düşündüm. Ancak günlerce uğraşmama rağmen bir çözüm geliştiremedim.

Bu konuda ustaların yardımını bekliyorum.

 

[Nevzat GÜRBÜZ]

Bende aynısını yapmak için o kadar uğraştım.Ama başaramadım.AKD arkadaşımız bunu yapmış olduğunu gördüm.Bunu bizlerle paylaşırsa çok iyi olacak.İyi çalışmalar...

 

[simendifer]

Shİft TuŞunu Gİzlemek

SHİFT TUŞUNU GİZLEMEK

'Dikkatrogramınızın bir yedeğini aliniz. Aksi takdirde programınızı tekrar açamayabilirisiniz...


'----------Kod Baslama------------------
Option Compare Database
Function BypassOzelliginiDegistir()
Const OzellikTipi As Long = 1
OzellikDegistir "AllowBypassKey", OzellikTipi, False
End Function

Function OzellikDegistir(strOzellikAdi As String, varOzellikTipi As Variant, varOzellikDegeri As Variant) As Integer
Dim dbs As Object, varOzellik As Variant
Set dbs = CurrentDb
On Error GoTo OzellikDegistir_Hata'Ozelligi degistir
dbs.Properties(strOzellikAdi) = varOzellikDegeri
OzellikDegistir = True
OzellikDegistir_Cik:
Exit Function
OzellikDegistir_Hata:
If Err = 3270 Then
Set varOzellik = dbs.CreateProperty(strOzellikAdi, _
varOzellikTipi, varOzellikDegeri)
dbs.Properties.Append varOzellik
Resume Next
Else
OzellikDegistir = False
Resume OzellikDegistir_Cik
End If
End Function
'----------Kod Bitis------------------


'Modülü kaydedin. ve autoexec adında bir makro oluşturun. Autoexec Access açıldığında otomatik çalışan makrodur. (Ayni Autoexec.bat gibi)
'Makronun içinde Kodçalistir(RunCode)seç ve parametre bölümüne aşağıdaki satiri yaz.
=ByPassOzelliginiDegistir()