rappel

philmar · 2 Février 2009

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 · 2 Février 2009

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 · 2 Février 2009

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 · 2 Février 2009

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 · 2 Février 2009

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

rappel

philmar

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Pièces jointes

philmar

XLDnaute Occasionnel

Discussions similaires