XL 2016 Verrouillage cellules remplies après enregistrement fichier

Phil69970

XLDnaute Barbatruc

• 21 Octobre 2024

• #2

Bonjour @Elsapr67 et bienvenue sur XLD

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Verrouillage V1.xlsm

  30.3 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

E

Elsapr67

XLDnaute Nouveau

• 22 Octobre 2024

• #3

Phil69970 à dit:

Bonjour @Elsapr67 et bienvenue sur XLD

Je te propose ce fichier

Merci de ton retour

Cliquez pour agrandir...

Bonjour,

Super, c'est bien ça que je souhaitais. Merci pour votre aide!!!

J'aurais aimé comprendre, lorsque je fais un copier / coller ou une saisie de la macro de votre fichier sur mon fichier "Test Rapport" d'origine ça ne fonctionne pas. Je vais saisir toutes données nécessaires dans la ligne "B3" j'enregistre soit avec la disquette soit via la fenêtre d'enregistrement qui apparait en cliquant sur la croix mais en réouvrant mon fichier les données préalablement saisies sont modifiables (j'ai ôter la protection de la feuille,...). sauriez-vous d'où cela peut venir? est-ce que je dois sélectionner une option particulière?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Octobre 2024

• #4

@Elsapr67

Dans cette version V2 le verrouillage est sur l'enregistrement du fichier comme demandé.
J'ai commenté le code pour que tu le comprennes
A noter les N° ne sont pas bloqués mais si tu veux on peut les bloquer
La V3 avec les N° bloqués tu pourras choisir quelle version te convient le mieux

Merci de ton retour

 

Pièces jointes

• Verrouillage V2.xlsm

  31.1 KB · Affichages: 3
• Verrouillage V3.xlsm

  31.1 KB · Affichages: 1

Dernière édition: 22 Octobre 2024

Vote positif 0 Vote négatif

E

Elsapr67

XLDnaute Nouveau

• 22 Octobre 2024

• #5

Phil69970 à dit:

@Elsapr67

Dans cette version V2 le verrouillage est sur l'enregistrement du fichier comme demandé.
J'ai commenté le code pour que tu le comprennes
A noter les N° ne sont pas bloqués mais si tu veux on peut les bloquer
La V3 avec les N° bloqués tu pourras choisir quelle version te convient le mieux

Merci de ton retour

Cliquez pour agrandir...

Bonjour,

Ah super, ça fonctionne (j'avais pas vu le deuxième code...) !!

Merci beaucoup pour votre aide et les commentaires !!

Je vais clôturer la discussion.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2024

• #6

Bonjour,

Essayez quand même dans ThisWorkbook :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim c As Range
With ActiveSheet
    .Protect UserInterfaceOnly:=True
    .Cells.Locked = False
    For Each c In .UsedRange
        If Not IsEmpty(c) Then c.MergeArea.Locked = True
    Next
End With
End Sub

Je vous laisse vous renseigner sur UserInterfaceOnly:=True

A+

 

Pièces jointes

• Test.xlsm

  18.7 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2024

• #7

Sans boucle :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next 'si aucune SpecialCell
With ActiveSheet
    .Protect UserInterfaceOnly:=True
    .Cells.Locked = False
    .Cells.SpecialCells(xlCellTypeConstants).Locked = True
    .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
End With
End Sub

 

Pièces jointes

• Test.xlsm

  18.6 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Octobre 2024

• #8

Bonjour le forum,

Je découvre un phénomène curieux en exécutant la macro du post #7.

Après copie de la plage A3:I12 sur A13:I2402 pas de problème les cellules vides sont bien déverrouillées.

Mais après copie de la plage A3:I12 sur A13:I2412 les cellules vides de la plage A3:H2402 sont verrouillées tandis que les cellules vides des plages I3:I402 et A2403:I2412 sont bien déverrouillées.

Je n'ai aucune explication, ce phénomène ne se produit pas avec la macro du post #6.

A+.

 

Vote positif 0 Vote négatif