Problème macro déprotection

[f1f00]

Salut a tous j'ai un petit problème au niveau d'une macro me servant à déprotéger des classeurs. Un message d'erreur me dit que le mdp n'est pas correct alors qu'il l'est en fait. Pourriez vous m'aider voici le code.

Option Explicit

Sub UnProtectMany()
Dim vaFileName As Variant
Dim MyDir$
MyDir = Sheets("iZiCompta").Range("C21").Text
'the location of the workbooks

With Application.FileSearch
    .NewSearch
    .LookIn = MyDir
    'the directory to search in
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute > 0 Then
    'workbooks found
        For Each vaFileName In .FoundFiles
        'loop through each found workbook
            Unprotect vaFileName
            'pass workbook fullname to unprotect routine
        Next
    Else
        MsgBox "Aucun fichier Excel trouvé."
    End If
End With

End Sub

Sub Unprotect(wbkName)
Dim ws As Worksheet

With Application
    .ScreenUpdating = False
    .AskToUpdateLinks = False
End With

Workbooks.Open Filename:=wbkName, IgnoreReadOnlyRecommended:=True

With ActiveWorkbook
    .RunAutoMacros xlAutoOpen
    .Unprotect Password:="otersav"
    For Each ws In .Worksheets
        ws.Unprotect Password:="otersav"
    Next ws
    .Close True
End With

End Sub

 

[f1f00]

Re : Problème macro déprotection

Dites moi si vous avez besoin de plus de précisions

 

[f1f00]

Re : Problème macro déprotection

Personne ne s'y connait en déprotection?

 

[Papou-net]

Re : Problème macro déprotection

Bonjour f1f00,

Sans approfondir ton code, un premier survol montre que tu utilises un mot-clé (UnProtect) comme nom d'une Sub :

Sub Unprotect(wbkName)

L'erreur vient peut-être de là. Essaies de changer le nom de cette procédure.

Espérant t'avoir aidé.

Cordialement.

 

[f1f00]

Re : Problème macro déprotection

J'ai changé et j'ai toujours le même problème

Option Explicit

Sub UnProtectMany()
Dim vaFileName As Variant
Dim MyDir$
MyDir = Sheets("Boutons").Range("B18").Text
'the location of the workbooks

With Application.FileSearch
    .NewSearch
    .LookIn = MyDir
    'the directory to search in
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute > 0 Then
    'workbooks found
        For Each vaFileName In .FoundFiles
        'loop through each found workbook
            WkUnprotect vaFileName
            'pass workbook fullname to unprotect routine
        Next
    Else
        MsgBox "Aucun fichier Excel trouvé."
    End If
End With

End Sub

Sub WkUnprotect(wbkName)
Dim ws As Worksheet

With Application
    .ScreenUpdating = False
    .AskToUpdateLinks = False
End With

Workbooks.Open Filename:=wbkName, IgnoreReadOnlyRecommended:=True

With ActiveWorkbook
    .RunAutoMacros xlAutoOpen
    .Unprotect Password:="otersav"
    For Each ws In .Worksheets
        ws.Unprotect Password:="otersav"
    Next ws
    .Close True
End With

End Sub

 

[vbacrumble]

Re : Problème macro déprotection

Bonsoir

f1f00:
Pourquoi ne pas-être resté sur le même fil ?

https://www.excel-downloads.com/threads/protection-de-plusieurs-feuilles.116114/

PS: le code été écrit par un MVP Excel

 

[f1f00]

Re : Problème macro déprotection

Je pensais que les gens s'y retrouveraient mieux avec un sujet clair non?