MS ACCESS MAILING LIST: Re: [belajar-access] Security ms.access 2007

Dear Pak Tio, untuk Access 97 s.d 2010 sama saja, karena semua sama2 berbasis JET.

Terdapat dua sistem pengaturan Shift Key di dalam Microsoft Access Database (ACCDB/ACCDE/MDB/MDE) yang dapat disetting, yaitu Disable Shift Key dan Enable Shift Key. Masing-masing properties Shift Key tersebut dibagi kembali menjadi dua, yakni setting properties Shift Key untuk file internal (CurrentDB) dan setting properties Shift Key untuk file external (yakni database selain yang sedang dibuka saat itu).

Shift Key merupakan kunci utama untuk masuk ke database window Access. Kendatipun demikian, sesungguhnya pengaturan Shift Key ini tidak akan berpengaruh banyak kepada programmer ataupun user yang sudah mengetahui kuncinya atau tata cara mengaktifkan dan menonaktifkan Shift Key ini. Bahkan, file EXE tertentu yang sudah dicompile pun, dapat di decompile kembali oleh para programmer yang sudah mengetahui caranya. Kendatipun demikian, untuk kepentingan belajar, marilah kita bahas satu persatu pengaturan Shift Key ini.

Sebelum menjalankan fungsi-fungsi di bawah ini, pastikan setting startup untuk "Display Database Window" pada file tersebut harus sudah di Off kan. Harap dibackup dahulu file original yang Anda gunakan sebagai latihan, dikhawatirkan saat menjalankan beberapa fungsi dibawah ini terjadi error yang menyebabkan kerusakan pada file Anda. Sebelumnya harap ditambahkan DAO di References VBA nya.

1. DISABLE SHIFT KEY UNTUK FILE INTERNAL:

Public Function DisableShiftKeyInternal()
On Error GoTo ShiftError
Dim db As DAO.Database
Dim ShiftKey As DAO.Property
Set db = CurrentDb()
db.Properties("AllowByPassKey") = False
GoTo nol
ShiftError:
Set ShiftKey = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append ShiftKey
nol:
db.Close
Set db = Nothing
End Function

2. DISABLE SHIFT KEY UNTUK FILE EXTERNAL:

Public Function DisableShiftKeyExternal(LokasiFileLengkap As String)
'File MDB dibawah ini boleh diganti dengan MDE, ACCDB atau ACCDE.
'LokasiFileLengkap adalah lokasi file beriut dengan namanya
'Misal: "C:\MyDB.MDB"
On Error GoTo ShiftError
Dim db As DAO.Database
Dim ShiftKey As DAO.Property
Set db = OpenDatabase(LokasiFileLengkap, False, False)
db.Properties("AllowByPassKey") = False
GoTo nol
ShiftError:
Set ShiftKey = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append ShiftKey
nol:
db.Close
Set db = Nothing
End Function

3. ENABLE SHIFT KEY UNTUK FILE INTERNAL:

Public Function EnableShiftKeyInternal()
On Error GoTo ShiftError
Dim db As DAO.Database
Dim ShiftKey As DAO.Property
Set db = CurrentDb()
db.Properties("AllowByPassKey") = True
GoTo nol
ShiftError:
Set ShiftKey = db.CreateProperty("AllowByPassKey", dbBoolean, True)
db.Properties.Append ShiftKey
nol:
db.Close
Set db = Nothing
End Function

4. ENABLE SHIFT KEY UNTUK FILE EXTERNAL:

'File MDB dibawah ini boleh diganti dengan MDE, ACCDB atau ACCDE.
Public Function EnableShiftKeyExternal(LokasiFileLengkap As String)
'LokasiFileLengkap adalah lokasi file beriut dengan namanya
'Misal: "C:\MyDB.MDB"
On Error GoTo ShiftError
Dim db As DAO.Database
Dim ShiftKey As DAO.Property
Set db = OpenDatabase(LokasiFileLengkap, False, False)
db.Properties("AllowByPassKey") = True
GoTo nol
ShiftError:
Set ShiftKey = db.CreateProperty("AllowByPassKey", dbBoolean, True)
db.Properties.Append ShiftKey
nol:
db.Close
Set db = Nothing
End Function

TATA CARA PENGGUNAAN:

Cukup menjalankan salah satu dari fungsi-fungsi diatas di immediate window VBA, misal:

?DisableShiftKeyInternal()
Lalu tekan Enter.

?DisableShiftKeyExternal("C:\MyDB.mdb")
Lalu tekan Enter.

?EnableShiftKeyInternal()
Lalu tekan Enter.

?EnableShiftKeyExternal("C:\MyDB.mdb")
Lalu tekan Enter.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com

----- Original Message -----

From: tio.adjie@ptssb.co.id

To: belajar-access@yahoogroups.com

Cc: belajar-access@yahoogroups.com

Sent: Monday, October 22, 2012 10:26 AM

Subject: RE: [belajar-access] Security ms.access 2007

Mas Sumiyanto, bagaimana cara mematikan tombol Shift waktu membuka Database versi 2007 ? Apakah dengan cara-cara di bawah bisa mematikan tombol Shift tsb. ? Kalau iya, apakah cara-cara di bawah ini bisa di pakai juga untuk versi 2010 ?

Thanks and regards,
Tio

sumiyanto surabaya <sumiyanto@live.com>
Sent by: belajar-access@yahoogroups.com
10/22/2012 07:41 AM
Please respond to belajar-access

To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
cc:
Subject: RE: [belajar-access] Security ms.access 2007

Jika aplikasi masih masih terus didevelop, sementara bisa dilakukan sbb:
1. Nge lock db agar client tdk bs buka2 table, hidden table kemudian non aktifkan navigation pane, non aktifkan show hidden object
2. memberikan password pada vba, ctrl+G>tools>nama project properties> PILIH tab protection>lock project for viewing dan berikan password. atau sekalian di convert ke accde caranya http://cakyanto.wordpress.com/2011/11/29/membuat-access-developer-extensions/

salam,
sumiyanto surabaya

> To: belajar-access@yahoogroups.com
> From: mujiariyanti@yahoo.com
> Date: Thu, 18 Oct 2012 13:54:59 +0000
> Subject: [belajar-access] Security ms.access 2007
>
> Dear. Suhu dan rekan
> Kalau mau nge lock db agar client tdk bs buka2 table n vba gimana ya?
> Minta bantu pencerahanya, ada settingan tambhn atau syntax tambahan?
> Terima kasih
> Salamm free-debug,he
>
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
> <*> To visit your group on the web, go to:
> http://groups.yahoo.com/group/belajar-access/
>
> <*> Your email settings:
> Individual Email | Traditional
>
> <*> To change settings online go to:
> http://groups.yahoo.com/group/belajar-access/join
> (Yahoo! ID required)
>
> <*> To change settings via email:
> belajar-access-digest@yahoogroups.com
> belajar-access-fullfeatured@yahoogroups.com
>
> <*> To unsubscribe from this group, send an email to:
> belajar-access-unsubscribe@yahoogroups.com
>
> <*> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
>