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

[Edjeti]

Bonjour!
Je recherche des instructions VBA pour bloquer (automatiquement) l'accès à un fichier à partir du 20 novembre 2009. Quelqu'un peut-il m'aider? Je souhaite aussi désactiver la boîte de dialogue d'enregistrement des modifications pour ne plus qu'elle s'ouvre lors de la fermeture de mon classeur. Comment faire? Merci pour l'aide.

 

[tototiti2008]

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

Bonjour Edjeti,

Bienvenue sur XLD,

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

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

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

 

[Guest]

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😀

 

[job75]

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 :

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+

 

[Edjeti]

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!

 

[job75]

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

Bonjour Edjeti, le fil, le forum,

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

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+

 

[MJ13]

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.

 

[Staple1600]

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!

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

 

[systmd]

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

 

[Staple1600]

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

Re

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

 

[systmd]

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

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

 

[jeanpierre]

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....

 

[Staple1600]

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.

 

[jeanpierre]

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....

 

[Staple1600]

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/