Comment interdire la suppression d'une feuille ?

**mobiclick** · 28/06/2009, 09h25

Bonjour au forum,

Je voudrais interdire la suppression d'une feuille de calcul. Un truc pour empecher toute manipulation fâcheuse...

Merci.

**laetitia** · 28/06/2009, 10h17

bonjour mobiclick le forum peut être comme cela!!! a tester

dans thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True
End Sub

**mobiclick** · 28/06/2009, 10h42

merci Laetitia mais j'ai essayé ça ne marche pas ...j'arrive à supprimer la feuille

**laetitia** · 28/06/2009, 11h13

re, bizarre j ai teste sous excel 2007 ca marche??
tu le met ou le code!!

**mobiclick** · 28/06/2009, 11h27

Je le mets dans workbook .... Je fais alt+f11 , puis je double clic Thisworkbook et je ferme. Je dois dire que j'ai déjà autre un code dans Thisworkbook , peut-être que c'est ça le problème ?

**mobiclick** · 28/06/2009, 11h35

Milles excuses Laetitia ça marche parfaitement....j'aurai voulu que ça soit valable pour une seule feuille de classeur seulement

stp laetitia peux-tu me montrer comment le rétablir car il a disparu pour toutes les classeurs....merci

**Krovax** · 28/06/2009, 13h39

Bonjour
Tu as déja le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True
End Sub

A la fermeture il est remis
sinon met juste cette ligne dans une macro quelconque et execute là

**mobiclick** · 28/06/2009, 13h51

merci krovax
t'aurais pas un truc pour supprimer le clic droit uniquement pour une feuille ,pas toutes les feuilles

**Krovax** · 28/06/2009, 15h55

Tout simplement les évènement de thisworkbook
module this workbokk

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Feuil1" Then Cancel = True
End Sub

Ou alors dans le code de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

**mobiclick** · 28/06/2009, 16h43

Ca ne marche pas et je ne vois pas pourquoi... J'ai fait copier coller dans worksheet ... Le clic droit est toujours activé ?

**Krovax** · 28/06/2009, 17h25

Dans le code de la feuille en question tu met le deuxième ou dans this workbook tu met le premier avec le bon nom de feuille

Tu fait un clique droit ou?

**mobiclick** · 28/06/2009, 17h41

Désolé de t'importuner mais ça ne marche pas... Je suis étonné car tu n'es pas le seul à me dire le contraire...

Je prends ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

et je le place dans le code de la feuille, c'est à dire que je double clic sur la feuille dans vbe et je colle le code en question.

Normalement c'est ça ?

**aalex_38** · 29/06/2009, 13h42

et je le place dans le code de la feuille, c'est à dire que je double clic sur la feuille dans vbe et je colle le code en question.

Normalement c'est ça ?

non ce n'est pas ça, tu vas dans le code de la feuille et tu choisi worksheet dans la liste en haut à gauche et Befordoubleclick dans la liste de droite, le code s'ecrit tout seul !

**mobiclick** · 29/06/2009, 19h04

MERCI A TOUS
Franchement je suis un peu désemparé je n'arrive pas à trouver ou mettre le code

**Krovax** · 29/06/2009, 19h37

De la lecture avec de jolie image pour bien comprendre

http://silkyroad.developpez.com/VBA/EvenementsClasseur/
et ici
http://silkyroad.developpez.com/VBA/EvenementsFeuille/

**mobiclick** · 29/06/2009, 20h00

MERCI KROVAX
Tu sais mon probleme c'est d'empecher la suppression d'une feuille bien précise de mon classeur .le code que j'ai testé plus haut désactive le clic droit sur une cellule mais lorsque je clic droit sur l'onglet feuille et bien il fonctionne tjr.Au fait je voudrais juste virer l'option "supprimer" du menu contextuel clic droit sur l'onglet feuille comme ça je suis sur que ma feuille ne sera pas supprimé malencontreusement.mon classeur est ouvert aux autres utilisateurs.merci d'avoir lu et excuse mon insistance.

**laetitia** · 29/06/2009, 22h35

re le fil tu peus t' orienter comme cela en bloquant la sauvegarde si la feuille est supprimer!! en attendant de trouver une réponse
dans l'exemple je prends la feuille3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If F(ThisWorkbook, "feuil3") Then
ThisWorkbook.Save
Else
MsgBox "attention vous avez supprimer la feuille3 donc pas de sauvegarde!!!"
Cancel = True
End If
End Sub
Function F(wk As Workbook, Feuille) As Boolean
On Error Resume Next
F = Not (wk.Sheets(Feuille) Is Nothing)
End Function

**mobiclick** · 01/07/2009, 01h25

bonjour au forum

Pouvez-vous me dire ou placer ce code qui interdit une sauvegarde si une condition n'est pas vérifiée.voici le code postée par Laetitia

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If F(ThisWorkbook, "feuil3") Then
ThisWorkbook.Save
Else
MsgBox "attention vous avez supprimer la feuille3 donc pas de sauvegarde!!!"
Cancel = True
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function F(wk As Workbook, Feuille) As Boolean
On Error Resume Next
F = Not (wk.Sheets(Feuille) Is Nothing)
End Function

merci de votre aide

**Krovax** · 01/07/2009, 08h36

Le option explicite doit être placé tout en haut du module en toute première ligne il force a déclarer les variables dans le module en question
De la lecture a ce sujet :
http://mhubiche.developpez.com/Access/variables/

**laetitia** · 01/07/2009, 08h37

re le fil le code tu le mets dans Thisworkbook

option explicit sert a declarer les variables explicitement!! si tu as pas de variables dans Thisworkbook pas indispensable par curiosite regarde l aide sur option explicit. personnellement je le mets au debut de chaque module standard module de classe ect...
si tu as deja du code dans Thisworkbook
tu as pas le droit d ' avoir 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part