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, Ceci peut-être: '---- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.HasPassword = False Then MsgBox "Ce classeur n'est pas protéger par un mot de passe" End Sub '----------- -- Salutations JJ
"Martin Leblanc" a écrit dans le message de news:
Un beau bonjour du Québec !!!
Je veux qu'un fichier soit toujours protégé quand nous l'envoyons à des clients.
J'aimerais avoir une macro qui me dirait un message à l'enregitrement du fichier SI il n'y a pas de protection...
J'ai tenté avec des formules d'information, mais rien ne marche. Il ne me reste que le VBA et j'ai besoin d'aide !
-- merci infiniment !
Bonsoir,
Ceci peut-être:
'----
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If ActiveWorkbook.HasPassword = False Then MsgBox "Ce classeur n'est pas
protéger par un mot de passe"
End Sub
'-----------
--
Salutations
JJ
"Martin Leblanc" <MartinLeblanc@discussions.microsoft.com> a écrit dans le
message de news: 14ED4748-91D9-423F-A076-9ADB00E06D08@microsoft.com...
Un beau bonjour du Québec !!!
Je veux qu'un fichier soit toujours protégé quand nous l'envoyons à des
clients.
J'aimerais avoir une macro qui me dirait un message à l'enregitrement du
fichier SI il n'y a pas de protection...
J'ai tenté avec des formules d'information, mais rien ne marche. Il ne me
reste que le VBA et j'ai besoin d'aide !
Bonsoir, Ceci peut-être: '---- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.HasPassword = False Then MsgBox "Ce classeur n'est pas protéger par un mot de passe" End Sub '----------- -- Salutations JJ
"Martin Leblanc" a écrit dans le message de news:
Un beau bonjour du Québec !!!
Je veux qu'un fichier soit toujours protégé quand nous l'envoyons à des clients.
J'aimerais avoir une macro qui me dirait un message à l'enregitrement du fichier SI il n'y a pas de protection...
J'ai tenté avec des formules d'information, mais rien ne marche. Il ne me reste que le VBA et j'ai besoin d'aide !
-- merci infiniment !
Martin Leblanc
Merci !!! J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille (protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
-- merci infiniment !
Bonsoir, Ceci peut-être: '---- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.HasPassword = False Then MsgBox "Ce classeur n'est pas protéger par un mot de passe" End Sub '----------- -- Salutations JJ
"Martin Leblanc" a écrit dans le message de news:
Un beau bonjour du Québec !!!
Je veux qu'un fichier soit toujours protégé quand nous l'envoyons à des clients.
J'aimerais avoir une macro qui me dirait un message à l'enregitrement du fichier SI il n'y a pas de protection...
J'ai tenté avec des formules d'information, mais rien ne marche. Il ne me reste que le VBA et j'ai besoin d'aide !
-- merci infiniment !
Merci !!!
J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent
pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille
(protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est
pas protéger par un mot de passe"
End Sub
--
merci infiniment !
Bonsoir,
Ceci peut-être:
'----
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If ActiveWorkbook.HasPassword = False Then MsgBox "Ce classeur n'est pas
protéger par un mot de passe"
End Sub
'-----------
--
Salutations
JJ
"Martin Leblanc" <MartinLeblanc@discussions.microsoft.com> a écrit dans le
message de news: 14ED4748-91D9-423F-A076-9ADB00E06D08@microsoft.com...
Un beau bonjour du Québec !!!
Je veux qu'un fichier soit toujours protégé quand nous l'envoyons à des
clients.
J'aimerais avoir une macro qui me dirait un message à l'enregitrement du
fichier SI il n'y a pas de protection...
J'ai tenté avec des formules d'information, mais rien ne marche. Il ne me
reste que le VBA et j'ai besoin d'aide !
Merci !!! J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille (protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
-- merci infiniment !
Bonsoir, Ceci peut-être: '---- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.HasPassword = False Then MsgBox "Ce classeur n'est pas protéger par un mot de passe" End Sub '----------- -- Salutations JJ
"Martin Leblanc" a écrit dans le message de news:
Un beau bonjour du Québec !!!
Je veux qu'un fichier soit toujours protégé quand nous l'envoyons à des clients.
J'aimerais avoir une macro qui me dirait un message à l'enregitrement du fichier SI il n'y a pas de protection...
J'ai tenté avec des formules d'information, mais rien ne marche. Il ne me reste que le VBA et j'ai besoin d'aide !
-- merci infiniment !
isabelle
bonjour Mardtin,
il faut que "MsgBox "Ce classeur n'est pas protéger par un mot de passe" soit sur la même ligne que "If"
isabelle
Merci !!! J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille (protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
bonjour Mardtin,
il faut que "MsgBox "Ce classeur n'est pas protéger par un mot de passe"
soit sur la même ligne que "If"
isabelle
Merci !!!
J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent
pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille
(protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est
pas protéger par un mot de passe"
il faut que "MsgBox "Ce classeur n'est pas protéger par un mot de passe" soit sur la même ligne que "If"
isabelle
Merci !!! J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille (protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
Martin Leblanc
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
-- merci infiniment !
bonjour Mardtin,
il faut que "MsgBox "Ce classeur n'est pas protéger par un mot de passe" soit sur la même ligne que "If"
isabelle
Merci !!! J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille (protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est
pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
--
merci infiniment !
bonjour Mardtin,
il faut que "MsgBox "Ce classeur n'est pas protéger par un mot de passe"
soit sur la même ligne que "If"
isabelle
Merci !!!
J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent
pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille
(protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est
pas protéger par un mot de passe"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
-- merci infiniment !
bonjour Mardtin,
il faut que "MsgBox "Ce classeur n'est pas protéger par un mot de passe" soit sur la même ligne que "If"
isabelle
Merci !!! J'ai beau essayer, j'ai un msg "expected end sub"
C'est pourtant bel et bien écris, à moins que mes yeux de gars ne veulent pas le voir ;) Je tente d'avoir un mot de passe qui protègerait la feuille (protect sheet), au lieu d'avoir un mot de passe pour le classeur au complet
Voici ce que j'ai Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
isabelle
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False
par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est
pas protéger par un mot de passe"
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
Martin Leblanc
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
-- merci infiniment !
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos
clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le
classeur. Je tente d'avoir un message d'avertissement quand on enregistre
disant que le fichier n'est pas protégé.
Merci sincère !
--
merci infiniment !
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False
par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est
pas protéger par un mot de passe"
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
-- merci infiniment !
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
isabelle
ça ne répond pas vraiment à ma question, mais peut tu réessyer cette macro de Jacky,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As _ Boolean, Cancel As Boolean) If ActiveWorkbook.HasPassword = False Then _ MsgBox "Ce classeur n'est pas protéger par un mot de passe" End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
ça ne répond pas vraiment à ma question,
mais peut tu réessyer cette macro de Jacky,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As _
Boolean, Cancel As Boolean)
If ActiveWorkbook.HasPassword = False Then _
MsgBox "Ce classeur n'est pas protéger par un mot de passe"
End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos
clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le
classeur. Je tente d'avoir un message d'avertissement quand on enregistre
disant que le fichier n'est pas protégé.
ça ne répond pas vraiment à ma question, mais peut tu réessyer cette macro de Jacky,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As _ Boolean, Cancel As Boolean) If ActiveWorkbook.HasPassword = False Then _ MsgBox "Ce classeur n'est pas protéger par un mot de passe" End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
Jacky
Re... Enregitrer sous et.... Protège le classeur en lecture seule
Salutations JJ
"Martin Leblanc" a écrit dans le message de news:
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
-- merci infiniment !
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
Re...
Enregitrer sous et....
Protège le classeur en lecture seule
Salutations
JJ
"Martin Leblanc" <MartinLeblanc@discussions.microsoft.com> a écrit dans le
message de news: 2AB78B7C-D792-4547-8734-679405B0D853@microsoft.com...
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos
clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le
classeur. Je tente d'avoir un message d'avertissement quand on enregistre
disant que le fichier n'est pas protégé.
Merci sincère !
--
merci infiniment !
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False
par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolea
If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur
n'est
pas protéger par un mot de passe"
Re... Enregitrer sous et.... Protège le classeur en lecture seule
Salutations JJ
"Martin Leblanc" a écrit dans le message de news:
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
-- merci infiniment !
pourquoi as tu modifier la ligne de la macro de Jacky
ActiveWorkbook.HasPassword = False par
ActiveWorkbook.Protect Structure:úlse
isabelle
Bonjour Isabelle
Merci d'avoir pris le temps, c'est apprécié !
Le tout est sur la même ligne, juré ;)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolea If ActiveWorkbook.Protect Structure:úlse Then MsgBox "Ce classeur n'est pas protéger par un mot de passe"
Si quelqu'un a une idée, laissez vous aller ;)
End Sub
isabelle
une autre solution serait de protéger automatiquement lors de la fermeture du classeur,
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Protect Password:="zaza", Structure:=True, Windows:=True End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
une autre solution serait de protéger automatiquement lors de la fermeture du classeur,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Protect Password:="zaza", Structure:=True, Windows:=True
End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos
clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le
classeur. Je tente d'avoir un message d'avertissement quand on enregistre
disant que le fichier n'est pas protégé.
une autre solution serait de protéger automatiquement lors de la fermeture du classeur,
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Protect Password:="zaza", Structure:=True, Windows:=True End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
Martin Leblanc
J'ai tout essayé !!!
J'ai un message "ambigous name detected Workbook_beforeClose"
J'ai copié collé la même chose, même que l'aide donne le même exemple !
J'abandonne ;)
-- merci infiniment !
une autre solution serait de protéger automatiquement lors de la fermeture du classeur,
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Protect Password:="zaza", Structure:=True, Windows:=True End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
Merci sincère !
J'ai tout essayé !!!
J'ai un message "ambigous name detected Workbook_beforeClose"
J'ai copié collé la même chose, même que l'aide donne le même exemple !
J'abandonne ;)
--
merci infiniment !
une autre solution serait de protéger automatiquement lors de la fermeture du classeur,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Protect Password:="zaza", Structure:=True, Windows:=True
End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos
clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le
classeur. Je tente d'avoir un message d'avertissement quand on enregistre
disant que le fichier n'est pas protégé.
J'ai un message "ambigous name detected Workbook_beforeClose"
J'ai copié collé la même chose, même que l'aide donne le même exemple !
J'abandonne ;)
-- merci infiniment !
une autre solution serait de protéger automatiquement lors de la fermeture du classeur,
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Protect Password:="zaza", Structure:=True, Windows:=True End Sub
isabelle
Bonjour !
C'est que le fichier doit pouvoir être ouvert par n'importe qui (nos clients) et certains onglets sont cachés.
On doit masquer les onglets et utiliser un bouton, protect workbook.
Cela arrive que l'on masque les onglets mais on oublie de protéger le classeur. Je tente d'avoir un message d'avertissement quand on enregistre disant que le fichier n'est pas protégé.
