Topik ini sudah sering dibahas.
Tanpa bermaksud promosi, sebaiknya anda membaca buku KTAS (
http://www.gapura.web.id/buku/ktas) karena langkah2 security dibahas
lengkap.
Utk menjawab pertanyaan anda:
1. Buat sebuah module, lalu copy paste code berikut ini:
2. Tekan Ctrl+G untuk menampilkan *Immediate Window.
3. Kalau anda ingin mematikan tombol SHIFT, jalankan **ap_DisableShift*.
(Ketik ap_DisableShift pada *Immediate Window lalu tekan Enter).
Perhatian: backup mdb anda sebelum menjalankan proc ini.
Kalau tombol SHIFT sdh dimatikan, anda juga tdk bisa menggunakannya lagi.
Salam,
Haer Talib
** *
Function ap_DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.
On Error GoTo errDisableShift
Dim db As DAO.Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'This next line disables the shift key on startup.
db.Properties("AllowByPassKey") = False
'The function is successful.
Exit Function
errDisableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
Exit Function
End If
End Function
2008/1/17 eko purnomo eko <[EMAIL PROTECTED]>:
> IYA MAS..., emang ada di help-nya itu kan., tapi gw tetep nggak ngerti
> procedure-nya gimana. MAKSUDNYA, apa yg di module itu di copy paste aja
> langsung ke VBA ->trus call
> allowbypasskey( ), apa bikin fungtion yg isinya module itu ->trus
> dipanggil setiap startup...., maklum mas bahasa inggrisnya masih Ee'ot, nah
> klo ga gini aja ngasi tau nya selangkah2 aja, tapi yg detail biar bisa
> hi...hi...., ga pa2 kan mas.
>
> terima kasih
>
> *Sugiarto <[EMAIL PROTECTED]>* wrote:
>
> To: <[email protected]>
> From: "Sugiarto" <[EMAIL PROTECTED]>
> Date: Tue, 15 Jan 2008 23:41:45 +0800
> Subject: Re: [belajar-access] MENJEGAL user menggunakan Shift
>
> gunakan allowbypasskey to false
> jadi user tidak bisa menggunakan shift key nya lagi untuk memotong
> startup2 yang sudah kita pasang
> allowby pass key dapat ditemukan di modul VBA
> Santoso Sugiarto
> [HP] 081 933 109 175
> [Email] [EMAIL PROTECTED]
> [YahooMessenger] [EMAIL PROTECTED]
>
> ----- Original Message -----
> *From:* eko purnomo eko <[EMAIL PROTECTED]>
> *To:* [email protected]
> *Sent:* Monday, January 14, 2008 12:29 PM
> *Subject:* [belajar-access] MENJEGAL user menggunakan Shift
>
> para pendekar Access, mo tanya cara bikin kode/module/fungsi/macro apa
> aja lah ...! biar pengguna ga bisa jegal pake Shift gimana ???? yg pake VBA
> yaa..?
>
> comenk
> lampung
> ------------------------------
> Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it
> now.<http://us.rd.yahoo.com/evt=51733/*http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ>
>
>
> ------------------------------
> Never miss a thing. Make Yahoo your
> homepage.<http://us.rd.yahoo.com/evt=51438/*http://www.yahoo.com/r/hs>
>
>
