Bloquer l'accès à un fichier avec VBA?

tototiti2008

XLDnaute Barbatruc

• 14 Octobre 2009

• #2

Re : Bloquer l'accès à un fichier avec VBA?

Bonjour Edjeti,

Bienvenue sur XLD,

pour la deuxième partie, à mettre dans Thisworkbook du classeur :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

Pour la première partie, je ne sais pas...

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Octobre 2009

• #3

Re : Bloquer l'accès à un fichier avec VBA?

Bonjour,

Avec VBA, pas possible puisqu'il suffit de désactiver les macros pour que le fichier s'ouvre.

Essaie avec le fichier ci-joint.

Le seul moyen pour de plus accéder à un fichier est de le détruire, encore que.....

Autres solution soft:

renommer le fichier avec un nom et une extension bidon.
Le sauvergarder sur un support amovible et ne pas le distribuer.

Un fichier auquel on ne peut plus accéder est un fichier inutile!

A +
[Edit] Hello TotoTiti😀

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2009

• #4

Re : Bloquer l'accès à un fichier avec VBA?

Bonsoir Edjeti, salut tototiti, Hasco,

Une solution qui vaut ce qu'elle vaut :

- avec le Planificateur de tâches de Windows (bouton Démarrer-Panneau de configuration-Tâches planifiées) programmer l'ouverture du fichier pour le 20/11/2009 00:00:00

- mettre dans le ThisWorkbook du fichier la macro suivante :

Code:

Private Sub workbook_Open()
If Now >= CDate("20/11/2009 0:0:0") Then
  On Error Resume Next
  If Evaluate([toto]) Then 'ce qui suit s'exécute quand il y a une erreur (nom toto inexistant)
    Application.DisplayAlerts = False
    ThisWorkbook.Names.Add Name:="toto", RefersTo:=False
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Name, Password:="zaza"
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
  End If
End If
End Sub

A partir du 20/11/2009, le fichier pourra être ouvert si l'on connaît le mot de passe "zaza".

Nota : je ne sais plus me servir du Plannificateur de tâches : quand j'essaie de créer la tâche, il me demande un mot de passe, je rentre n'importe quoi et il me jette. Quelqu'un peut m'éclairer ??

A+

 

Vote positif 0 Vote négatif

E

Edjeti

XLDnaute Nouveau

• 29 Octobre 2009

• #5

Re : Bloquer l'accès à un fichier avec VBA?

Bonsoir Job, Tototiti & Hasco,
Merci pour votre contribution. Votre aide m'a été précieuse.
Job, pour le planificateur des tâches, il te faut entrer le mot de passe qui correspond au compte utilisateur que tu choisis. Il ne faut pas renter n'importe quoi comme tu fais.
See u!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Octobre 2009

• #6

Re : Bloquer l'accès à un fichier avec VBA?

Bonjour Edjeti, le fil, le forum,

Edjeti à dit:

Il ne faut pas renter n'importe quoi comme tu fais.

Cliquez pour agrandir...

Le problème c'est qu'il n'y a aucun mot de passe sur mon compte utilisateur...

Mais j'ai fait des recherches sur le web, et malheureusement c'est un problème classique pas évident à résoudre.

Pour moi ça n'a pas d'importance, je n'utilise pas le Planificateur de tâches.

A+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 30 Octobre 2009

• #7

Re : Bloquer l'accès à un fichier avec VBA?

Bonjour àtous

Le planificateur de tâches c'est très utile.

Mais seuls des tests, permettent d'en venir à bout.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2009

• #8

Re : Bloquer l'accès à un fichier avec VBA?

Bonsoir


Rien n'est prévu pour celui qui fera un retour vers le passé (en changeant la date du PC) ou qui désactivera les macros.

Je rejoins Hasco (que je salue au passage) quand il écrit.

Un fichier auquel on ne peut plus accéder est un fichier inutile!

Cliquez pour agrandir...

Plutôt que de le rendre inaccessible , pourquoi ne pas l'enregistrer en PDF ?

 

Vote positif 0 Vote négatif

S

systmd

Guest

• 30 Octobre 2009

• #9

Re : Bloquer l'accès à un fichier avec VBA?

Bonjour à tous

Une solution :

1: mettre les feuilles que l'on veut rendre inaccéssible à xlsheetveryHidden
2: proteger le vba

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2009

• #10

Re : Bloquer l'accès à un fichier avec VBA?

Re

systmd:
Ça ne change rien si ouverture classeur sans activer macros

 

Vote positif 0 Vote négatif

S

systmd

Guest

• 30 Octobre 2009

• #11

Re : Bloquer l'accès à un fichier avec VBA?

Re
Bin si justement pas de macro donc pas de feuilles visibles

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 30 Octobre 2009

• #12

Re : Bloquer l'accès à un fichier avec VBA?

Re à beaucoup déjà rencontrés aujourd'hui, bonsoir aux autres,

systmd, ça c'est le rêve Excel, mais comme pour tous les rêves le matin arrive avec le réveil et bin....

Celui qui veut, peut....

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2009

• #13

Re : Bloquer l'accès à un fichier avec VBA?

Re


Ouverture du classeur sans activer les macros
ALT+F11
puis passage des feuilles cachées en xlVisible
mise en commentaire du code VBA "sécuritaire"
réouverture du classeur en ouvrant les macros

Si le projet VBA est protégé par un mot de passe, ce peut ne plus être un problème.

Donc au bout du compte, on retourne au point de départ.

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 30 Octobre 2009

• #14

Re : Bloquer l'accès à un fichier avec VBA?

Re,

Un fichier protégé de toutes parts.

Un coup de OpenOffice (tableur concurrent et gratuit) et tout est déprotégé....

Ca fait mal, oui je sais....

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Octobre 2009

• #15

Re : Bloquer l'accès à un fichier avec VBA?

Re


Je précise que je parle de fichiers xls (créés sous Excel 97 à 2000)

A partir de 2003 jusqu'à 2007, il existe des possibilité de cryptage.

Lire à ce sujet les réponses de kiki29 dans ce fil
https://www.excel-downloads.com/threads/journal-tres-intime-des-garanties.102604/

 

Dernière édition: 30 Octobre 2009

Vote positif 0 Vote négatif