Mot de passe demandé en quittant application

[Leskwal]

Bonsoir à tous

j'ai développé une petite application qui contient du code protégé.

Un problème apparait sur certain PC.

Étapes :

1 - Je lance l'application
2- J'active les macro
3- J'utilise l'application
4- Je quitte l'appli

Il ne se passe rien dans "80 %" des cas, cependant sur certains PC en quittant l'appli un message apparait avec l'intitulé suivant

VBAProject Mot de passe

où le mot de passe protégeant le code m'est demandé. En tapant le bon mot de passe tout se ferme correctement, sinon en cliquant une dizaine de fois sur "annuler", le message finit par disparaitre.

Savez-vous d'où provient cette erreur.

D'avance un grand MERCI.

Cordialement

Pascal


NB : Je ne peux mettre en fichier joint ledit fichier (contient des données RH)

 

[Staple1600]

Re : Mot de passe demandé en quittant application

Bonsoir

NB : Je ne peux mettre en fichier joint ledit fichier (contient des données RH)

Et alors ?


Il suffit de créer un fichier similaire mais sans les données RH 🙄
(et d'y coller ton code VBA)

Et là tu pourras poster un fichier exemple 😉

 

[Leskwal]

Re : Mot de passe demandé en quittant application

😀
Ce serait si simple, je pense que j'y aurais pensé.
Les données auxquelles je fais allusion sont inscrites DANS le code.
Les enlever voir les remplacer revient à créer un tout nouveau fichier et la franchement ... pas très motivé 😀😱

Je voulais donc savoir si quelqu'un avait rencontré mon type de problème et avait réussit à le résoudre.

Cordialement

Pascal

 

[Staple1600]

Re : Mot de passe demandé en quittant application

Re



Pourtant cela peut être fait très rapidement 🙄

Tu copies ton code "sensible" dans une feuille

Puis tu lances une macro de ce type

et le tour est joué

Function melange(ByRef s_tr$) As String
Dim temp$
Dim i As Long, a As Long
For i = 1 To Len(s_tr)
    a = Int(Rnd() * Len(s_tr)) + 1: temp = Mid(s_tr, i, 1)
    Mid(s_tr, i, 1) = Mid(s_tr, a, 1): Mid(s_tr, a, 1) = temp
Next i
melange = s_tr
End Function

Sub Je_Melange_Mon_CODEVBA()
Dim i&
For i = 1 To 17231
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 2) = melange(Cells(i, 1).Text)
End If
Next
End Sub

 

[Leskwal]

Re : Mot de passe demandé en quittant application

Merci, je vais voir ça.

Cordialement

Pascal

 

[Leskwal]

Re : Mot de passe demandé en quittant application

Merci beaucoup, je vais essayer ça.

Cordialement

Pascal

 

[damsmut]

Re : Mot de passe demandé en quittant application

Bonjour,

j'ai le même problème... j'ai trouvé d'où cela vient... mais n'ai pas trouvé de solution pour résoudre le problème...

En fait dans le programme j'utilise à un moment une connexion ADO vers mon fichier :

    Dim Conn As ADODB.Connection
    'Dim rsT As ADODB.Recordset
    Dim Fichier As String, Direction As String, rSQL As String


    'Données de ce fichier
    Direction = ThisWorkbook.Path
    Fichier = ThisWorkbook.Name


    'Ouverture de la connection
    Set Conn = New ADODB.Connection
    With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Direction & "\" & Fichier & _
    ";Extended Properties=Excel 8.0;"
    .Open
    End With
                  
    'Déclaration de la requête SQL
    rSQL = "SELECT * FROM [Commandes$]"
    
    
    'Execution de la recherche SQL
    Set Rst = New ADODB.Recordset
    With Rst
    .ActiveConnection = Conn
    .Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
    End With

.. et à la fin je ferme bien mon recordset

    'Ferme la connexion
    Rst.Close
    Set Rst = Nothing

et en fait je m'aperçois qu'en fermant mon fichier (juste le fichier... pas EXCEL), lorsque je fais ALT+F11, le projet VBA est toujours ouvert !!

Des idées ?

Merci

A+

Dams'