Discussion :

[Teppic]

Bon bon bon, j'ai du nouveau.

Et c'est n'importe quoi, je comprends pas tout... Quand j'exécute ma fonction d'unlock seule, sans faire de modif après, elle fonctionne (lentement et je perds pendant quelques secondes le contrôle de la souris mais bon, passons).

Par contre, après, j'ai à nouveau un souci avec le nom de ma feuille, comme au début de ce post !!

Voilà ce que je fais :

Code :

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

1
2
3
 
Workbooks(WRK_FN).Activate
UnprotectVBProject Workbooks(WRK_FN), "97654321"

Ma fonction Unprotect :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub UnprotectVBProject(wb As Workbook, ByVal Password As String)
  Dim vbProj As Object
 
  Set vbProj = wb.VBProject
 
   If vbProj.Protection <> 1 Then Exit Sub
 
  Set Application.VBE.ActiveVBProject = vbProj
 
   SendKeys Password & "~~" & "{ESC}"
   Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
 
End Sub

Et le code qui suit l'appel à la fonction :

Code :

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

1
2
3
4
 
With Workbooks(Range("H12").Text).VBProject.VBComponents("Sheet2").CodeModule
       .ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select"
    End With

Et je me ramasse une erreur 9 "l'indice n'appartient pas à la sélection", plus une box qui me réclame (encore !) mon mot de passe. C'est à n'y rien comprendre, puisque la fonction Unprotect fonctionne seule...

[ouskel'n'or]

Déjà, je ne vois pas à quoi te sert cette ligne

Code :

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

Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

"chez moi" elle affiche le menu "Propriétés de VBAProject"
Pour moi, elle ne sert à rien (et, avec ou sans, ça ne change rien au niveau de la protection)
Pour ton pb. Quand tu mets ces lignes

With Workbooks(Range("H12").Text).VBProject.VBComponents("Sheet2").CodeModule
.ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select"
End With

Ton classeur est-il ouvert ? S'il ne l'est pas, ton message d'erreur a raison, t'as une erreur
S'il est ouvert, pour ces mêmes lignes, essaie en créant une instance de ton book

Code :

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

1
2
3
4
5
Dim CL1 as workbook
Set CL1 = Workbooks(Range("H12").Text)
With CL1.VBProject.VBComponents("Sheet2").CodeModule
       .ReplaceLine 16, "Worksheets(""BCS Information"").Range(""A1:CC6000"").Select"
End With

A... tout... hasard...
Quand nous joins-tu ton fichier ?
A+

[Teppic]

J'ai retiré la ligne en question, c'est déjà ça, merci.

Ensuite, j'ai fait quelques modifs et j'ai à nouveau une erreur qui me dit que mon projet doit être deverrouillé pour effectué ça :

Code :

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

1
2
 
With CL1.VBProject.VBComponents("Sheet2").CodeModule

Je joins mon fichier de correction pack( l'autre est trop gros (14 Mo)), qui de toute façon est sensé fonctionner sur n'importe quel classeur, pour la partie deverrouillage du code.

Merci