Macro+Feuille protégée

[chris]

Bonjour à tous,
J'ai un petit souci avec un feuille excel qui est protégée par PW et dont je souhaite pouvoir librement exécuter les macros associées (2 boutons).
Est-il possible d'autoriser l'utilisation du bouton de macro et ainsi pouvoir exécuter la macro sans se faire 'jeter' ?
J'ai mis en PJ le fichier qui me pose souci.
Merci de votre aide.
Bon dimanche.
chris [file name=Essai_Macro_FeuilleProtégée_20050424090134.zip size=12145]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_Macro_FeuilleProtégée_20050424090134.zip[/file]

 

[Eric C]

Bonjour le forum
Bonjour Chris

Ton fichier n'est pas passé car son nom comporte des accents !!!

Une petite approche pour protéger et déprotéger ton fichier via un ToggleButton ou bouton à bascule dans lequel tu places ce code :

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = False Then
 ToggleButton1.Caption = 'Trop tard'
ActiveSheet.Protect Password:='123'

ElseIf ToggleButton1.Value = True Then
 ToggleButton1.Caption = 'Va y'
ActiveSheet.Unprotect Password:='123'

End If
End Sub

Bon dimanche à toutes & tous

 

[chris]

Bonjour Eric, Bonjour Le Forum,
Tu trouveras en pièce jointe le fichier renommé.
Si tu peux me donner la solution à mon problème ce sera parfait car je ne suis pas un pro.
Merci d'avance.
Bon DI.
chris [file name=Essai_Macro_FeuilleProtegee.zip size=12145]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essai_Macro_FeuilleProtegee.zip[/file]

 

[Eric C]

Re le forum
Re bonjour Chris

A placer dans le code de ton bouton Trier et Masquer Lignes de mDF (Didier si tu me lis, bien le bonjour) :

Sub Masquer_Lignes_Conditionnel()
Dim Plage As Range, PlageVide As Range
Dim L As Byte
[color=#FF0000] ActiveSheet.Unprotect Password:='123 [/color]'
123 étant le Password
    'Trier les tableaux -----------------------------------------------------------
    For L = 1 To 3
    ........................................
                Next L
    [color=#FF0000]ActiveSheet.Protect Password:='123'[/color]

End Sub

Bon je me sauve - Bon dimanche à toutes & à tous

 

[chris]

Re bonjour Eric ,
Re bonjour Le Forum,

Lorsque j'essaie d'insérer les 2 procédures dans l'ordre indiqué et dans la macro :
1/ <span style='color: #FF0000'> ActiveSheet.Unprotect ...
2/ <span style='color: #FF0000'> ActiveSheet.Protect ...
Elles sont refusées.
Y a-t-il un problème au niveau de l'écriture ?
Merci d'avance et bon DI.
Chris.