Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
253
Réponses
5
Affichages
524
Compte Supprimé 979
C
Réponses
10
Affichages
415
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…