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

**janigrel** · 14/03/2015, 13h51

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 15/03/2015, 08h28

Bonjour,

modifie ta macro excel pour supprimer cette demande de mot de passe inutile ..

**janigrel** · 15/03/2015, 10h37

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

**hackoofr** · 15/03/2015, 12h04

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'***********************************************************************************************************************************************************

**janigrel** · 15/03/2015, 21h18

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 :

Nom : vbs.JPG
Affichages : 1526
Taille : 43,5 Ko

Nom : vbs.JPG
Affichages : 1526
Taille : 43,5 Ko

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.

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

VBScript

Discussions similaires

Partager

Partager