Microsoft 365 VBA fusion défusion cellule gestion cellules

[mix770]

Bonjour,
j'ai fait un petit tableau avec 2 boutons fusion ou défusion des cellules pour les utilisateurs, cela marche très bien, sauf pour la défusion il met la protection sur les cellules.
pouvez vous m'aider sur cette partie défusion afin qu'il ne protège pas les cellules dans le VBA.
merci beaucoup à vous

Sub defusionner()
With Selection
.MergeCells = False
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlEdgeTop).Weight = xlHairline
End With
Cells(Selection.Row, 3).Borders(xlEdgeLeft).LineStyle = xlContinuous
Cells(Selection.Row, "AP").Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

 

[Oneida]

Bonjour,
protège pas les cellules dans le VBA.
Chez moi pas de protection cellules. Normal puisqu'il n'y rien dans le code qui puisse le faire!!!

 

[mix770]

bonjour oneida,
merci pour ta réponse, c'est bien là que je ne comprend pas, pourquoi il protège les cellules alors que la commande n'y est pas.

 

[Oneida]

Re,
Pouvez mettre votre fichier a dispo?

 

[mix770]

en PJ le fichier, la protection est sans MDP pour tester la macro
merci beaucoup

 

[Oneida]

Re,
Feuille protegee sans mot de passe!
Fusion/defusion: aucun cas de protection cellules!

 

[mix770]

merci à toi
tu as constaté comme moi ? Une fois défusionnées les cellules sont verrouillées ?
bien à toi

 

[Oneida]

Bonjour,

les cellules sont verrouillées ?
Ben non
Fusion/defusion: aucun cas de protection cellules! (post #6)

 

[mix770]

de mon coté oui, je laisse tomber.
merci beaucoup à toi pour ton aide
bien cordialement