This example opens the Encrypt/Decrypt file selection dialog box.
'***************** Code Start ******************* Sub CryptFile() On Error GoTo errCryptFile RunCommand acCmdEncryptDecryptDatabase Exit Sub errCryptFile: Select Case Err Case 2501 'Cancel Button selected in the encrypt database dialog Case Else MsgBox Err.Number & ":- " & vbCrLf & Err.Description End Select End Sub '****************** Code End ********************
Return to Example List