[VBA]Lire dans un fichier Excel fermé et protèger

Marsh Posté le 22-10-2004 à 08:39:52

Bonjour à tous !

J'ai un gros souci dans un code !
Je souhaiterai, à partir d'une macro via Excel,lire,ecrire et enregistrer dans un fichier Excel fermé et protégé.
Est ce possible ?
J'ai trouvé un code qui me permet de le lire un fichier fermé n'etant pas protèger. Mais des que je protège mon fichier basta, n'arrive pas :
VOici le code qui me permet le lire :

Code :

Option Explicit :
Dim P As String, F As String, S As String, A As String
Dim Arg As String
Sub Liredonnees()
P = "C:/Monrepertoire"
F = "monfichier.xls"
S = "DONNEES"
A = "A1"
Sheets(1).Range("A1" ).Value = GetValue(P, F, S, A)
End Sub
Private Function GetValue(Path, File, Sheet, Ref)
If Right(Path, 1) <> "\" Then Path = Path & "\"
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref).Range("A1" ).Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(Arg)
End Function

Doc pour resumer :
-lire un fichier fermé non proteger ki
-lire un fichier fermé protégé : pas oki
-lire, ecrire et enregistré un fichier fermé protèger : "même pas en rêve" :pt1cable: :??:

Qui aurrait un peu temps pour m'aider sur ce problème !
SVP Help !

:hello: Sir