title: Disable SpecialKeys
body: <p>Afternoon</p>
  
  <p>I am looking to disable special keys such as CTRL+Break, F11 etc.</p>
  
  <p>The code below is in a macros which is my AutoExec - It doesn't debug but also doesn't seem to work at all:</p>
  
  <p>Any help is appreciated</p>
  
  <p><strong>Code:</strong> </p>
  
  <pre><code>Dim prp As DAO.Property
  Set db = CurrentDb()
  Select Case X
      Case 1
      Set prp = db.CreateProperty("StartUpShowDBWindow", 1, 1)
          db.Properties.Append prp
      Case 2
      Set prp = db.CreateProperty("AllowBreakIntoCode", 1, 1)
          db.Properties.Append prp
      Case 3
      Set prp = db.CreateProperty("AllowSpecialKeys", 1, 1)
          db.Properties.Append prp
      Case 4
      Set prp = db.CreateProperty("AllowToolbarChanges", 1, 1)
          db.Properties.Append prp
      Case 5
      Set prp = db.CreateProperty("AllowFullMenus", 1, 1)
          db.Properties.Append prp
      Case 6
      Set prp = db.CreateProperty("AllowBuiltInToolbars", 1, 1)
          db.Properties.Append prp
      Case 7
      Set prp = db.CreateProperty("AllowByPassKey", 1, 1)
          db.Properties.Append prp
      Case Else
      'do nothing
  </code></pre>