'Allgemeine Deklaration
Private Declare Function SystemParametersInfo Lib "user32" _
  Alias "SystemParametersInfoA" (ByVal uAction As Long, _
  ByVal uParam As Long, lpvParam As Any, _
  ByVal fuWinIni As Long) As Long
 
Private Const SPI_SETSCREENSAVEACTIVE = 97
 
'Allgemein DisableCAD (CAD=Ctrl+Alt+Del)
Sub DisableCAD(bState As Boolean)
 
  'Diese Prozedur deaktiviert/aktiviert Strg+Alt+Entf
 
  Dim x As Long
  Dim lngWas As Long
  x = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
    bState, lngWas, 0)
End Sub
 
'Aufruf Tastenkombination deaktivieren
DisableCAD True
 
'Aufruf Tastenkombination aktivieren
DisableCAD False

Man kann nie genug wissen!