protection de feuilles EXCEL en VB

[josias]

Bonjour le Forum !!!

Ba voila, je solicite une foie encore votre attention sur un autre petit problème que je rencontre dans la création d'un devis Excel:

Je voudrais protéger mes feuilles automatiquement, ça marche mais il ne me protège pas comme je le voudrais, les cellules verrouillées peuvent encore être sélectionnées !! Et moi, je ne veux pas...

Voici mon petit bout de programme, si quelqu'un pouvait jeter un coup d'oeil :


Sub protegefeuille(nombrefeuille As Integer)

Dim i As Integer

Sheets("Eg").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

For i = 1 To nombrefeuille

nb = Format(i)
nomfeuil = ("SE" + nb)
Sheets(nomfeuil).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Next

End Sub


voila, merci de votre patience et de votre aide !!

@ bientôt

 

[monsieurPatate]

Re-bonjour,

aie,

Je crois que j'ai commis une bourde

C'est sûrement une question de config dans mon fichier courant car le même

code sur un fichier tout neuf me donne cet effet de gras et les flèches du

clavier fonctionnent bien...

Bon, alors bye et back to the drawing table. Lol

 

[josias]

Bonjour a tous !!

Ba moi aussi je perd les commande des flèche et de l'effet gras des cellules !

Comment je peux changer ça ?


Merci !!!

 

[@+Thierry]

Bonsoir Josias, le Forum

Je viens de remettre ce code sur un fichier que j'ai sauvé et ré-ouvert plusieurs fois, je ne rencontre pas ce problème. (Ici Excel 2000 / Win Me, sur une vieille bécane de test, PIII 800 512, Gforce2 MX 32)

Je ne sais pas plus.... Pour info J'ai pris une une plage de A1:A100 et C1:C10 et une cellule unique en E10 non-locked c'est tout... Ptet as-tu des dizaines de cellules disparates non-locked... et l'affichage ne suit plus...

Bon courage
@+Thierry

 

[josias]

Salut à tous !!!!

Bonjour Thierry !

Ba en fait, le problème cité plus haut n'est pas vraiment un problème, d'ailleur, ça ne me le fait une fois sur 10...

Par contre, il y a un autre problème que je ne sais pas résoudre:
Dans ma feuille de calcul,j'ai des objets de type " forme automatique" que j'ai bien verrouillés auquels j'ai affecté des macros mais apparemment, la protection ne s'applique pas sur eux...je peux les modifier sans problèmes...et ça c'est un problème...

Tu sais comment faire pour changer ça ?

Merci beaucoup.

 

[monsieurPatate]

Bonjour à tous,

dans mon cas, c'est un problème intermitant (XL2000) et il semble être relié

à deux circonstances:
d'une part, la feuille est protégée manuellement avec un mot de passe, d'autre

part les cellules sont décorées de bordures.

Josias, peut-être activer la protection de la feuille (au menu: Outils;protection) pour ton problème en cochant objet.

Bye!