Suppression de feuille

Bonjour,

Sub Macro1()
mp = InputBox(" mot de passe:")
If mp = "toto" Then
nf = InputBox("Nom feuille")
ActiveWorkbook.Protect Structure:=False, Password:=""
On Error Resume Next
Sheets(nf).Delete
ActiveWorkbook.Protect Structure:=True, Password:=""
End If
End Sub

JB


On 31 mar, 22:54, Michel (pen ar bed) <Mic...@mail.net> wrote:

JB a formulé ce lundi :

Il faut enlever la protection du classeur (par VBA) pendant l'import
et la remettre après .

JB
On 31 mar, 22:42, Michel (pen ar bed) <Mic...@mail.net> wrote:

JB avait écrit le 31/03/2008 :> J'ai écrit protéger le CLASSEUR e t non pas
feuille (Outils/Protection/

Protéger le classeur)

oui j'ai bien lu, mais si je protège le classeur je ne peut plus fair e
mes imports automatique avec création de feuille

OK je vais essayer (demain)

merci et Bonsoir
M.

| A tes prochaines critiques.

C'est une façon de voir mon intervention...Mais ce n'était pas mon intention !

PMO avait énoncé :

Bonjour,

Voici une piste qui ne prend en considération que l'item
"Supprimer" du menu contextuel apparaissant à la suite
d'un clic droit sur l'onglet.

Merci c'est parfait cela me convient très très bien

Je suppose que vous avez déjà modifié la WorkSheet Menu Bar
pour désactiver Edition/Supprimer une feuille.

oui comme ceci (trouvé sur excel-downloads et adapté à mon besoin)
-------------------------------------------
Sub MenuItem_Disable()
Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Edition")
myCmd.Controls("Supprimer la feuille").Enabled = False
End Sub
Sub MenuItem_Enable()
Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Edition")
myCmd.Controls("Supprimer la feuille").Enabled = True
End Sub
-------------------------------------------------------
Cordialement.
M.

Bonjour,

J'ai oublié une chose importante.

Si vous activez la feuille où agit le "Supprimer avec autorisation"
et que vous quittez Excel (ou que vous ouvrez un autre classeur)
le menu contextuel n'est pas remis à l'état initial.

Pour y remédier copiez le code suivant dans ThisWorkbook

'***********
Private Sub Workbook_Deactivate()
Call RetablitSupprimer
End Sub
'***********

Cordialement.

PMO
Patrick Morange

PMO a émis l'idée suivante :

Bonjour,

J'ai oublié une chose importante.

Si vous activez la feuille où agit le "Supprimer avec autorisation"
et que vous quittez Excel (ou que vous ouvrez un autre classeur)
le menu contextuel n'est pas remis à l'état initial.

Pour y remédier copiez le code suivant dans ThisWorkbook

'***********
Private Sub Workbook_Deactivate()
Call RetablitSupprimer
End Sub
'***********

Cordialement.

PMO
Patrick Morange

Merci.