rappel

[philmar]

Bonjour,

je reviens vers cette sympathique communauté avec mon tableau de bord et les infirmières qui ne sont pas disons très à l'aise avec l'informatique. Elles ont tendance à "enregistrer sous" le tableau de bord avec un autre nom..
Je souhaiterais qu'une macro contrôle à l'ouverture que ce soit bien "tableau de bord.xls" et pas "tableau de bord sauvegarde.xls" ou autre chose...
Il y a t'il moyen d'empécher l'"enregistrer sous" ou mieux de protéger cette fonction avec un mot de passe?

Bonne journée à toutes et à tous

Philippe

 

[PascalXLD]

Re : rappel

Bonjour

l'interdiction basique dans le thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

 

[PascalXLD]

Re : rappel

re

Le mot de passe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
If InputBox("mdp?") <> "toto" Then Cancel = True
End If
End Sub

 

[Dull]

Re : rappel

Salut Philmar, le Forum

Un essai en pièce jointe

Seul le Bouton sur la Feuille Fonctionne
Ni "Enregistrer Sous"
Ni "Enregister"
Ni les Icones "Fermer", "Enregitrer" et "Enregistrer sous"
Ni les croix en haut droite ne Fonctionnent
A toi d'adapter

EDITION: Salut Pascal
Bonne Journée

 

[philmar]

Re : rappel

Bonsoir,
merci pour ces codes, cela fonctionne très bien! Est ce qu'il y aurait moyen d'avoir un message d'avertissement malgré tout si le fichier ouvert avait un nom différent de "tableau de bord"?
Merci encore en bonne soirée