sauvergarde sur password

[gpasdechance]

Bonjour

Je cherche a empecher la sauvegarde et faire en sorte que la sauvegarde se fasse sur password

Par exmeple le mot SAUVEZMOI


Donc j`ai mon file. Je veux sauvergarder et la je cherche un message qui dise : indiquez le password pour sauver.

Si le password n`est pas saisi, alors ca ferme le fichier après x essays ou sans limite d`essais.


C`est possible de faire cela?
j`ai cherche sur le forum, ,mais j`ai pas trouve encore d`exemple

Merci pouir votre aide

Si vous voyez un lien qui fait cela, soyez sympa de le coller : je me debrouille ensuite

Bonne journee
gpasdechance

 

[porcinet82]

Re : sauvergarde sur password

Salut,

Voici un exemple de ce que tu peux faire (le code est a placer dans le module ThisWorkbook) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rep2 As Byte
Dim rep As String
retour:
rep = InputBox("Veuillez saisir le mot de passe pour sauvegarder. ", "")
If rep = "[COLOR=red]motdepasse[/COLOR]" Then
    [COLOR=blue]ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Moi\Bureau\Classeur1.xls"[/COLOR]
Else
    rep2 = MsgBox("Le mot de passe est incorrect, voulez-vous le resaisir ?", vbYesNo + vbExclamation, "")
    If rep2 = vbYes Then GoTo retour:
End If
End Sub

Le code en bleu est a adapter au chemin que tu souhaites si tu veux que celui-ci soit fixe ainsi que le nom du classeur... Le mot de passe est en rouge.

@+

 

[Orodreth]

Re : sauvergarde sur password

Bonjour gpasdechance, salut porcinet (edit, désolé, je t'avais pas vu)

Euh ... oui, c'est possible, même si là, j'en vois pas trop l'intérêt.

Ceci dit, si tu veux un code, ça sera ça:
Etape 1: tu vas dans le vba éditor, tu sélectionnes "This_workbook" (liste à gauche dans Microsoft Excel Object).

Etape 2: tu sélectionnes workbook dans la liste déroulante de gauche, puis beforeClose dans la liste déroulante à droite.

Etape 3 le code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Password As String
Password = InputBox("Entrez le mot de passe de sauvegarde")
If Password <> "testPass" Then
    MsgBox ("Password incorrect")
    ActiveWorkbook.Close savechanges:=False
    ElseIf Password = testPass Then
        ActiveWorkbook.Save
        ActiveWorkbook.Close
End If
End Sub

J'ai pas répondu à tout, ce petit code permet:
- de demander un mot de passe avant de fermer
- si le mot de passe est faux ou clic sur annuler, retour sur demande du mot de passe
- si le mot de passe est bon, enregistrement, puis fermeture.

J'y mets quand même un bémol: si tu as un utilisateur aussi chiant que moi ( 😀 ), sache qu'il peut toujours cliquer sur le bouton enregistrer de la barre de travail, ou faire fichier, Enregistrer.

Tu peux contourner ce problème en faisant beforeSave au lieu de beforeClose, mais je préfère ne pas m'avancer.

En espérant que cela t'aide,
Cordialement,
Thomas

 

[gpasdechance]

Re : sauvergarde sur password

bonjour,

merci pour votre aide tout d`abord.

il n`y a pas un moyen pour que le systeme fichier / enregistrer ne soit pas possible?

je cherche vraiment un moyen pour que la personne n`ai pas le choix et pas de solution autre que cliquer sur "SAVE" (ou bouton speciffique) et que la ca lance la macro ou il doit saisir le password.

c`est pas possible d`empecher la sauvegarde et donc de bloquer les choses.
pour sauvegarder, l`unique moyen est d`avoir le password. c`est ca que je cherche.

par contre je sais qu`une personne peut trouver le password avec un logiciel mais j`en suis pas sur ces problemes la.
je cherche juste : sauvegarde necessite password et pas d`autres moyens de sauvergarder sauf a connaitre le password

merci

gpasdechance

 

[porcinet82]

Re : sauvergarde sur password

re, salut Orodreth,

Est-ce que tu as essayé mon code ? Il me semble qu'il fasse ce que tu souhaites...

@+

 

[gpasdechance]

Re : sauvergarde sur password

re

ben oyui j`ai essaye mais ca bloque l`enregistrement

regarde le file

tape quelque chose ds la feuille et ferme

tu vas voir, ca reste affiche si tu re ouvre ton file.

si le password n`est pas correct, fuat pas que ca enregistre.
chez moi, ca sauve les donnees saisies meme si le password n`est pas correct.

J`ai rate un truc?

merci

gpasdechance

 

[porcinet82]

Re : sauvergarde sur password

re,

Bon, j'ai apporté quelques modif au code et cette fois, ca devrait fonctionner :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rep2 As Byte
If SaveAsUI = True Then Cancel = True
retour:
If rep <> "" Then
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\test.xls"
    End
End If
rep = InputBox("Veuillez saisir le mot de passe pour sauvegarder. ", "")
If rep = "motdepasse" Then
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\test.xls"
Else
    rep2 = MsgBox("Le mot de passe est incorrect, voulez-vous le resaisir ?", vbYesNo + vbExclamation, "")
    If rep2 = vbYes Then
        GoTo retour:
    Else
        Cancel = True
        End
    End If
End If
End Sub

Il faut egalemen que tu rajoutes un module dans lequel tu places le code suivant : Public rep As String

@+

 

[gpasdechance]

Re : sauvergarde sur password

salut Porcinet,

je regarde et te reviens

merci bcp

je te reviens ce soir acr tres occupe cetetb apres midi. c`est lundi 🙁

a+

gpasdechance

 

[gpasdechance]

Re : sauvergarde sur password

bonsoir porcinet82, le forum

je te remercie. ca marche bien il semble

j`ai essaye toutes les solutions pour sauvegarder le file et ca marche bien

je te remercie pour ton aide

bonne soiree a tous
gpasdechance