mot de passe interdisant la sauvegarde

olivemotard · 30 Mai 2011

Bonjour a tous
J'ai créé sous Excel 2003 (avec votre aide a bien des niveaux) un petit utilitaire.Afin que tout le monde ne puisse pas y sauvegarder des données :
> j'ai installé un bouton de sortie sans sauvegarde
> j'ai fait en sorte que lorsque l'on ferme via la croix, excel ne propose pas de sauvegarder.
Jusque la tout fonctionne
Le soucis c'est le bouton sauvegarder
j'ai créé la macro ci dessous, mais je pense que je me suis planté dans mon raisonnement

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

mDp = InputBox("Saisissez ci dessous votre mot de passe")

If mDp <> "pilote" Then
MsgBox "Vous n'êtes pas autorisé à modifier ce fichier", vbExclamation, "Alerte"
Else
ThisWorkbook.Save
Exit Sub
End If
End Sub

En effet, aprés de nombreux essais, je me suis rendu compte que dans tout les cas je sauvegarde, et c'est bien logique car c'est "Before save"
Si quelqu'un avait une idée, car la, c'est sur le raisonnement que je plante

Merci d'avance a tous

Pierrot93 · 30 Mai 2011

Re : mot de passe interdisant la sauvegarde

Bonsoir,

essaye peut être en modifiant comme suit :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

mDp = InputBox("Saisissez ci dessous votre mot de passe")

If mDp <> "pilote" Then
MsgBox "Vous n'êtes pas autorisé à modifier ce fichier", vbExclamation, "Alerte"
Cancel = True
End If
End Sub

bonne soirée
@+

olivemotard · 30 Mai 2011

Re : mot de passe interdisant la sauvegarde

Merci Pierrot
Ca fonctionne parfaitement, je me doutait bien que c'était mon raisonnement .....
Maintenant que tu m'as donné la solution je trouve cela plus que logique.

merci encore

mot de passe interdisant la sauvegarde

olivemotard

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

olivemotard

XLDnaute Junior

Discussions similaires