Protegé un bouton macro

[patrol]

Salut a tous

voila ne sachant pas faire autrement

j'ai crée un bouton auquel j'ai affecté une macro pour effacer les dates

comment puis-je proceder pour que ce bouton soit egalement protegé quand la feuille elle meme est protégée

si c'est impossible y a t'il un autre moyen d'avoir un bouton qui efface mais que je puisse proteger

merci

patrol

 

[Compte Supprimé 979]

Re : Protegé un bouton macro

Salut,

Tu peux tester si ta feuille est protégée et dans ce cas ne pas exécuter le code

Sub EffacerDates()
'
' EffacerDates Macro
' Macro enregistrée le 05/03/2010 par NOEL Philippe

  If SheetIsProtected(ActiveSheet.Name) = False Then
  
Range("E38:F51,I38:J51,M38:N51,Q38:R51,U38:V51,Y38:Z51").ClearContents
  End If
End Sub

Function SheetIsProtected(ByVal sSheetName As String) As Boolean
  With Worksheets(sSheetName)
    SheetIsProtected = (.ProtectContents Or .ProtectDrawingObjects Or .ProtectScenarios)
  End With
End Function

A+

 

[patrol]

Re : Protegé un bouton macro

Merci BrunoM45 ça marche nickel

encore merci au barbatruc

patrol