Je souhaite dans mon appli développée sous Excel 2000, permettre aux utilisateurs de redimensionner les colonnes d'une feuille protégée...
J'ai beau chercher, je trouve pas la solution...
Avec ce code j'obtient un message d'erreur qui dit que l'argument nommé est introuvable (AllowFormattingColums)
J'utilise Excel 2000, serait-ce une nouveauté Excel 2003 ?
Tous les utilisateurs sont équipés de 2000, n'existe-t-il pas une solution sur cette version d'Excel ?
Re : Autoriser le redimensionnement quand une feuille est protégée
Bonjour Seup, bonjour Spitnolan,
Une macro très simple peut faire un ajustement de la colonne active. L'utilisateur sélectionne une cellule de la colonne puis lance la macro (ou évènement Double click).
exemple de code:
Code:
Sub Largcol()
ActiveSheet.Unprotect
Selection.Columns.AutoFit
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Ou avec le Double clic:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
Selection.Columns.AutoFit
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Re : Autoriser le redimensionnement quand une feuille est protégée
Re,
Bonjour Gael,
C'est une solution. Mais elle ne permet qu'un redimensionnement automatique des colonnes. Or, si j'ai bien interprété la question (??) il me semble que seup veut laisser la liberté aux utilisateurs.
Effectivement. Il faut dans ce cas, pour que ce soit vraiment l'utilisateur qui choisisse lui mettre à disposition une inputbox de saisie de la largeur souhaitée pour la colonne selectionnée par exemple.
Code:
Sub Largcol()
Dim largC As Double
largC = InputBox("Pour modifier la largeur de la colonne selectionnée indiquer sa nouvelle largeur")
ActiveSheet.Unprotect
Selection.ColumnWidth = largC
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Re : Autoriser le redimensionnement quand une feuille est protégée
Bonjour,
Moi je veux autoriser l'utilisateur (sans passer par une macro) à insérer des liens hypertextes sur une feuille protégée et j'ai excel 2000 ...
Est ce possible ?