ne pas effacer les formules

[Marion]

Rebonjour au forum.

Je joins un fichier pour voir si l'on peut faire quaque chose a ce petit soucis.

je veux effacer une plage de cellule mais pas les formules.

a moins de le faire cellules par cellules je ne sais pas comment faire autrement.

de plus sur mon fichier source des colonnes sont masquées et ses colonnes contiennent des formules.

A+Marion

 

[Marion]

Merci Eric je pense que je vais la jouer comme çà

un dernier petit truc voici un code comme tu déprotége re reprotege la feuille avec unprotect

Sub effacerplanning_rm()
Application.ScreenUpdating = False
Range('A4:B20,E4:E20').Select
Range('E4').Activate
Selection.ClearContents
Range('B9093,B9699,B102105,B108114,B117123').Select
Range('B102').Activate
Selection.ClearContents
Range('b4').Select
End Sub

Merci

A+Marion

 

[Dan]

Re Marion,

Une autre solution était que lorsque tu utilises la touche SUPP ou DEL cela te fait enclencher la macro dans ce fichier.

Pour ce qui est de ta question sur Protect et unprotect, rajoute ceci :

Après l'instruction 'application... False --> Activesheet.protect
Avant l'instruction 'application... True ---> ActiveSheet.Unprotect

 

[Marion]

Merci Dan.

mais plus concrètement ça donnerais quoi le fait d'appuyer sur la touche Suppr.


sinon je me contenterais de protéger la feuille et d'installer le code en début de macro et en fin.

Merci

A+Marion

 

[ERIC S]

re

codes à mettre si pas de mot de passe:

sub mamacro()
ActiveSheet.Unprotect
....
...
....
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

end sub

 

[Marion]

Bonsoir le forum

Eric un petit soucis tu dis dans ton dernier post 'si pas de mot de passe', mais il y en a obligatoirement un lors de la protection de la feuille excel en demande un


A+Marion

 

[ERIC S]

Eh non

Excel demande mais accepte que tu fasses retour sans rien mettre
d'où un mot de passe inexistant

A+

 

[Marion]

Exact eric je ne savais pas


Merci


A+Marion

 

[ERIC S]

Allez, pour la route

avant de couper les fils, je t'envoie un petit exemple, essaie et regarde le code du bouton

pour déprotéger à la main la feuille, outils protection, oter la protection.

Comme il n'y a pas de mots de passe ...

Bon WE [file name=essaiprotect.zip size=8351]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiprotect.zip[/file]

 

[Dan]

Re Marion,

Un petit passage par Lien supprimé qui peut t'aider pour le mot de passe lors de l'accès à un fichier. (la macro est à placer dans Thisworkbook - Private sub workbook_open et non dans macro auto-open comme je le précisais à l'époque).

Mais comme on peut aussi te le montrer un mot de passe est très facilement décryptable notamment avec le fichier ACYD de Ti.
Mais bon, là c'est un autre sujet.

 

[Marion]

Bonsoir

je pense que je suis dans une vraie galère, le fait de proteger la feuille sans mot de passe sera trés facile a déjoué et ensuite les ennuis commençerons si l'on fait une suppression.

Je pense que je dois réfléchir a ce qu'il me faut exactement.


Merci a vous tous

Gros bisous


A+Marion

 

[Dan]

Marion,

ce que tu doiis faire c'est bien exposer la procédure d'ouverture de modification ou de consultation de ton fichier.

Il faut que tu sois précise. Par exemple :

- Qui consulte uniquement - pour consulter pas besoin de mot de pase
- Qui encode - mot de passe pour accès à certaines cellules
- Qui supprime - mot de passe à tout le fichier

 

[Marion]

Dan je pense que partir sur un mot de passe n'est peut-être pas la bonne solution.

Peut-on imaginer jute un msgbox lorsque la touche delete est appuyée.

Le fait de signaler a l'utilisateur qu'il y a un risque de supprimer une ligne est absolument interdite.


Je pense que c'est la melleure solution.

Mais je ne sais pas comment le faire.


A+Marion

 

[Dan]

Re,

Ok bien vu laisse moi voir cela et éventuellement en discuter avec quelques personnes que je connais.

 

[Dan]

Bonsoir,

La suite est par Lien supprimé

hmy: