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

Lire dans un fichier Excel fermé et protèger [VBA] - VB/VBA/VBS - Programmation

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 :
  1. Option Explicit :
  2.    Dim P As String, F As String, S As String, A As String
  3.    Dim Arg As String
  4.    Sub Liredonnees()
  5.      P = "C:/Monrepertoire"
  6.      F = "monfichier.xls"
  7.      S = "DONNEES"
  8.      A = "A1"
  9.     Sheets(1).Range("A1" ).Value = GetValue(P, F, S, A)
  10.   End Sub
  11.   Private Function GetValue(Path, File, Sheet, Ref)   
  12.     If Right(Path, 1) <> "\" Then Path = Path & "\"
  13.     If Dir(Path & File) = "" Then
  14.         GetValue = "File Not Found"
  15.         Exit Function
  16.     End If
  17.     Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref).Range("A1" ).Address(, , xlR1C1)
  18.     GetValue = ExecuteExcel4Macro(Arg)   
  19.   End Function


 
Doc pour resumer :
-lire un fichier fermé non proteger :oki
-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


Message édité par sirshogun le 22-10-2004 à 08:41:07
Reply

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

Reply

Marsh Posté le 22-10-2004 à 10:10:06    

Vraimant personne pour m'aider !!  :(  :(  
SVp un p'tit effort c serait vraimant sympa.....
 
 
Sir

Reply

Marsh Posté le 22-10-2004 à 17:04:48    

euh ... sans avoir le mot de passe , j'y croit pas trop ....
 
ou alors avec ca : ActiveSheet.Unprotect


Message édité par Profil supprimé le 22-10-2004 à 17:06:24
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed