Modification taille des lignes et colonnes
Résolu
ched64
Messages postés
52
Date d'inscription
Statut
Membre
Dernière intervention
-
ched64 Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
ched64 Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Modification taille des lignes et colonnes
- Comment réduire la taille d'un fichier - Guide
- Suivi des modifications word - Guide
- Comment faire des colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Logiciel gratuit modification pdf - Guide
3 réponses
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
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
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é.
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é.
Il faut bien comprendre les 3 parties de la Macro :
La première est la définition du mot de passe; j'ai choisi TEST en majuscule (Attention si vous déprotégez la feuille manuellement et que vous saisissez le mot de passe en minuscule ça ne marchera pas)
La deuxième est la protection de la Feuille
Enfin la dernière est la Déprotection de la Feuille
Si vous testez la Maco telle quelle il ne se passera rien car la feuille sera protégé puis déprotégé tout de suite après.
Pour la tester, suprimez la partie suivante :
'Déprotection de la feuille avec le mot de passe défini plus haut
ActiveSheet.Unprotect (Mot_De_Passe)
De mon côté ça fonctionne parfaitement.
La première est la définition du mot de passe; j'ai choisi TEST en majuscule (Attention si vous déprotégez la feuille manuellement et que vous saisissez le mot de passe en minuscule ça ne marchera pas)
La deuxième est la protection de la Feuille
Enfin la dernière est la Déprotection de la Feuille
Si vous testez la Maco telle quelle il ne se passera rien car la feuille sera protégé puis déprotégé tout de suite après.
Pour la tester, suprimez la partie suivante :
'Déprotection de la feuille avec le mot de passe défini plus haut
ActiveSheet.Unprotect (Mot_De_Passe)
De mon côté ça fonctionne parfaitement.
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 :)
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 :)