Modification taille des lignes et colonnes Résolu/Fermé

Question

Bonjour, 

Dans le cadre de mon travail, je dois envoyé un fichier rapidement à différentes personnes.
J'ai inséré une macro pour pouvoir activer les « grouper », « dissocier » même avec une  feuille protégé, et aussi une autre pour cacher un onglet définitivement dès l'ouverture du fichier. 

Problème : en activant la macro, cela empêche d'augmenter ou de diminuer la taille des colonnes ou des lignes (elles sont figées)...il faudrait que je puisse les bouger, même avec le classeur protégé....

Voici le fichier en question (le mot de passe est "test")
https://www.cjoint.com/?DBoocUFISe4  

Si quelqu'un savait comment faire en rajoutant quelques lignes de macro je suppose, cela m'aiderai énormément car je ne sais plus comment faire,

En vous remerciant.

WeaponEDGE · Answer

Bonjour,

Le code suivant te permettras de protéger ta feuille tout en pouvant modifier la taille des colonnes.

Sub Macro1()
Dim Mot_De_Passe as variant

    'Choix du Mot de passe
    Mot_De_Passe = "TEST"
    
    'Protection de la feuille active
    'La fonction "AllowFormattingColumns:=True" permet de pouvoir agrandir les colonnes
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, Password:=Mot_De_Passe
        
    'Déprotection de la feuille avec le mot de passe défini plus haut
    ActiveSheet.Unprotect (Mot_De_Passe)
End Sub

Stragos · Answer

Bonjour, 
Le mot de passe ne fonction pas. Donc pas pu tester.
Tu peux vérifier quand tu protégé la feuille que format de cellule ou/et format colonne ou/et format ligne soit coché.

ched64 · Answer

Merci WeaponEDGE et Stragos pour vos réponses. 
J'ai pu utilisé ce que tu m'as écrit "WeaponEDGE" et cela fonctionne trés bien.

Private Sub Workbook_Open()
With Worksheets("TEST")
.EnableAutoFilter = True
.EnableOutlining = True
'.Protect Contents:=True, Password:="Test", UserInterfaceOnly:=True
.Protect DrawingObjects:=True, Contents:=True, Password:="Test", UserInterfaceOnly:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End With
End Sub


Merci beaucoup encore :)

Modification taille des lignes et colonnes

3 réponses

Discussions similaires