Encrypt/Decrypt File

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