Verouiller certaines colonnes dans excels en gardant les macro fonctionnel

  • Initiateur de la discussion Initiateur de la discussion amerama
  • 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 !

amerama

XLDnaute Nouveau
Salut à tous,

J'ai mis des macros dans ma feuille excel pour filtrer verticalement et Horizontalement des colonnes et des lignes en cliquant sur des bouton. Mon problème est le suivant.

Je veux verrouiller certaines colonnes pour éviter qu'elles soient modifier et en garder d'autres non verrouillées (je tiens à préciser que ces colonnes en question selon le bouton utilisé peuvent être cachées). en utilisant la méthode classique de verrouillage mes macros ne fonctionnent plus.

Est ce que quelqu'un peux m'aider à résoudre ce casse tête.

Merci d'avance
 
Re : Verouiller certaines colonnes dans excels en gardant les macro fonctionnel

Bonsoir.

Voir l'aide sur l'argument UserInterfaceOnly de la méthode protect :
UserInterfaceOnly Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros. Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.
 
Re : Verouiller certaines colonnes dans excels en gardant les macro fonctionnel

Merci Victor21

J'ai cherche par ci par la des codes relatifs a UserInterfaceOnly et j'en ai trouve le suivant:

Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="Secret"
UserInterFaceOnly = True
Next wSheet
End Sub

mais en l'applicant a mon fichier ca ne marche pas j'ai le msg d'erreur suivant:

Unable to set the hidden property of the range class.

Pour info le code macro que j'utilise est du style hide column and Rows je vous en donne un e.g (peut etre ca rendra les choses plus claires:

Sub EM2()
Range("EMBB:EMEE").EntireRow.Hidden = False
Range("CVMBB:cvmee").EntireRow.Hidden = True
Range("IHCBB:RESPEE").EntireRow.Hidden = True
End Sub

Je compte sur votre aide

Merci d'avance
 

Pièces jointes

  • 11-10-2011 9-22-49 AM.jpg
    11-10-2011 9-22-49 AM.jpg
    14 KB · Affichages: 47
- 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

Discussions similaires

Retour