Re : "désaffecter" macro a une forme
Bonjour à tous,
Merci à tous les 2 de vous être penché sur mon sujet, désolé mais j'ai un peu trainé pour la réponse. Pas mal d'autres choses à gérer. Pour être plus explicite :
Mes formes sont des zones de texte auxquelles j'affecte une macro par le menu contextuel.
Ci dessous une des macros affectée à une des zones de texte :
Public Sub D1_D2()
'Suppression de la protection
Sheets("JJ").Unprotect Password:="***"
'Validation du bon remplissage de D1
If Range("CD24") <> 4 Then
B_Avertissement_D1.Show
Exit Sub
End If
'Affichage de l'étape D2
Rows("25:40").Select
Selection.EntireRow.Hidden = False
'Masquage bouton D1_D2
ActiveSheet.Shapes("Text Box 69").Select
With Selection.Font
.Name = "Comic Sans MS"
.FontStyle = "Gras"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.Height = 3#
Range("P26").Select
'Remise en place de la protection
Sheets("JJ").Protect UserInterfaceOnly:=True, Password:="***", Scenarios:=True, AllowFormattingRows:=True
End Sub
Afin d'éviter aux utilisateurs de relancer la macro je masque le bouton mais depuis peu j'ai une erreur qui se déclenche.
Je souhaiterai donc désaffecter la macro.
MichD comment dois je intégrer ton code? dans mon code D1_D2?
Gorfael, il me semble que la fonction Enabled me donne une erreur mais je vais retester.
Merci à tous et bonne journée.
Jacques