'*********************************************************
' Function SetVbaPassword(
'           bstrDbName As String,
'           bstrConnect As String,
'           bstrPasswd As String) As Boolean
'
' Método que pone una contraseña al código de una base de
' datos. No sirve para la base de datos actual.
' Devuelve True si la operación se realizó con
' éxito
'
' Argumentos
'   bstrDbName: Ruta y nombre de la base de datos
'   bstrConnect - Ni idea (?¿?)
'   bstrPasswd - Contraseña
'
Sub wzSetVbaPassword()
Dim wzDBName As String
Dim wzConnect As String
Dim wzPasswd As String

    WizHook.Key = 51488399
    
    wzDBName = "c:\base_datos.mdb"
    wzConnect = ""
    wzPasswd = "contraseña"
    
    Debug.Print WizHook.SetVbaPassword( _
            wzDBName, wzConnect, wzPasswd)
  
End Sub
'*********************************************************