OVH Cloud OVH Cloud

Mouchard Excel VBA...

1 réponse
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

"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
u1jOvJWuDHA.1888@TK2MSFTNGP10.phx.gbl...
> ç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...)
> --
> J@C
> http://jacxl.free.fr/
>
>
>
> "Océane" <oceane-boitron@wanadoo.fr> a écrit dans le message de news:
> #mNvfFSuDHA.3416@tk2msftngp13.phx.gbl...
> > 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
> >
> >
> >
>
>

1 réponse

Avatar
Philippe.R
Bonsoir Océane,
Je ferai ici office de râleur de service pour faire observer qu'hors de la ficelle d'origine, cette
publication, toute pertinente qu'elle soit, peut apparaître quelque peu absconse !
;o))
http://www.excelabo.net/mpfe/connection.htm
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"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