Protection en ecriture classeur excel

Fermé
spacetiti21 - 14 oct. 2013 à 18:33
Mike-31
Messages postés
18013
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 août 2022
- 17 oct. 2013 à 19:05
Bonjour,

Bonjour à tous je souhaite protéger mon classeur excel en écriture mais bien sur pas en consultation j'avais vu dans des discussions des choses de ce type

Sub Déprotection()
textetitre = InputBox(Title:="Bonjour", _
Prompt:="Veuillez Saisir le code d'accès.")
If textetitre = "titi" Then
Worksheets(1).Unprotect Password:="titi"
Else
msg = "Mot de passe incorrect."
StyleBoîteDialogue = vbOKOnly + vbQuestion
Title = "Accès réglementé."
réponse = MsgBox(msg, StyleBoîteDialogue, Title)
Exit Sub
End If
End Sub

Mais visiblement ca ne protège que ma première feuille comment faire pour protéger l'ensemble des feuilles d'un coup

Ps je suis pas un pro du tout merci d'etre explicite
Merci à tous

A voir également:

6 réponses

Mike-31
Messages postés
18013
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 août 2022
4 965
15 oct. 2013 à 10:18
Bonjour,

Oui bien sur tu peux faire ça automatiquement, tu enregistre ton fichier sous, en bas de l'assistant tu as un bouton Outils/Options générales
tu peux mettre un mot de passe à l'ouverture et un mot de passe pour la modification

ce qui permet d'ouvrir le fichier que si on a le premier mot de passe et le modifier si on a les deux mots de passe
attention de na pas perdre ces mots de passe
7