• Initiateur de la discussion Initiateur de la discussion Riccardo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
17
Affichages
592
  • Question Question
Microsoft 365 Comptablité
Réponses
1
Affichages
256
Réponses
4
Affichages
197
Réponses
3
Affichages
152
Retour