Encrypt/Decrypt File
acCmdEncryptDecryptDatabase
This example opens the Encrypt/Decrypt file selection dialog box.
'***************** Code Start *******************
Code by Terry Wickenden
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 ********************