Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des
fichiers excel d'un répertoire. Comme il y en a quelques centaines, je
voudrais automatiser l'opération.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
paul
Bonsoir Pascal,
Personnellement je ne l'ai jamais fait, mais un ami m'a dit avoir dû faire cela...Il a résolu le problème en faisant une simple macro..j'ignore si il a dû ouvrir tous les fichiers (je le suspecte) mais d'après lui cela a été fait en un temps record. Je ne vous donne pas la réponse exacte à votre question, mais 1 piste....
Bonne chance,
Paul
Bonsoir à tous,
Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des fichiers excel d'un répertoire. Comme il y en a quelques centaines, je voudrais automatiser l'opération.
Est-ce possible ?
Merci de votre aide.
Bonsoir Pascal,
Personnellement je ne l'ai jamais fait, mais un ami m'a dit avoir dû faire
cela...Il a résolu le problème en faisant une simple macro..j'ignore si il a
dû ouvrir tous les fichiers (je le suspecte) mais d'après lui cela a été fait
en un temps record. Je ne vous donne pas la réponse exacte à votre question,
mais 1 piste....
Bonne chance,
Paul
Bonsoir à tous,
Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des
fichiers excel d'un répertoire. Comme il y en a quelques centaines, je
voudrais automatiser l'opération.
Personnellement je ne l'ai jamais fait, mais un ami m'a dit avoir dû faire cela...Il a résolu le problème en faisant une simple macro..j'ignore si il a dû ouvrir tous les fichiers (je le suspecte) mais d'après lui cela a été fait en un temps record. Je ne vous donne pas la réponse exacte à votre question, mais 1 piste....
Bonne chance,
Paul
Bonsoir à tous,
Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des fichiers excel d'un répertoire. Comme il y en a quelques centaines, je voudrais automatiser l'opération.
Est-ce possible ?
Merci de votre aide.
anonymousA
bonjour,
Dans la proc suivante, tu as le mot de passe d'ouverture (ici tt ) et si tu veux un mdp en écriture (ici ff). Tu peux effacer l'un ou l'autre en respectant cependant les virgules pour tt si tu l'effaces.
With Application .DisplayAlerts = False .ScreenUpdating = False Directory1 = "C:le repertoire" With .FileSearch .NewSearch .LookIn = Directory1 .Filename = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count Workbooks.Open (.FoundFiles(i)) With ActiveWorkbook .SaveAs .Name, , "tt", "ff" .Close End With Next End With .DisplayAlerts = True .ScreenUpdating = True End With
A+
Bonsoir à tous,
Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des fichiers excel d'un répertoire. Comme il y en a quelques centaines, je voudrais automatiser l'opération.
Est-ce possible ?
Merci de votre aide.
bonjour,
Dans la proc suivante, tu as le mot de passe d'ouverture (ici tt ) et si
tu veux un mdp en écriture (ici ff). Tu peux effacer l'un ou l'autre en
respectant cependant les virgules pour tt si tu l'effaces.
With Application
.DisplayAlerts = False
.ScreenUpdating = False
Directory1 = "C:le repertoire"
With .FileSearch
.NewSearch
.LookIn = Directory1
.Filename = "*.xls"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
With ActiveWorkbook
.SaveAs .Name, , "tt", "ff"
.Close
End With
Next
End With
.DisplayAlerts = True
.ScreenUpdating = True
End With
A+
Bonsoir à tous,
Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des
fichiers excel d'un répertoire. Comme il y en a quelques centaines, je
voudrais automatiser l'opération.
Dans la proc suivante, tu as le mot de passe d'ouverture (ici tt ) et si tu veux un mdp en écriture (ici ff). Tu peux effacer l'un ou l'autre en respectant cependant les virgules pour tt si tu l'effaces.
With Application .DisplayAlerts = False .ScreenUpdating = False Directory1 = "C:le repertoire" With .FileSearch .NewSearch .LookIn = Directory1 .Filename = "*.xls" .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count Workbooks.Open (.FoundFiles(i)) With ActiveWorkbook .SaveAs .Name, , "tt", "ff" .Close End With Next End With .DisplayAlerts = True .ScreenUpdating = True End With
A+
Bonsoir à tous,
Je souhaite affecter un (même) mot de passe en lecture à l'ensemble des fichiers excel d'un répertoire. Comme il y en a quelques centaines, je voudrais automatiser l'opération.
