Shift Tuşunu Devre Dışı Bırakmak

[barkod]

Merhabalar

Access te hazırlanan veritabanı programlarının açılırken shift tuşu ile düzenleme bölümlerine girilmesini nasıl engelleyebiliriz.:roll:

 

[simendifer]

bu forumdan alıntıdır

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()