Hiç bir şekilde Access Ortamından çıkılamasın

Bir form düşünün ekranın tamamını kaplasın. Bu form açıldığında ctr, alt, windows tuşu, başlat düğmesi ctr+alt+del işe yaramasın yanı formun üzerine koyduğum kapat tuşundan başka hiç bir şekie Access ortamından çıkamasın

sayın blacksir kardeşim buradaki çıkmamanın amacı nedir,niye çıkılmasın,peki nasıl çıkacağız hep oradamı kalacağız ,makül bir cevap yazarmısın

Bunu Access ile yapmak çok yerinde olmayacaktır. WinXPManager programı ile yapabilirsiniz. Windows tuşu, Ctrl + Alt + Del kombinasyonunu iptal edersiniz. Ctrl ve Alt tuşları tek başına zaten bir işe yaramazlar.

BU KOD ara çubuğunu kaldıracak
modül
Option Explicit
Private TaskBarhWnd As Long

Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Public Sub HideTaskBar()
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End Sub
Public Sub ShowTaskBar()
If TaskBarhWnd <> 0 Then
Call SetWindowPos(TaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End If
End Sub


buda formun açılışına

HideTaskBar

buda formun kapanışına


ShowTaskBar

bu sana örnek olsun
kardeş bu istediğin olayların hepsini yapan kodlar kod deposunda var
ara çubuğu gizleme ,alt+f4 kitle, şift kitleme, alt+tab kitle ,tasarıma geçişi engelle hatta ve hatta accessin kesinlikle kapatılmasını engelleme ve ctrl+dell kitleme yani istediğin her şey var sadece biraz uğraş gözünü seveyim

Kodla bütün tuşları kilitledim sadece win tuşunu etkisiz yapamadım. win tuşunu kitleyen kod varmı Amacımı sordu bir arkadaş amacım Güvenliği artırmak

Bahsetmiş olduğum WinXPManager ile win tuşunu kolayca iptal edebilirsiniz.