Autoriser le redimensionnement quand une feuille est protégée

[seup]

Bonjour tout le monde !

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...

Mon code qui protège la feuille est le suivant :

wsStock.EnableAutoFilter = True
wsStock.Protect "password", True, True, True, True

Merci d'avance pour votre aide

 

[Spitnolan08]

Re : Autoriser le redimensionnement quand une feuille est protégée

Bonjour,
Avec le code bleu ça devarit fonctionner

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, [COLOR=Blue]AllowFormattingColumns:=True[/COLOR]

Cordialement

 

[seup]

Re : Autoriser le redimensionnement quand une feuille est protégée

Bonjour,
Avec le code bleu ça devarit fonctionner

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, [COLOR=Blue]AllowFormattingColumns:=True[/COLOR]

Cordialement

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 ?

 

[Spitnolan08]

Re : Autoriser le redimensionnement quand une feuille est protégée

Re,

J'utilise Excel 2000, serait-ce une nouveauté Excel 2003 ?

Ca doit être ça... Je ne puis donc t'aider car je ne vois pas comment faire autrement.

Cordialement

 

[seup]

Re : Autoriser le redimensionnement quand une feuille est protégée

Re,
Ca doit être ça... Je ne puis donc t'aider car je ne vois pas comment faire autrement.

Cordialement

Merci quand même Spitnolan08

Quelqu'un d'autre a une idée peut-être ?...

 

[Gael]

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:

Sub Largcol()
    ActiveSheet.Unprotect
    Selection.Columns.AutoFit
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Ou avec le Double clic:

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

@+

Gael

 

[Spitnolan08]

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.

Cordialement

 

[Gael]

Re : Autoriser le redimensionnement quand une feuille est protégée

Re,

Par expérience, il ne faut pas laisser trop de liberté aux utilisateurs .

Plus sérieusement, on peut aussi dans la macro demander une largeur de colonne, ou un nombre de caractères et élargir la colonne en conséquence.

@+

Gael

 

[Spitnolan08]

Re : Autoriser le redimensionnement quand une feuille est protégée

Re,

Par expérience, il ne faut pas laisser trop de liberté aux utilisateurs

Tout à fait d'accord... sur le principe mais là...

Plus sérieusement, on peut aussi dans la macro demander une largeur de colonne, ou un nombre de caractères et élargir la colonne en conséquence

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.

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

Cordialement

 

[doran]

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 ?

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingHyperlinks:=True

me génère une erreur (application ou objet) à cause de AllowInsertingHyperlinks:=True

 

[jeanpierre]

Re : Autoriser le redimensionnement quand une feuille est protégée

Bonjour tous,

"Moi je veux autoriser l'utilisateur (sans passer par une macro)",

Tu as beau vouloir, mais sans passer par une macro sous 2000 en tous cas, c'est : NON

Ici : https://www.excel-downloads.com/threads/autoriser-lien-hypertexte-dans-une-feuille-protegee.113495/

Au moins, c'est bien car tu cherches....