Microsoft 365 .Delete sur Marco

[Ruku.G49]

Bonjour, j’ai fait une macro pour que des notes se mette quand j’appuie sur un bouton et comme je voulais sur un seul emplacement j’ai utilisé. delete pour éviter que les notes se succede .Seulement quand je protège ma feuille .delete ne fonctionne plus et met en bug ma macro . Avez-vous une solution ?

Voici la macro :
Sub AjoutCommentaire()
Range("M34").Delete
Range("M34").AddComment
Range("M34").Comment.Text Text:="BA2B01"

With Range("M34").Comment.Shape
.Width = 70 'Largeur commentaire
.Height = 20 'Hauteur
.OLEFormat.Object.Font.Size = 14 'Taille du texte
.OLEFormat.Object.Interior.ColorIndex = 2 'Couleur de fond
.TextFrame.Characters.Font.ColorIndex = 32 'Couleur de la police
.TextFrame.Characters.Font.Bold = True 'Ecriture gras
.OLEFormat.Object.Font.Name = "Bangle" 'Type de police
End With

 

[vgendron]

Bonjour
il faut déprotéger la feuille
sheets("nomFeuille").unprotect

et reprotéger la feuille
sheets("nomFeuille").protect...

 

[Ruku.G49]

Bonjour
il faut déprotéger la feuille
sheets("nomFeuille").unprotect

et reprotéger la feuille
sheets("nomFeuille").protect...

Bonjour ce n'est pas vraiment une solution , le but étant que si d'autre personne on a vérifier les point qui sont sur cette feuille elle ne puisse pas faire une modif suite a une fausse manip

 

[vgendron]

C'est pourtant la seule solution..

Si la feuille est protégée pour éviter toute modification.. alors.. aucune modificaton n'est possible.. que ce soit par l'utilisateur directement sur la feuille, ou que ce soit par macro.==> C'est le but de la protection.
maintenant.. si malgré la protection tu veux modifier.. et bah. ce n'est pas possible..

c'est un peutcomme le limitateur de vitesse.. il empeche d'aller au dela. d'une vitesse fixée. si tu veux y aller quand meme.. il faut le désactiver.