Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mouchard VBA EXCEL...

mouchard VBA EXCEL...

6 réponses
Avatar
Océane
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y insert les
dates et heures d'ouverture et de fermeture de mon fichier Ecel. Est-il
possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurez vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pa s de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:\Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:\Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
FxM
Bonsoir Océane, (joli prénom)

La macro ci-après, crée un fichier mouchard au format WORD
LogFile = "mouchard.doc"
Open LogFile For Append Shared As #1


Arrgh, ce n'est pas parce qu'un fichier a une extension .doc qu'il est
au format Word. En l'occurence, ça me semble être un bête fichier
texte. Or protéger un fichier texte de la lecture n'est pas simple car
ce n'est plus alors un fichier texte ...

(ne m'envoyez pas de mail SVP)
Si l'adresse que tu as indiquée est réelle, les robots vont prendre un

malin plaisir à noyer ta boîte mais nous n'y sommes pour rien :o(

@+
FxM





Océane wrote:
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y insère les
dates et heures d'ouverture et de fermeture de mon fichier Excel. Est-il
possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurai vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pas de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub


Avatar
j
ça fait un peu flic, non ?

pour protéger le fichier, tu peux toujours enregistrer le fichier Word avec
un mot de passe
mais pour ce faire, il faut
- que le fichier soit un vrai fichier Word (comme le dit fxm)
- que tu pilotes Word par une macro vba
- et évidemment que tu protèges ta macro vba (dans le fichier Excel) afin
que l'on ne puisse pas accéder au mot de passe qui s'y trouvera

attention toutefois, les protections ww ou xl par mot de passe ne sont pas
très solides, mais pire, rien n'empêchera l'utilisateur d'ouvrir ton
classeur Excel en désactivant les macros (et là, plus d'inscription au
registre...)
--

http://jacxl.free.fr/



"Océane" a écrit dans le message de news:
#
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y insert
les

dates et heures d'ouverture et de fermeture de mon fichier Ecel. Est-il
possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurez vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pa s de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub





Avatar
Océane
Bonjour,


J'ai bien compris mais, comment piloter un fichier WORD? Et puis de toutes
façons, les macros de ce classeur sont protégées (Optinnal factice As
String) Et le projet VBA l'est aussi.
Merci à vous deux (la société dans laquelle je travaille, ainsi que les
produits et formules que nous manipulons, sont bien trop délicats pour se
permettre une erreur...)
Merci quand même...

Océane

"" a écrit dans le message de news:

ça fait un peu flic, non ?

pour protéger le fichier, tu peux toujours enregistrer le fichier Word
avec

un mot de passe
mais pour ce faire, il faut
- que le fichier soit un vrai fichier Word (comme le dit fxm)
- que tu pilotes Word par une macro vba
- et évidemment que tu protèges ta macro vba (dans le fichier Excel) afin
que l'on ne puisse pas accéder au mot de passe qui s'y trouvera

attention toutefois, les protections ww ou xl par mot de passe ne sont pas
très solides, mais pire, rien n'empêchera l'utilisateur d'ouvrir ton
classeur Excel en désactivant les macros (et là, plus d'inscription au
registre...)
--

http://jacxl.free.fr/



"Océane" a écrit dans le message de news:
#
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y insert
les

dates et heures d'ouverture et de fermeture de mon fichier Ecel. Est-il
possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurez vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pa s de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1, "********************************************************"
Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"


Close #1
End Sub









Avatar
Dédé
Salut Océane !

Ce que je propose c'est de laisser ton fichier tel qu'il est sans plus de
protection mais utilise les options de protection en metière de réseau !!

Si tu met de fichier danbs un dossier qui lui-même sera sur une partition
NTFS tu pourra très bien contrôler qui pourra accéder à ton fichierpour le
modifier et qui pourra y accéder en lecture seule et tout et tout ...

Je pencherais plutôt vers le réseau pour résoudre ton problème ;-))

Vu mes connaissance de base avec les réseaux, je ne peux malheureusement pas
trop t'en dire plus ...

Dans l'espoir d'avoir pu te donner une solution ...

Salutations et bonne chance ;-))
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Océane" a écrit dans le message de
news:
Bonjour,


J'ai bien compris mais, comment piloter un fichier WORD? Et puis de toutes
façons, les macros de ce classeur sont protégées (Optinnal factice As
String) Et le projet VBA l'est aussi.
Merci à vous deux (la société dans laquelle je travaille, ainsi que les
produits et formules que nous manipulons, sont bien trop délicats pour se
permettre une erreur...)
Merci quand même...

Océane

"" a écrit dans le message de news:

ça fait un peu flic, non ?

pour protéger le fichier, tu peux toujours enregistrer le fichier Word
avec

un mot de passe
mais pour ce faire, il faut
- que le fichier soit un vrai fichier Word (comme le dit fxm)
- que tu pilotes Word par une macro vba
- et évidemment que tu protèges ta macro vba (dans le fichier Excel)
afin


que l'on ne puisse pas accéder au mot de passe qui s'y trouvera

attention toutefois, les protections ww ou xl par mot de passe ne sont
pas


très solides, mais pire, rien n'empêchera l'utilisateur d'ouvrir ton
classeur Excel en désactivant les macros (et là, plus d'inscription au
registre...)
--

http://jacxl.free.fr/



"Océane" a écrit dans le message de news:
#
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y
insert



les
dates et heures d'ouverture et de fermeture de mon fichier Ecel.
Est-il



possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurez vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pa s de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"



Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"


Close #1
End Sub













Avatar
j
piloter Word, mais avec vba bien sur !
jette un oeil sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#WWexXL
mais tu ferais mieux de mettre ton fichier log au format Excel, plus facile
à manipuler par vba...




"Océane" a écrit dans le message de news:

Bonjour,


J'ai bien compris mais, comment piloter un fichier WORD? Et puis de toutes
façons, les macros de ce classeur sont protégées (Optinnal factice As
String) Et le projet VBA l'est aussi.
Merci à vous deux (la société dans laquelle je travaille, ainsi que les
produits et formules que nous manipulons, sont bien trop délicats pour se
permettre une erreur...)
Merci quand même...

Océane

"" a écrit dans le message de news:

ça fait un peu flic, non ?

pour protéger le fichier, tu peux toujours enregistrer le fichier Word
avec

un mot de passe
mais pour ce faire, il faut
- que le fichier soit un vrai fichier Word (comme le dit fxm)
- que tu pilotes Word par une macro vba
- et évidemment que tu protèges ta macro vba (dans le fichier Excel)
afin


que l'on ne puisse pas accéder au mot de passe qui s'y trouvera

attention toutefois, les protections ww ou xl par mot de passe ne sont
pas


très solides, mais pire, rien n'empêchera l'utilisateur d'ouvrir ton
classeur Excel en désactivant les macros (et là, plus d'inscription au
registre...)
--

http://jacxl.free.fr/



"Océane" a écrit dans le message de news:
#
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y
insert



les
dates et heures d'ouverture et de fermeture de mon fichier Ecel.
Est-il



possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurez vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pa s de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"



Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"


Close #1
End Sub













Avatar
Océane
Bonjour,

Un grand merci pour la solution (je suis allée sur le site)
A bientôt.

Océane

"" a écrit dans le message de news:


piloter Word, mais avec vba bien sur !
jette un oeil sur
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#WWexXL
mais tu ferais mieux de mettre ton fichier log au format Excel, plus
facile

à manipuler par vba...




"Océane" a écrit dans le message de news:

Bonjour,


J'ai bien compris mais, comment piloter un fichier WORD? Et puis de
toutes


façons, les macros de ce classeur sont protégées (Optinnal factice As
String) Et le projet VBA l'est aussi.
Merci à vous deux (la société dans laquelle je travaille, ainsi que les
produits et formules que nous manipulons, sont bien trop délicats pour
se


permettre une erreur...)
Merci quand même...

Océane

"" a écrit dans le message de news:

ça fait un peu flic, non ?

pour protéger le fichier, tu peux toujours enregistrer le fichier Word
avec

un mot de passe
mais pour ce faire, il faut
- que le fichier soit un vrai fichier Word (comme le dit fxm)
- que tu pilotes Word par une macro vba
- et évidemment que tu protèges ta macro vba (dans le fichier Excel)
afin


que l'on ne puisse pas accéder au mot de passe qui s'y trouvera

attention toutefois, les protections ww ou xl par mot de passe ne sont
pas


très solides, mais pire, rien n'empêchera l'utilisateur d'ouvrir ton
classeur Excel en désactivant les macros (et là, plus d'inscription au
registre...)
--

http://jacxl.free.fr/



"Océane" a écrit dans le message de news:
#
Bonjour,

La macro ci-après, crée un fichier mouchard au format WORD et, y
insert



les
dates et heures d'ouverture et de fermeture de mon fichier Ecel.
Est-il



possible de protéger ce fichier afin qu'il ne soit pas consultable?
Je ne saurez vous remercier de m'éclairer s'il vous plaît.
Cordialement.

Océane BOITRON
(ne m'envoyez pa s de mail SVP)


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"



Close #1
End Sub

Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "mouchard.doc"
ChDir "C:Documents"
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, ""
Print #1, "Ouverture du fichier fichier.xls le " & Donnees
Print #1,
"********************************************************"


Close #1
End Sub