Déprotéger tous les classeurs ouverts

[mikael2235]

Bonjour à tous,

Je cherche à faire une macro qui me permettrait de tester sur tous les classeurs ouverts, si ceux-ci sont protégés, et de les déprotéger avec le mot de passe toto.

J'ai essayer ceci mais je rencontre des problèmes. Pour le 1er classeur ça fonctionne mais pour les autres ils ne les active pas.

Sub MacroH()

Application.DisplayAlerts = False

'
a = (Format(Now(), "n"))
b = InputBox("code secret ?")

If b = a Then
    For Each Workbook In Application.Workbooks
        Workbook.Activate
        ActiveSheet.Unprotect Password:="toto"
        MsgBox ("fichier déprotégé")
    Next
Else
    MsgBox ("Utilisation interdite !")
    Exit Sub
End If

End Sub

Merci pour votre aide.

 

[sousou]

Re : Déprotéger tous les classeurs ouverts

bonjour

Attention protection du classeur ou de la feuille active et si la feuille active il faut l'activer

 

[mikael2235]

Re : Déprotéger tous les classeurs ouverts

Moi en fait je veus déprotéger, les feuilles qui sont actives sur tous les classeurs ouverts.

Ma macro fonctionne sur le classeur actif, il me déprotège la feuille active.
Mais par contre, il ne passe pas aux classeurs suivants.

Merci

 

[sousou]

Re : Déprotéger tous les classeurs ouverts

Re
dans ta boucle tu dois préciser la feuille que tu veux déprotèger
For Each Workbook In Application.Workbooks
Workbook.Activate
sheets(titre de l'onglet).unprotect...
ActiveSheet.Unprotect Password:="toto"


MsgBox ("fichier déprotégé")
Next

 

[mikael2235]

Re : Déprotéger tous les classeurs ouverts

Le problème est que mon nom peut changer en fonction des classeurs.

Et je voudrais que la macro fonctionne pour n'importe quel classeur ouvert.

Et je ne pense pas être obligé de préciser le nom de la feuille puisque j'utilise ActiveSheet.

Il faut juste que j'arrive à changer de classeur !

 

[sousou]

Re : Déprotéger tous les classeurs ouverts

Re
Je te rappel que lorsque tu active un classeur, tu n'es pas nécessairement sur la feuille que tu veux déprotéger.

 

[mikael2235]

Re : Déprotéger tous les classeurs ouverts

Merci sousou pour le rappel !

Mais en l'occurence je ne cherche pas à activer la feuille puis la déprotéger, mais je cherche à déprotéger la feuille qui est active

Je veux que la macro ne teste QUE sur les feuilles actives.

ça ce n'est pas compliqué en soit, mais le problème est de sélectionner un autre classeur ouvert, tant qu'il y en a !

 

[Pierrot93]

Re : Déprotéger tous les classeurs ouverts

Bonjour mikael, sousou

regarde le code ci-dessous si il peut t'aider :

Option Explicit
Sub test()
Dim wb As Workbook, ws As Worksheet
For Each wb In Workbooks
    For Each ws In wb.Worksheets
        ws.Unprotect "toto"
    Next ws
Next wb
End Sub

A noter qu'en vba il est rarement nécessaire d'activer / sélectionner des objets...

bonne journée
@+

 

[sousou]

Re : Déprotéger tous les classeurs ouverts

Bonjour.
évite d'utiliser des objet excel en variable (workbook) et essai cela:

For Each Classeur In Application.Workbooks
classeur.Activate

ActiveSheet.Unprotect Password:="toto"
MsgBox ("fichier déprotégé")
Next