macro verrouillage déverouillage

[caline]

re bonsoir à tous

je change de fil carcela n'a plus rien avoir avec le précédent

j'ai besoin de vos explications
j'ai trouvé la macro de
Didier_mDF
Sub Protection(Verrouille As Boolean)
Dim F As Worksheet
For Each F In Worksheets
If Verrouille Then
F.Protect Password:='TonMotDePasse'
Else
F.Unprotect Password:='TonMotDePasse'
End If
Next F
End Sub


Pour protéger les feuilles, lancer :

Sub VerrouilleFeuilles()
Protection True
End Sub

Pour déprotéger les feuilles, lancer :

Sub DeverrouilleFeuilles()
Protection False
End Sub


j'ai installé cela dans le thisworkbook ( je suppose)

mais quand je lance la macro il m'affiche:erreur de compilation sub ou fonction non définie
ou erreur de syntaxe

merci de m'informer de ce qu'il convient de faire

Caline

Caline

 

[Dan]

Re : macro verrouillage déverouillage

Bonsoir,

non tu dois les placer dans un module et pas dans THISWORKBOOK.

Crée donc un module puis place les là.

A te lire

 

[CBernardT]

Re : macro verrouillage déverouillage

Bonsoir Caline,

Sans trahir MDF, que je salue, il te faut mettre ce code dans un module standard.

1- Si dans l'éxécution d'une macro, tu dois déprotéger les feuilles de ton classeur, il te suffit d'ajoute "DeverrouilleFeuilles" dans le code.

2- Si dans l'éxécution d'une macro, tu dois reprotéger les feuilles de ton classeur, il te suffit d'ajoute "VerrouilleFeuilles" dans le code.

Dans le code en dessous, le mot de passe est "***", trois étoiles.

Sub Protection(Verrouille As Boolean)
Dim F As Worksheet
For Each F In Worksheets
If Verrouille Then
F.Protect Password:="***"
Else
F.Unprotect Password:="***"
End If
Next F
End Sub

Sub VerrouilleFeuilles() 'Pour protéger les feuilles
Protection True
End Sub

Sub DeverrouilleFeuilles() 'Pour déprotéger les feuilles
Protection False
End Sub

Cordialement

Bernard

Oupss, bonsoir Dan, encore doublé...

 

[caline]

Re : macro verrouillage déverouillage

merci a vous deux

ok cela fonctionne mais j'ai oublié quelque chose car il ne me demande aucun mot de passe ( ce qui est gênant ) j'ai du ou je n'ai pas du faire mais quoi?

Caline

 

[caline]

Re : macro verrouillage déverouillage

re bonsoir

c'est ok j'ai trouvé

bonne nuit
Caline

 

[ERIC S]

Re : macro verrouillage déverouillage

Bonjour

si tu protèges tes feuilles avec l'option

userinterfaceonly:=true, elles seront accessibles par macro sans déverrouiller