Interdire fermeture fichier – ouverture via Windows.

[pmfontaine]

Interdire fermeture fichier – ouverture via Windows.
Bonjour,
On me demande de créer un fichier Excel avec des alertes automatiques en fonction de la date. (L’alerte consiste à demander l’intervention d’un opérateur sur une machine périodiquement) voir exemple fichier joint.
Pour cela il faut que ce fichier reste ouvert en permanence.
1 - Comment interdire la fermeture de ce fichier aux opérateurs lambda et l’autoriser à un ou des administrateurs ?
2 - Comment peux ton exécuter automatiquement une macro en fonction du temps ? Toutes les 24 h, le matin par exemple.
3 - Toujours pour cette application, est t’il possible d’ouvrir automatiquement ce fichier via le calendrier de Windows, tous les lundi matin par Exemple. (Windows XP)
Merci d’avance pour votre aide.
Patrick

 

[phlaurent55]

Re : Interdire fermeture fichier – ouverture via Windows.

Bonjour Patrick,

avec ceci, ton fichier ne se fermera plus

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Exit Sub
End Sub

Pour la question 3 il faut passer par le planificateur de tâches voir lien ci-dessous
https://www.excel-downloads.com/thr...-lancement-du-fichier-automatiquement.161179/

pas le temps en ce moment pour répondre aux autres demandes

à+
Philippe

 

[tbft]

Re : Interdire fermeture fichier – ouverture via Windows.

Bonjour

En ce qui concerne la question 1 je m'orienterai sur l'événement

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

en demandant un mot de passe
si le mot de passe est incorrect : annuler la procédure de fermeture...

 

[tototiti2008]

Re : Interdire fermeture fichier – ouverture via Windows.

Bonjour pmfontaine,

1 - Comment interdire la fermeture de ce fichier aux opérateurs lambda et l’autoriser à un ou des administrateurs ?

Au travers d'une procédure évènementielle de fermeture du classeur (Workbook_BeforeClose), qui par exemple pourrait vérifier le login windows (Environ("username")) de l'opérateur et en fonction interdire de fermer le classeur. Pour les week-end, il faudra peut-être prévoir une solution de sortie

2 - Comment peux ton exécuter automatiquement une macro en fonction du temps ? Toutes les 24 h, le matin par exemple.

Peut-être avec Application.OnTime qui permet de lancer une procédure à une heure donnée, mais on ne peut pas programmer au-delà de 24 h. Pas forcément trés stable, malheureusement

3 - Toujours pour cette application, est t’il possible d’ouvrir automatiquement ce fichier via le calendrier de Windows, tous les lundi matin par Exemple. (Windows XP)

Il est possible de programmer l'ouverture d'un fichier par le planificateur de tâches Windows, à un jour et une heure donnée, si le poste est allumé bien sûr.

Toutes ces pistes ne sont évidement valables que si les macros sont activées, et comme il est assez simple de désactiver les macros dans Excel, on ne peut pas parler de "sécurité" pour tout ça...

Edit : Bonjour Philippe, Bonjour tbft

 

[phlaurent55]

Re : Interdire fermeture fichier – ouverture via Windows.

Re, à tous

voir fichier joint
le mot de passe est toto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If InputBox("ENTREZ le mot de passe pour autoriser la fermeture") <> "toto" Then
Cancel = True
Exit Sub
End If
End Sub

au risque de décevoir
je ne connais pas de protection efficace lors de l'utilisation d'Excel
ton fichier pourras toujours être fermé en pressant successivement le touches Ctrl+Alt+Del

à+
Philippe

 

[pmfontaine]

Re : Interdire fermeture fichier – ouverture via Windows.

Merci à tous pour vos réponses et pour votre réactivité.
Je reviendrais vers vous après avoir regarder toutes vos propositions.
Patrick