mot de passe

R

Riccardo

Guest
Est-ce qu'on peut protéger une feuille et non le fichier en entier ?

protection pour ne pas écrire.
 
B

brigitte

Guest
Bonsoir Riccardo,

Sur un poste de Zbig du 02.01, y avait un pb de mot de passe, voici des liens sur la question qui permettent pour l'un au moins, de craquer les mots de passe, solutions offertes par les "cracks" du Forum.

J'ai pas eu à essayer, mais ca doit être garanti...

http://www.excel-downloads.com/html/French/forum/messages/1_63559_63559.htm

http://imagesdeti.free.fr/Fichiers/Acyd.zip

Bon courage.

BRIGITTE
 
D

Didou

Guest
Bonsoir riccardo,

depuis le menu Outils, Protection, puis Protéger la feuille. Là sélectionne le niveau de protection en cochant les cases en fonction de tes besoins.
Il faut saisir un mot de passe pour que cela fonctionne.
Bonne soirée
Didou
 
B

brigitte

Guest
Bonjour Riccardo et Didou,

Oups, étais-je mal réveillée hier soir. Voilà que j'ai lu que Riccardo avait oublié son mot de passe au lieu de voir qu'il voulait en mettre un.

Bien sûr que c'est possible de mettre un mot de passe à une seule feuille.

Alors pour me faire pardonner un peu, voici, en toute simplicité, un petit mémo rédigé pour l'occasion car c'est vrai que la protection peut se combiner à l'infini (feuille, classeur ; lecture, écriture).... et que c'est loin d'être évident..

Bonne réception et encore mille excuses.

Brigitte
 

Pièces jointes

  • Protectiondocumentsexcel.zip
    8.5 KB · Affichages: 17
  • Protectiondocumentsexcel.zip
    8.5 KB · Affichages: 19
  • Protectiondocumentsexcel.zip
    8.5 KB · Affichages: 16
T

Twuce

Guest
En mettant ce code VBA tu peux aussi la faire ca marche tres bien

Private Sub annuler_Click()
Unload Me
Sheets("Nom_de_la_feuille_de_retour").Select
End Sub


Private Sub Worksheet_Activate()

If DonnéessAcces = False Then
PswDonnées = InputBox("Entrer le mot de passe.")
If PswDonnées = "Mot_de_passe" Then
Me.Activate
Else
MsgBox ("Vous n'êtes pas autorisé(e) à consulter cette page")
Sheets("Nom_de_la_feuille_de_retour").Select
End If
End If
End Sub
 

Discussions similaires

Réponses
2
Affichages
251
Réponses
5
Affichages
522
Compte Supprimé 979
C
Réponses
10
Affichages
415

Statistiques des forums

Discussions
313 102
Messages
2 095 288
Membres
106 244
dernier inscrit
Zamot