protection cellules

[picsous]

comment peut on faire pour protéger un nombre de cellules dans une feuille en laissant les autres accessibles ??

y a t'il un moyenne pour remettre à zéro une partie des cellules (choix des cellules) restées libres d'accé ??

merci

 

[PascalXLD]

Re : protection cellules

Bonjour

tu selectionnes tes cellules que tu veux laisser libre d'accès
dans le format cellule à l'onglet protection tu décoches "verouillée"
puis dans outils protection tu protèges ton classeur t(tu peux mettre un mot de passe)

 

[vbacrumble]

Re : protection cellules

Bonjour à tous



Pour sélectionner les cellules libres d'accès

Sub macrotest()
Dim c As Range, ap$
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then
ap = ap & c.Address(0, 0) & ","
End If
Next
Range(Left(ap, Len(ap) - 1)).Select
[COLOR="Green"]'Pour les effacer, décommenter la ligne ci-dessous[/COLOR]
'Range(Left(ap, Len(ap) - 1)).ClearContents
End Sub

 

[Modeste]

Re : protection cellules

Bonjour à tous,

Pour vbacrumble (ou d'autres):
Dans

Dim c As Range, ap$

... à quoi sert le $ derrière ap ?

Tant que j'y suis, il me semble avoir vu de temps en temps un autre caractère accolé au nom d'une variable, mais je ne sais plus lequel 😕

Modeste

 

[PascalXLD]

Re : protection cellules

Bonjour à tous,

Pour vbacrumble (ou d'autres):
Dans

Dim c As Range, ap$

... à quoi sert le $ derrière ap ?

Tant que j'y suis, il me semble avoir vu de temps en temps un autre caractère accolé au nom d'une variable, mais je ne sais plus lequel 😕

Modeste

re

regardes ce fil j epense que tu trouveras ton bonheur

https://www.excel-downloads.com/threads/vba-types-de-variables.81052/

 

[vbacrumble]

Re : protection cellules

Re


Merci PascalXLD pour le lien cité:

Modeste:
Dim ap$
est équivalent à Dim ap as String


et ici j'ai choisi ap pour : adresse plage

 

[Modeste]

Re : protection cellules

vbacrumble, PascalXLD,

merci à tous les deux pour vos réponses (j'en ai encore pour 50 ans au moins à tout intégrer ... si je vis centenaire, c'est tout bon !)

Modeste

 

[picsous]

Re : protection cellules

Bonjour à tous



Pour sélectionner les cellules libres d'accès

Sub macrotest()
Dim c As Range, ap$
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then
ap = ap & c.Address(0, 0) & ","
End If
Next
Range(Left(ap, Len(ap) - 1)).Select
[COLOR="Green"]'Pour les effacer, décommenter la ligne ci-dessous[/COLOR]
'Range(Left(ap, Len(ap) - 1)).ClearContents
End Sub

c'est certainement vrai mais pour moi c'est du chinois et je n'y comprend rien du tout
peux tu m'expliquer en therme moins excel
je en vois aucune référence cellules

 

[vbacrumble]

Re : protection cellules

Re


Picsous: regarde la pièce jointe et clique sur les différents boutons.

Le code de mon précédent message sélectionne les cellules dont l'option Vérouillé a éte décochée.


Tu verras que dans le fichier exemple, ces cellules sont soit sélectionnées, soit effacées.

(Le dernier bouton servant a recréer les données initiales )

 

[picsous]

Re : protection cellules

mon ordi refuse de se servir des boutons, "macros non controlés"

 

[vbacrumble]

Re : protection cellules

Re



Pourtant ce sont des macros des plus gentilles et inoffensives 😉

Tu es sous Excel 2007 ?

 

[picsous]

Re : protection cellules

non excel 2002

 

[picsous]

Re : protection cellules

excel 2007 va me couter la peau des f....... ??

 

[vbacrumble]

Re : protection cellules

Re

Je suis sous Excel 2000 et les macros fonctionnent sans problème.

Sur quel niveau de sécurité est réglé ton Excel ?


Ou est-ce ton antivirus qui bloque les macros ?

 

[picsous]

Re : protection cellules

je crois que c'est l'anti virus qui bloque