Discussion :

[vsobo]

bonjour
au travail , j'ai eu une mauvaise surprise ,un collègue a réussi a me supprimer une feuille dans un classeur
je voudrai interdire la suppression d'une feuille
j'ai été dans outils ,protection classeur, protéger structure, mais avec les macros , ça bloque (j'ai des macros qui font changer de couleur les onglets suivant conditions)
comment est-ce que je peut faire?
merci

[Qwazerty]

Salut
Peut être en protégeant ton classeur complet

Code :

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

1
2
3
4
5
6
 
'Au début de ta macro, tu dé-protèges ton classeur
workbooks("MonClasseur").UnProtect ...
'[...] Ici tu met les actions a effectuer
'et a la fin tu remet la protection
workbooks("MonClasseur").Protect ...

++
Qwaz

[vsobo]

bonjour
c'est compliqué , parce que la et les macros sont en fonction permanente
je voudrai juste qu'en faisant clic droit sur l'onglet , la fonction supprime, ou la touche supprime, ne soit plus valide
merci

[Minick]

Salut,

Un petit exemple
A l'ouverture

Code :

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

1
2
3
Private Sub Workbook_Open()
    Call SuppressionFeuille(False)
End Sub

A la fermeture

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call SuppressionFeuille(True)
End Sub

Et dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SuppressionFeuille(Activer As Boolean)
    Dim Ctrls As CommandBarControls
    Dim Ctrl As CommandBarButton
 
    Set Ctrls = Application.CommandBars.FindControls(ID:=847)
 
    For Each Ctrl In Ctrls
        Ctrl.OnAction = IIf(Activer, "", vbNull)
    Next Ctrl
End Sub

Tel quel, quand le fichier est ouvert on ne peut plus supprimer de feuille
quelque soit le classeur et a la fermeture tout redevient normal.
Pour ne bloquer que la suppression dans le classeur en question il faut changer
vbNull par le nom d'une macro (Entre guillemets) que tu feras et qui devra verifier dans quel classeur
on se trouve pour faire la suppression (par la macro) ou non.
Ca c'est pas bien complique.

[vsobo]

bonjour
j'ai essayé,c'est très bien,ça fonctionne,mais ça agit sur tous les fichier excels ouvert
juste pour un fichier concerné,je supose que c'est ce que tu as voulu dire remplacer vbnull par macro
de quel type?
merci

[Minick]

Salut,

C'est bien ce que je voulais dire.

Une autre solution plutot que de faire un test par macro...
En utilisant les evenements Activate et Deactivate du classeur

Change

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call SuppressionFeuille(True)
End Sub
Private Sub Workbook_Open()
    Call SuppressionFeuille(False)
End Sub

Par

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Activate()
    Call SuppressionFeuille(False)
End Sub
 
Private Sub Workbook_Deactivate()
    Call SuppressionFeuille(True)
End Sub