Instruction VBS pour écrire un mot de passe pour exécuter une macro Excel

Version imprimable

Bonjour la communauté!
J'utilise un VBS pour ouvrir (sans affichage) un fichier Excel et exécuter une macro. Voici mon script VBS :
Code:

1 2 3 4 5 6 7 8 9 Dim oXL Set oXL = WScript.CreateObject("EXCEL.application") oXL.Visible = False set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\MacroAuto.xlsm") oxl.run "MailAuto" Wk.save wk.close oxl.quit Set oXL = Nothing
Cependant, la macro dans mon fichier Excel s'exécute avec saisie d'un mot de passe dans un InputBox. Voici mon code dans Excel :
Code:

1 2 3 4 5 6 7 Sub MailAuto() Dim sPass As String sPass = InputBox("Veuillez saisir le mot de passe") If sPass = "mdp" Then Call Envoi_mail End If End Sub
Ma problématique : quelle instruction dois-je écrire dans mon VBS pour saisir automatiquement le mot de passe "mdp" dans l'InputBox afin que ma macro s'exécute sans ouvrir Excel?

Je vous remercie de votre aide.
Cordialement

15/03/2015, 08h28
SfJ5Rpw8

Bonjour,

modifie ta macro excel pour supprimer cette demande de mot de passe inutile ..
15/03/2015, 10h37
janigrel

Bonjour,

Merci bbil, mais je préfère avoir la main sur ma macro par un mot de passe, car 25 collaborateurs ont accès à mon fichier Excel (en mode partagé), et j'ai besoin que les nombreuses macros de ce fichier ne soient pas utilisées malencontreusement.

Quelqu'un saurait-il m'aider? VBS peut-il écrire ce mot de passe dans l'inputbox?

Merci de votre aide.
Cordialement.
Janigrel

:salut:
Dans l'inputBox le mot de passe est toujours en clair.
Testez ce petit bricolage :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Explicit
'Variables globales
Dim bPasswordBoxWait,bPasswordBoxOkay,sPass,Password
sPass = "mdp"
Password = PasswordBox("Veuillez taper votre mot de passe pour l'envoi du mail",False)' Taille réduite
If Password = sPass Then
    MsgBox "Mot de passe est correct",VbInformation,"Mot de passe est correct"
    'Call Envoi_mail
Else
    MsgBox "Mot de passe est incorrect",VbCritical,"Mot de passe est incorrect"
End If
'**********************************************************************************************************************************************************
Function PasswordBox(sTitle,FullScreen) 
    Dim oIE
    set oIE = CreateObject("InternetExplorer.Application") 
    With oIE
        If     FullScreen = True Then 
            .FullScreen = True
        Else 
            .FullScreen = False
        End if    
        .ToolBar   = False : .RegisterAsDropTarget = False 
        .StatusBar = False : .Navigate("about:blank") 
        .Resizable = False
        While .Busy : WScript.Sleep 100 : Wend 
            With .document 
                .Title = "Veuillez taper votre mot de passe * * * * * * * * * * * * *"
                With .ParentWindow 
                    .resizeto 450,120 
                    .moveto .screen.width/2-200, .screen.height/2-50 
                End With 
                .WriteLn("<html><title>Veuillez taper votre mot de passe * * * * * * * * * * * * * * * *</title><body text=white bgColor=DarkOrange><center>") 
                .WriteLn(sTitle) 
                .WriteLn("<input type=password value=mdp id=pass>" & _ 
                "<input type=Submit id=but0 value=Envoyer>") 
                .WriteLn("</center></body></html>") 
                With .ParentWindow.document.body 
                    .scroll="no" 
                    .style.borderStyle = "outset" 
                    .style.borderWidth = "1px" 
                End With 
                .all.but0.onclick = getref("PasswordBox_Submit") 
                .all.pass.focus 
                oIE.Visible = True 
                bPasswordBoxOkay = False : bPasswordBoxWait = True 
                On Error Resume Next 
                While bPasswordBoxWait 
                    WScript.Sleep 100 
                    if oIE.Visible Then bPasswordBoxWait = bPasswordBoxWait 
                    if Err Then bPasswordBoxWait = False 
                Wend 
                PasswordBox = .all.pass.value 
            End With ' document 
            .Visible = False
            .Quit 
        End With   ' IE 
    End Function 
'***********************************************************************************************************************************************************
    Sub PasswordBox_Submit() 
        bPasswordBoxWait = False 
    End Sub
'***********************************************************************************************************************************************************

15/03/2015, 21h18
janigrel

1 pièce(s) jointe(s)

Bonjour hackookfr et merci pour ton message.

Je ne comprends pas très bien ton code. Mais peut-être dois-je être plus clair dans ma demande :
Via le BlocNote, j'ai créé un VBS de ce type :

Pièce jointe 171767

qui va ouvrir un fichier Excel et exécuter ma macro qui elle, s'ouvre avec un mot de passe.
Lorsque j'exécute le vbs, l'inputbox demandant le mot de passe s'affiche à l'écran.
Je souhaiterais simplement trouver une instruction VBS qui va cliquer dans l'impubox et écrire le mot de passe pour que la macro du fichier Excel s'exécute toute seule.

Peux tu m'aider?
Cordialement.