Fusionner des cellules avec une feuille protégé

rikano Messages postés 266 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

Quand je protège ma feuille pour rendre invisible mes formule, je clique sur "format de cellule" pour pouvoir toujours modifier mon fichier, le problème c'est que l'objet "fusionner et centrer" se grise. Même en sélectionnant toutes les cases dans la fenêtre protéger, je ne peux plus du tout rien fusionner.

Pouvez-vous m'aider svp


Windows / Chrome 112.0.0.0

A voir également:

21 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Public Sub fusionner()
Dim plage As Range, co As Long
If Selection.Count > 1 Then Exit Sub
co = Selection.Column
If co <> cosel Then Exit Sub
ActiveSheet.Unprotect mdp
Application.DisplayAlerts = False
Set plage = Selection.Resize(1, 3)
plage.ClearContents
plage.Cells(1, 1).Locked = False
plage.MergeCells = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
            Scenarios:=False, AllowFormattingCells:=True, _
            AllowFormattingColumns:=True, AllowFormattingRows:=True
ActiveSheet.Protect mdp
Application.DisplayAlerts = True
End Sub

Cdlmnt

0