Pour qu'une feuille soit toujours inselectionnable

[MAXOU]

Bonsoir la compagnie !
J'ai trouvé récemment un truc pour que en plus d'être protégées, le cellules d'une feuille deviennent complétements inselectionnables :
J'ouvre l'éditeur VBA, puis affichage/explorateur de projets et affichage/fenetre propriétés. Et je clique sur ma feuille excel et dans les propriétés je met à la ligne EnableSelection : XlUnlockedCells. Pour que cela fonctionne, de retour dans Excel j'active la protection de la feuille.

Seul problème : quand je ferme puis ouvre mon fichier, cela n'est plus actif.
Comment faire SVP ?

 

[stephane]

fonction si

bonjour a vous

je cherche la methode pour affiche une VALEUR


A B C D
=MOD(b5-a5;1) =c
2H00 *2H30 =0h30 =0h30 Jusque la ça va

quand je mes une lettre

A B C d
2H00 * CP =ERREUR =ERREUR avec la fonction si en d je voudrai afficher 0 quand erreur en c

pour avoir comme resultat 0 en d pour faire la somme de la colonne

merci de votre aide

 

[Jean-Marie]

Bonjour Stephane

Je ne sais pas si j'ai bien compris, mais essaye ceci

=si(esterr(C5);0;C5)

@+Jean-Marie

 

[stephane]

merci ça marche super bonne soiree

encore merci a toi

 

[MAXOU]

Et mon sujet vous en faites koi ?? Bon il doit y avoir un problème. Stephane tu pouvais pas créer un nouveau post ?

 

[Jean-Marie]

Bonjour Maxou

Code à placer dans le Thisworkbook de ton classeur (dans l'exemple c'est la feuille nommée "Feuil2" qui change de propriété.

Private Sub Workbook_Open()
Worksheets("Feuil2").EnableSelection = xlNoSelection
End Sub

@+Jean-Marie

 

[Maxou]

Merci J.-M. c'est sympa. J'aime la façon dont tu t'impliques dans ce forum.