Vérrouillage feuille et fonctions bloquées

Bonjour 3lgm_hsct,

Tu peux utiliser quelque chose dans le genre...

lorsque ton formulaire est ouvert, la feuille n'est pas accessible directement, en conséquence, même si ta feuille n'est
pas protégée, il n'y a aucun problème ...! Tu n'as qu'à appeler la macro pour ce faire. Dans la procédure "Formulaire"
corrige le nom de la feuille pour qu'elle corresponde à ton programme... l'adresse de la cellule à la ligne suivante
doit être une cellule de ton tableau aussi !


Dans le ThisWorkbook de ton projet , copie ce qui suit :
'---------------
Private Sub Workbook_Activate()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = "Formulaire"
Next
End Sub
---------------
Private Sub Workbook_Deactivate()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = ""
Next
End Sub
---------------
Private Sub Workbook_Open()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = "Formulaire"
Next
End Sub
---------------


Dans un module standard :
'-------------------------
Sub AfficherFormulaire()

With Worksheets("Feuil2")
.Activate
.Unprotect
.Range("A1").Select
.ShowDataForm
.Protect
End With
End Sub
'-------------------------


Salutations!





"3lgm_hsct" <3lgm.hsct@laposte.net> a écrit dans le message de news:c8c9ka$tkm$1@news-reader3.wanadoo.fr...
Bonjour,

Sous EXCEL 2003, je souhaite verrouiller une feuille dans un classeur mais
dans ce cas, je ne peux pas ajouter de nouvelles données à partir de l'outil
Formulaire
(Menu - Données - Formulaire)
Les boutons "Nouvelle" - "Supprimer" "Restaurer" sont inactifs

Quelle solution sans déverrouiller la feuille ?
Merci d'avance.

--
Pierre (35)
3lgm.hsct@laposte.net