Comment protéger des feuilles contre l'effacement?

[Aloha]

Bonjour,

Y a-t-il une méthode, dans Excel 2003, pour éviter qu'une feuille ne soit effacée par erreur?

Il faut qu'elle reste modifiable.

Merci pour tout tuyau

Aloha

 

[Aloha]

Re : Comment protéger des feuilles contre l'effacement?

Bonsoir,

J'ai bien collé le code dans ThisWorkBook dans l'éditeur VBA!

Dans vos exemples j'arrive à effacer n'importe quelle feuille!

Je constate que dans le classeur "Effacer cellules" le contenu d'une cellule se rétablit lorsqu'on l'efface.

Cependant ce n'est pas cela qu'il me faut.

Je suis désolé de vous incommoder.

Bonne soirée

Aloha

 

[job75]

Re : Comment protéger des feuilles contre l'effacement?

Bonsoir Aloha,

Que vous dire ? On ne doit pas avoir les mêmes lunettes 😕

Dans vos exemples j'arrive à effacer n'importe quelle feuille!

Moi je vois ça :

- fichier Effacer cellules, Feuil1 : on ne peut effacer aucune cellule

- Fichier Effacer feuille, Feuil1 : on ne peut pas effacer toutes les cellules.

Ou alors par "effacer une feuille" vous voulez dire "supprimer une feuille" ?

Si c'est le cas j'abandonne, car en plus on ne parle pas la même langue !!

A+

 

[job75]

Re : Comment protéger des feuilles contre l'effacement?

Re,

Bon, après un bon dîner 😛

Les macros (dans ThisWorkbook) qui permettent ou interdisent la suppression d'une feuille :

Private Sub Workbook_Open()
Protege ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Protege Sh
End Sub

Private Sub Protege(Sh As Object)
Dim tablo
tablo = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")
If IsError(Application.Match(Sh.Name, tablo, 0)) Then
ActiveWorkbook.Protect Password:="toto", Structure:=True, Windows:=False
Else
ActiveWorkbook.Unprotect "toto"
End If
End Sub

A+

 

[Aloha]

Re : Comment protéger des feuilles contre l'effacement?

Bonsoir "Job75",

Je viens seulement de lire votre message. J'essayerai votre code.

Oui, c'est bien de la suppression des feuilles qu'il s'agit. Mes excuses d'avoir utilisé le mauvais mot.

A très bientôt.

Aloha