How to pass VBE password from a form

Hello
A have a form which need transfert Form and module import from an another database
The user don't know VBE pwd
I have this code which do it
But sometimes, it don't work good and the user get a msgbox asking password and after get the windows of VBE propriety
Otherwise it work good and the user see nothing
I put the code after
If you have remarks Thanks

Sub Autorise
    Dim proj As Object
    Dim data As String
    If Me.On_error Then On Error GoTo ErreurVB
    
    Set proj = Application.VBE.activeVBProject
'    DoEvents                                      ' i don't know if useful ?
    data = "xxxxx{TAB}~~"                   ' xxxxx is the password
    Sleep 100
    SendKeys data, True   '  pwd + Tab + 2 return to close propriety windows
    Application.VBE.CommandBars(1).FindControl(msoControlButton, id:=2578, Visible:=True, recursive:=True).Execute
 
    Exit Sub

Select all Open in new window