Interdire la suppression de feuilles

vbacrumble

XLDnaute Accro

• 3 Décembre 2008

• #2

Re : Interdire la suppression de feuilles

Bjr

Code:

Sub supfnosupf()
Dim cmbo As CommandBar
Set cmbo = Application.CommandBars("Worksheet Menu Bar")
cmbo.Controls("Edition").Controls("Supprimer une feuille").Enabled = _
Not cmbo.Controls("Edition").Controls("Supprimer une feuille").Enabled
End Sub

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2008

• #3

Re : Interdire la suppression de feuilles

Bonjour à tous,

Pourquoi ne pas protéger le classeur ?

Pour les macros, il suffirait d'ôter - provisoirement - cette protection...

A+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 3 Décembre 2008

• #4

Re : Interdire la suppression de feuilles

Bonjour à tous,

d'accord avec job75, le plus simple est de déprotéger le classeur dans la macro, puis de le reprotéger...

Code:

ThisWorkbook.Unprotect Password:="toto"
'Ton code
ThisWorkbook.Protect Password:="toto", Structure:=True, Windows:=False

J'ai également vu un fichier qui empêchait le click droit sur la feuille

Cliquez pour agrandir...

intéressant... tu peux nous poster le code qui empêche le clic droit sur un onglet ?

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 3 Décembre 2008

• #5

Re : Interdire la suppression de feuilles

Bonjour Aimedjie, vbacrumble, job75, tototiti2008, le Forum,
Je crois que c'est de ceci que parle Aimedjie :

'Pour désactiver le menu clic droit sur onglet
Application.CommandBars("Ply").Enabled = False

'Pour le rétablir
Application.CommandBars("Ply").Enabled = True

Bonne journée à tous

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 3 Décembre 2008

• #6

Re : Interdire la suppression de feuilles

Re,
Bonjour NoviceAG,

Merci du tuyau 🙂

 

Vote positif 0 Vote négatif