Alerter ou verrouiller toutes les lignes saisies avant l'ouverture d'un fichier Excel

  • Initiateur de la discussion Initiateur de la discussion MEZ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MEZ

XLDnaute Junior
Bonjour,
Je cherche une solution pour verrouiller les anciennes lignes d’un fichier Excel.
Je m’explique :
Un fichier Excel, utilisé par plusieurs utilisateurs. Dans ce fichier plusieurs onglets (disons Feuil1 et Feuil2 sont remplis au fur et à mesure. A chaque ouverture une ou plusieurs lignes sont remplies sur un ou deux des onglets.
Scénario :
  • Aujourd’hui à l’ouverture : Feuil1 = 100 lignes saisies ; Feuil2= 300 lignes saisies.
  • Je saisis plusieurs lignes.
  • A la fermeture ou via un bouton : vérifier que les 100 lignes de Feuil1 et 300 lignes de Feuil2, n’ont pas été modifiés
L’idée est de sécuriser la qualité des données passées pour pas qu’il y’ai de problème.
Suis-je obligé de passer par du code ? Ou est-ce que du paramétrage suffirait à résoudre cette problématique ?
Merci d’avance pour vos avis !
 
Bonjour @MEZ,

Une piste par macro dans le fichier joint. Le code est dans le module de code de ThisWorkbook. On ne pourra modifier que les lignes sous les tableaux à chaque ouverture du fichier. Le mot de passe pour déprotéger les deux feuilles est : mo2pass
VB:
Private Sub Workbook_Open()
Dim wks
  For Each wks In Array(Feuil1, Feuil2)
    wks.Unprotect "mo2pass"
    wks.Columns.Locked = False
    wks.UsedRange.EntireRow.Locked = True
    wks.Protect "mo2pass"
  Next wks
End Sub
 

Pièces jointes

Re @MEZ
Est ce que le fait que j'ai des formules dans les lignes vides fait que le code le prenne en compte?
Oui

Voir la version v2. Le code est toujours dans Workbook_Open()
Pour adapter le code à votre feuille, modifier les constantes en début de code.
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour