Dans un fichier constitu=E9 de plusieurs onglets, j'ai un onglet que je vou=
drais r=E9server =E0 certaines personnes. Pour ce faire, j'aimerais que si =
un personne consulte l'onglet en question une popup ou box s'ouvre pour ind=
iquer "Cette feuille est r=E9serv=E9e au Secr=E9tariat G=E9n=E9ral, merci d=
e ne rien modifier/ajouter".
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
Jacky
Bonsoir
Protéger la feuille par mot de passe ....devrait faire l'affaire Outil/protection (xl2003)
-- Salutations JJ
"Mathieu" a écrit dans le message de news:
Bonjour,
Dans un fichier constitué de plusieurs onglets, j'ai un onglet que je voudrais réserver à certaines personnes. Pour ce faire, j'aimerais que si un personne consulte l'onglet en question une popup ou box s'ouvre pour indiquer "Cette feuille est réservée au Secrétariat Général, merci de ne rien modifier/ajouter".
Est-ce possible ?
Par avance merci à vous ;-)
Bonsoir
Protéger la feuille par mot de passe ....devrait faire l'affaire
Outil/protection (xl2003)
--
Salutations
JJ
"Mathieu" <christophe.lenoire@gmail.com> a écrit dans le message de news:
288271b4-b7f9-4cd8-9af8-563aef597720@googlegroups.com...
Bonjour,
Dans un fichier constitué de plusieurs onglets, j'ai un onglet que je voudrais réserver à certaines personnes.
Pour ce faire, j'aimerais que si un personne consulte l'onglet en question une popup ou box s'ouvre pour
indiquer "Cette feuille est réservée au Secrétariat Général, merci de ne rien modifier/ajouter".
Protéger la feuille par mot de passe ....devrait faire l'affaire Outil/protection (xl2003)
-- Salutations JJ
"Mathieu" a écrit dans le message de news:
Bonjour,
Dans un fichier constitué de plusieurs onglets, j'ai un onglet que je voudrais réserver à certaines personnes. Pour ce faire, j'aimerais que si un personne consulte l'onglet en question une popup ou box s'ouvre pour indiquer "Cette feuille est réservée au Secrétariat Général, merci de ne rien modifier/ajouter".
Est-ce possible ?
Par avance merci à vous ;-)
MichD
Bonjour,
Pour afficher le message désiré lorsqu'un usager sélectionne ladite feuille, copie la procédure suivante dans le THISWORKBOOK du projetVBA de ton classeur.
Attention, dans la procédure, "feuil1" n'est pas le nom de l'onglet de la feuille, mais la propriété "Name" de l'objet Feuille visible seulement dans l'environnement de la fenêtre de l'éditeur de code VBA.
Tu peux protéger la feuille en plus si tu le juges nécessaire!
'------------------------------------ Private Sub Workbook_SheetActivate(ByVal Sh As Object) If LCase(Sh.CodeName) = "feuil1" Then MsgBox "Cette feuille est réservée au " & _ "Secrétariat Général, merci de ne rien modifier/ajouter.", vbCrLf & _ vbInformation + vbOKOnly, "La direction..." End If End Sub '------------------------------------
Bonjour,
Pour afficher le message désiré lorsqu'un usager sélectionne ladite feuille,
copie la procédure suivante dans le THISWORKBOOK du projetVBA de ton
classeur.
Attention, dans la procédure, "feuil1" n'est pas le nom de l'onglet de la
feuille,
mais la propriété "Name" de l'objet Feuille visible seulement dans
l'environnement de la fenêtre de l'éditeur de code VBA.
Tu peux protéger la feuille en plus si tu le juges nécessaire!
'------------------------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.CodeName) = "feuil1" Then
MsgBox "Cette feuille est réservée au " & _
"Secrétariat Général, merci de ne rien modifier/ajouter.", vbCrLf & _
vbInformation + vbOKOnly, "La direction..."
End If
End Sub
'------------------------------------
Pour afficher le message désiré lorsqu'un usager sélectionne ladite feuille, copie la procédure suivante dans le THISWORKBOOK du projetVBA de ton classeur.
Attention, dans la procédure, "feuil1" n'est pas le nom de l'onglet de la feuille, mais la propriété "Name" de l'objet Feuille visible seulement dans l'environnement de la fenêtre de l'éditeur de code VBA.
Tu peux protéger la feuille en plus si tu le juges nécessaire!
'------------------------------------ Private Sub Workbook_SheetActivate(ByVal Sh As Object) If LCase(Sh.CodeName) = "feuil1" Then MsgBox "Cette feuille est réservée au " & _ "Secrétariat Général, merci de ne rien modifier/ajouter.", vbCrLf & _ vbInformation + vbOKOnly, "La direction..." End If End Sub '------------------------------------
LSteph
Bonjour,
En plus de protection. Dans le thisworkbook prévoir sur open la vérification de Environ("UserName") dans un Select Case cela t'obligera à gerer toutefois le turn over du SG dans une liste. Si le user en fait partie tu rends la feuille xlvisible au lieu de xlveryhidden.
Penser à remettre le masquage dans le beforesave.
-- LSteph
"Mathieu" a écrit dans le message de news: Bonjour,
Dans un fichier constitué de plusieurs onglets, j'ai un onglet que je voudrais réserver à certaines personnes. Pour ce faire, j'aimerais que si un personne consulte l'onglet en question une popup ou box s'ouvre pour indiquer "Cette feuille est réservée au Secrétariat Général, merci de ne rien modifier/ajouter".
Est-ce possible ?
Par avance merci à vous ;-)
Bonjour,
En plus de protection.
Dans le thisworkbook prévoir sur open la vérification de
Environ("UserName") dans un Select Case
cela t'obligera à gerer toutefois le turn over du SG dans une liste. Si le
user en fait partie tu rends la feuille xlvisible au lieu de xlveryhidden.
Penser à remettre le masquage dans le beforesave.
--
LSteph
"Mathieu" <christophe.lenoire@gmail.com> a écrit dans le message de
news:288271b4-b7f9-4cd8-9af8-563aef597720@googlegroups.com...
Bonjour,
Dans un fichier constitué de plusieurs onglets, j'ai un onglet que je
voudrais réserver à certaines personnes. Pour ce faire, j'aimerais que si un
personne consulte l'onglet en question une popup ou box s'ouvre pour
indiquer "Cette feuille est réservée au Secrétariat Général, merci de ne
rien modifier/ajouter".
En plus de protection. Dans le thisworkbook prévoir sur open la vérification de Environ("UserName") dans un Select Case cela t'obligera à gerer toutefois le turn over du SG dans une liste. Si le user en fait partie tu rends la feuille xlvisible au lieu de xlveryhidden.
Penser à remettre le masquage dans le beforesave.
-- LSteph
"Mathieu" a écrit dans le message de news: Bonjour,
Dans un fichier constitué de plusieurs onglets, j'ai un onglet que je voudrais réserver à certaines personnes. Pour ce faire, j'aimerais que si un personne consulte l'onglet en question une popup ou box s'ouvre pour indiquer "Cette feuille est réservée au Secrétariat Général, merci de ne rien modifier/ajouter".
