Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Salut Thomas, Il suffit de rendre inactif les contrôles qui permettent de supprimer une feuille quand celle que tu ne veux pas supprimer est activée. A mettre dans le module du thisworkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim Active As Boolean If Sh.Name = "Feuil1" Then Active = False Else Active = True Application.CommandBars("Worksheet Menu Bar") _ .Controls("&Edition") _ .Controls("Suppri&mer une feuille") _ .Enabled = Active Application.CommandBars("Ply") _ .Controls("&Supprimer") _ .Enabled = Active End Sub
Hervé.
"thomas" a écrit dans le message news: 0b3901c351c3$32d8d6d0$
Bonjour,
Est-ce possible de proteger une seule feuille d'un classeur de la suppression?
Thomas.
Salut Thomas,
Il suffit de rendre inactif les contrôles qui permettent de supprimer une
feuille quand celle que tu ne veux pas supprimer est activée. A mettre dans
le module du thisworkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Active As Boolean
If Sh.Name = "Feuil1" Then Active = False Else Active = True
Application.CommandBars("Worksheet Menu Bar") _
.Controls("&Edition") _
.Controls("Suppri&mer une feuille") _
.Enabled = Active
Application.CommandBars("Ply") _
.Controls("&Supprimer") _
.Enabled = Active
End Sub
Hervé.
"thomas" <thomas.berson@ifrance.com> a écrit dans le message news:
0b3901c351c3$32d8d6d0$a301280a@phx.gbl...
Bonjour,
Est-ce possible de proteger une seule feuille d'un
classeur de la suppression?
Salut Thomas, Il suffit de rendre inactif les contrôles qui permettent de supprimer une feuille quand celle que tu ne veux pas supprimer est activée. A mettre dans le module du thisworkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim Active As Boolean If Sh.Name = "Feuil1" Then Active = False Else Active = True Application.CommandBars("Worksheet Menu Bar") _ .Controls("&Edition") _ .Controls("Suppri&mer une feuille") _ .Enabled = Active Application.CommandBars("Ply") _ .Controls("&Supprimer") _ .Enabled = Active End Sub
Hervé.
"thomas" a écrit dans le message news: 0b3901c351c3$32d8d6d0$
Bonjour,
Est-ce possible de proteger une seule feuille d'un classeur de la suppression?
Thomas.
thomas
Merci à toi Hervé. :)
-----Message d'origine----- Salut Thomas, Il suffit de rendre inactif les contrôles qui permettent de supprimer une
feuille quand celle que tu ne veux pas supprimer est activée. A mettre dans
le module du thisworkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim Active As Boolean If Sh.Name = "Feuil1" Then Active = False Else Active = True
Application.CommandBars("Worksheet Menu Bar") _ .Controls("&Edition") _ .Controls("Suppri&mer une feuille") _ .Enabled = Active Application.CommandBars("Ply") _ .Controls("&Supprimer") _ .Enabled = Active End Sub
Hervé.
"thomas" a écrit dans le message news:
0b3901c351c3$32d8d6d0$
Bonjour,
Est-ce possible de proteger une seule feuille d'un classeur de la suppression?
Thomas.
.
Merci à toi Hervé. :)
-----Message d'origine-----
Salut Thomas,
Il suffit de rendre inactif les contrôles qui permettent
de supprimer une
feuille quand celle que tu ne veux pas supprimer est
activée. A mettre dans
le module du thisworkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Active As Boolean
If Sh.Name = "Feuil1" Then Active = False Else Active =
True
Application.CommandBars("Worksheet Menu Bar") _
.Controls("&Edition") _
.Controls("Suppri&mer une feuille") _
.Enabled = Active
Application.CommandBars("Ply") _
.Controls("&Supprimer") _
.Enabled = Active
End Sub
Hervé.
"thomas" <thomas.berson@ifrance.com> a écrit dans le
message news:
0b3901c351c3$32d8d6d0$a301280a@phx.gbl...
Bonjour,
Est-ce possible de proteger une seule feuille d'un
classeur de la suppression?
-----Message d'origine----- Salut Thomas, Il suffit de rendre inactif les contrôles qui permettent de supprimer une
feuille quand celle que tu ne veux pas supprimer est activée. A mettre dans
le module du thisworkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim Active As Boolean If Sh.Name = "Feuil1" Then Active = False Else Active = True
Application.CommandBars("Worksheet Menu Bar") _ .Controls("&Edition") _ .Controls("Suppri&mer une feuille") _ .Enabled = Active Application.CommandBars("Ply") _ .Controls("&Supprimer") _ .Enabled = Active End Sub
Hervé.
"thomas" a écrit dans le message news:
0b3901c351c3$32d8d6d0$
Bonjour,
Est-ce possible de proteger une seule feuille d'un classeur de la suppression?
Thomas.
.
AV
Pour éviter la suppression manuelle ou par macro : Dans le module de ThisWorkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Feuil1" Then ActiveWorkbook.Protect Else ActiveWorkbook.Unprotect End Sub
AV
"thomas" a écrit dans le message news: 0b3901c351c3$32d8d6d0$
Bonjour,
Est-ce possible de proteger une seule feuille d'un classeur de la suppression?
Thomas.
Pour éviter la suppression manuelle ou par macro :
Dans le module de ThisWorkbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then ActiveWorkbook.Protect Else ActiveWorkbook.Unprotect
End Sub
AV
"thomas" <thomas.berson@ifrance.com> a écrit dans le message news:
0b3901c351c3$32d8d6d0$a301280a@phx.gbl...
Bonjour,
Est-ce possible de proteger une seule feuille d'un
classeur de la suppression?
