Aller au contenu

Bramoset

Membres
  • Compteur de contenus

    1
  • Inscription

  • Dernière visite

Réputation sur la communauté

0 Neutral

À propos de Bramoset

  • Rang
    Junior Member

Profile Information

  • Sexe
    Male
  • Localisation
    Villeneuve-les-Avignon (30)
  • Intérêts
    Programmation (débutant même à mon âge), lecture, Musique classique

Autres informations

  • Votre config
    Winbdows 10 - Microsoft Office 2016
  • Mes langues
    Français - Anglais (un peu)
  1. Bramoset

    Déprotection de feuilles Excel

    Bonjour à tous, J'ai créé un fichier sous Excel 2016 de budget personnel comportant plusieurs feuilles dont 12 feuilles de saisies mensuelles (Saisie_Janvier-, Saisie_Fevrier, etc.) J'ai créé la macro suivante pour déprotéger toutes mes feuilles en une seule fois : Public Sub Deproteger() Dim feuille As Object For Each feuille In ActiveWorkbook.Sheets If feuille.Visible = xlSheetHidden Then feuille.Visible = xlSheetVisible End If Next Dim Feuil As Worksheet For Each Feuil In ThisWorkbook.Worksheets Feuil.Unprotect Next Feuil End Sub que j'ai placée dans un module dénommé "Routines Générales". Lorsque les feuilles sont fermées (sauf une appelée "Accueil") et que j'exécute ma macro "Deprotéger"), toutes les feuilles sont déprotégées (et elles ne sont pas ouvertes) sauf les 12 feuilles de saisies mensuelles. Si je veux qu'elles soient déprotégées, il faut que j'ouvre (avec une autre macro) toutes mes feuilles dont les feuilles de saisies mensuelles. Bien sûr, si je vais sur une feuille de saisie mensuelle, je peux sans problème enlever la protection (Révision + Ôter la protection) Je précise que (pour l'instant), je n'ai pas mis de mot de passe pour protéger les feuilles (seules les cases "Sélectionner les cellules verrouillées" et "Sélectionner les cellules déverrouillées" sont cochées" J'ai beau chercher, je ne trouve pas l'astuce pour déprotéger toutes mes feuilles sans avoir à les ouvrir au préalable. Quelqu'un aurait-il une idée ? D'avance je vous en remercie. Bramoset
×