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
michdenis
Bonsoir Jean-François,
Et oui, ce bémol existe bien. Merci. Mais il peut facilement contourner en modifiant la procédure comme suit au besoin :
'---------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each S In ActiveWindow.SelectedSheets If S.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Exit Sub Else ThisWorkbook.Unprotect "toto" End If Next
End Sub '----------------------
Salutations!
"Jean-François Aubert" <à a écrit dans le message de news: Bonsoir,
Attention, petit bémol: ne fonctionne pas si la feuil3 fait partie d'une selection multiple de feuilles.
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"michdenis" a écrit dans le message de news:%
Bonjour GuyD,
Essaie quelque chose du genre :
À copier dans le ThisWorkbook de ton projet
Attention : tu dois remplacer la procédure le nom de la feuille "Feuil3" par celle de ton application.
Tu dois respecter la casse Dans la procédure : le mot "toto" représente le mot de passe.
'-------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Else ThisWorkbook.Unprotect "toto" End If
End Sub '--------------------------
Salutations!
"GuyD" a écrit dans le message de news:02ae01c36b4a$0ea0d880$
J'aimerais protéger une feuille de mon classeur afin de ne pas la supprimer et avoir la possibilité de supprimer les autres.
Bonsoir Jean-François,
Et oui, ce bémol existe bien. Merci. Mais il peut facilement contourner en modifiant la procédure comme suit au besoin :
'----------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each S In ActiveWindow.SelectedSheets
If S.Name = "Feuil3" Then
ThisWorkbook.Protect "toto", True, True
Exit Sub
Else
ThisWorkbook.Unprotect "toto"
End If
Next
End Sub
'----------------------
Salutations!
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de news:3f4a9a59_5@news.bluewin.ch...
Bonsoir,
Attention, petit bémol:
ne fonctionne pas si la feuil3 fait partie d'une selection multiple de feuilles.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23wjd190aDHA.2580@TK2MSFTNGP09.phx.gbl...
Bonjour GuyD,
Essaie quelque chose du genre :
À copier dans le ThisWorkbook de ton projet
Attention : tu dois remplacer la procédure le nom de la feuille "Feuil3" par celle de ton
application.
Tu dois respecter la casse
Dans la procédure : le mot "toto" représente le mot de passe.
'--------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then
ThisWorkbook.Protect "toto", True, True
Else
ThisWorkbook.Unprotect "toto"
End If
End Sub
'--------------------------
Salutations!
"GuyD" <desbiens.guy@nospam.lte.ireq.ca> a écrit dans le message de
news:02ae01c36b4a$0ea0d880$a601280a@phx.gbl...
J'aimerais protéger une feuille de mon classeur afin de ne
pas la supprimer et avoir la possibilité de supprimer les
autres.
Et oui, ce bémol existe bien. Merci. Mais il peut facilement contourner en modifiant la procédure comme suit au besoin :
'---------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each S In ActiveWindow.SelectedSheets If S.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Exit Sub Else ThisWorkbook.Unprotect "toto" End If Next
End Sub '----------------------
Salutations!
"Jean-François Aubert" <à a écrit dans le message de news: Bonsoir,
Attention, petit bémol: ne fonctionne pas si la feuil3 fait partie d'une selection multiple de feuilles.
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"michdenis" a écrit dans le message de news:%
Bonjour GuyD,
Essaie quelque chose du genre :
À copier dans le ThisWorkbook de ton projet
Attention : tu dois remplacer la procédure le nom de la feuille "Feuil3" par celle de ton application.
Tu dois respecter la casse Dans la procédure : le mot "toto" représente le mot de passe.
'-------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Else ThisWorkbook.Unprotect "toto" End If
End Sub '--------------------------
Salutations!
"GuyD" a écrit dans le message de news:02ae01c36b4a$0ea0d880$
J'aimerais protéger une feuille de mon classeur afin de ne pas la supprimer et avoir la possibilité de supprimer les autres.
Jean-François Aubert
Salut Denis,
J'avais bien tenté, en vain, de dénicher dans l'aide quelque chose sur "Selected". Je mets illico ton truc en réserve.
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"michdenis" a écrit dans le message de news:
Bonsoir Jean-François,
Et oui, ce bémol existe bien. Merci. Mais il peut facilement contourner en modifiant la procédure comme suit au besoin :
'---------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each S In ActiveWindow.SelectedSheets If S.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Exit Sub Else ThisWorkbook.Unprotect "toto" End If Next
End Sub '----------------------
Salutations!
"Jean-François Aubert" <à a écrit dans le message de news:
Bonsoir,
Attention, petit bémol: ne fonctionne pas si la feuil3 fait partie d'une selection multiple de feuilles.
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"michdenis" a écrit dans le message de news:%
Bonjour GuyD,
Essaie quelque chose du genre :
À copier dans le ThisWorkbook de ton projet
Attention : tu dois remplacer la procédure le nom de la feuille "Feuil3" par celle de ton application.
Tu dois respecter la casse Dans la procédure : le mot "toto" représente le mot de passe.
'-------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Else ThisWorkbook.Unprotect "toto" End If
End Sub '--------------------------
Salutations!
"GuyD" a écrit dans le message de news:02ae01c36b4a$0ea0d880$
J'aimerais protéger une feuille de mon classeur afin de ne pas la supprimer et avoir la possibilité de supprimer les autres.
Salut Denis,
J'avais bien tenté, en vain, de dénicher dans l'aide quelque chose sur "Selected".
Je mets illico ton truc en réserve.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:OtxQAR2aDHA.2580@TK2MSFTNGP09.phx.gbl...
Bonsoir Jean-François,
Et oui, ce bémol existe bien. Merci. Mais il peut facilement contourner en modifiant la procédure
comme suit au besoin :
'----------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each S In ActiveWindow.SelectedSheets
If S.Name = "Feuil3" Then
ThisWorkbook.Protect "toto", True, True
Exit Sub
Else
ThisWorkbook.Unprotect "toto"
End If
Next
End Sub
'----------------------
Salutations!
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news:3f4a9a59_5@news.bluewin.ch...
Bonsoir,
Attention, petit bémol:
ne fonctionne pas si la feuil3 fait partie d'une selection multiple de feuilles.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23wjd190aDHA.2580@TK2MSFTNGP09.phx.gbl...
Bonjour GuyD,
Essaie quelque chose du genre :
À copier dans le ThisWorkbook de ton projet
Attention : tu dois remplacer la procédure le nom de la feuille "Feuil3" par celle de ton
application.
Tu dois respecter la casse
Dans la procédure : le mot "toto" représente le mot de passe.
'--------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then
ThisWorkbook.Protect "toto", True, True
Else
ThisWorkbook.Unprotect "toto"
End If
End Sub
'--------------------------
Salutations!
"GuyD" <desbiens.guy@nospam.lte.ireq.ca> a écrit dans le message de
news:02ae01c36b4a$0ea0d880$a601280a@phx.gbl...
J'aimerais protéger une feuille de mon classeur afin de ne
pas la supprimer et avoir la possibilité de supprimer les
autres.
J'avais bien tenté, en vain, de dénicher dans l'aide quelque chose sur "Selected". Je mets illico ton truc en réserve.
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"michdenis" a écrit dans le message de news:
Bonsoir Jean-François,
Et oui, ce bémol existe bien. Merci. Mais il peut facilement contourner en modifiant la procédure comme suit au besoin :
'---------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each S In ActiveWindow.SelectedSheets If S.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Exit Sub Else ThisWorkbook.Unprotect "toto" End If Next
End Sub '----------------------
Salutations!
"Jean-François Aubert" <à a écrit dans le message de news:
Bonsoir,
Attention, petit bémol: ne fonctionne pas si la feuil3 fait partie d'une selection multiple de feuilles.
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"michdenis" a écrit dans le message de news:%
Bonjour GuyD,
Essaie quelque chose du genre :
À copier dans le ThisWorkbook de ton projet
Attention : tu dois remplacer la procédure le nom de la feuille "Feuil3" par celle de ton application.
Tu dois respecter la casse Dans la procédure : le mot "toto" représente le mot de passe.
'-------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil3" Then ThisWorkbook.Protect "toto", True, True Else ThisWorkbook.Unprotect "toto" End If
End Sub '--------------------------
Salutations!
"GuyD" a écrit dans le message de news:02ae01c36b4a$0ea0d880$
J'aimerais protéger une feuille de mon classeur afin de ne pas la supprimer et avoir la possibilité de supprimer les autres.