• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Check If an MS Excel or Acccess File is password protected

Check If an MS Excel or Acccess File is password protected

Check If an MS Excel or Acccess File is password protected

API Declarations


Use:
1)start new project
2)add a command button and a text box
3)in command button code enter
msgbox(Password_Check(Text1))
4)run program, type in file location in textbox and hit command button. It'll com eup with a msgbox with a true or false if the file is password protected.

Note: this will only work on xls or mdb files.




Rate Check If an MS Excel or Acccess File is password protected

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim db As DAO.Database

If Right(Path, 3) = "mdb" Then
    On Error GoTo errorline
    Set db = OpenDatabase(Path)
    Password_Check = "False"
    Exit Function
ElseIf Right(Path, 3) = "xls" Then
    On Error GoTo errorline
    Set db = OpenDatabase(Path, True, False, "Excel 5.0")
    Password_Check = "False"
    Exit Function
Else
    Password_Check = "0"
    Exit Function
End If
errorline:
    
    Password_Check = "True"
    Exit Fu