Bonjour à tous,

J'utilise Excel 2000, le classeur Excel est stocké sur un serveur de fichiers sous Small Business Serveur 2003.

J’ai récupéré le code suivant sur Internet pour déverrouiller le VBAProjet du classeur actif.

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
Sub TestUnprotect()
    UnprotectVBProject ThisWorkbook, "zaza"
End Sub
 
Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)
  Dim vbProj As Object
 
  Set vbProj = WB.VBProject
 
  'ne peut pas le faire si déjà débloqué !
  If vbProj.Protection <> 1 Then Exit Sub
 
  Set Application.VBE.ActiveVBProject = vbProj
 
  'employez maintenant SendKeys pour citer le mot de passe de projet
  SendKeys Password & "~~"
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
End Sub
Le problème que je rencontre :
- si je lance la macro depuis un poste XP çà fonctionne parfaitement.
- par contre depuis un poste sous Vista le message d’erreur suivant est renvoyé « Erreur d’exécution 70 – Permission refusée »

Je précise que les 2 utilisateurs ont les autorisations pour un contrôle total.

Malgré mes recherches sur Internet je n’ai pas trouvé de solution.

Pourriez-vous m’aider SVP, merci d’avance