Bonjour,
j'ai un grand nombre de fichier (1560) classés dans un dossier pour lesquels je souhaite enlever la protection pour leur appliquer une macro (APPLI), le code de désactivation est tout simple (33)
voici le code que j'ai tapé et qui marche très bien sauf qu'il faut entrer le code à chaque fichier :
Sub TEST()
Dim Fich As String
Const chemin = "C:\Documents and Settings\XX\Bureau\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
Call APPLI
Workbooks(Fich).Close True 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
________________________
Sub APPLI()
'
' deverouille Macro
'
'
ActiveSheet.Unprotect
Sheets("FEUILLE1").Select
ActiveSheet.Unprotect
Sheets("FEUILLE2").Select
ActiveWorkbook.Save
End Sub
_____________________________________________________________
En fait comment et où dois je intégrer la réponse au mot de passe
Par avance Merci
j'ai un grand nombre de fichier (1560) classés dans un dossier pour lesquels je souhaite enlever la protection pour leur appliquer une macro (APPLI), le code de désactivation est tout simple (33)
voici le code que j'ai tapé et qui marche très bien sauf qu'il faut entrer le code à chaque fichier :
Sub TEST()
Dim Fich As String
Const chemin = "C:\Documents and Settings\XX\Bureau\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
Call APPLI
Workbooks(Fich).Close True 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
________________________
Sub APPLI()
'
' deverouille Macro
'
'
ActiveSheet.Unprotect
Sheets("FEUILLE1").Select
ActiveSheet.Unprotect
Sheets("FEUILLE2").Select
ActiveWorkbook.Save
End Sub
_____________________________________________________________
En fait comment et où dois je intégrer la réponse au mot de passe
Par avance Merci
Dernière édition: