Protection en ecriture classeur excel [Fermé]

Signaler
-
Messages postés
17242
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 octobre 2020
-
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

6 réponses

Messages postés
17242
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 octobre 2020
4 284
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Salut,

Il me semble qu'il y a une fonction intégrée pour faire ce genre de chose, pas besoin de taper du code!
Bonjour

une Macro pour protection des Feuilles

Sub TestProtect()
Dim MotPass As String
MotPass = "TiTi"
For Each Feuil In Worksheets
Feuil.Select
Feuil.Protect MotPass
Next
End Sub

A+
Maurice
Messages postés
28
Date d'inscription
dimanche 11 février 2007
Statut
Membre
Dernière intervention
15 mai 2016

merci à tous de vos réponses
Messages postés
17242
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 octobre 2020
4 284
Re,

pour répondre à la question sur cette discussion

http://www.commentcamarche.net/forum/affich-28911312-detournement-de-classeur-proteger#newanswer

c'est effectivement une façon pour l'instant imparable de détourner une protection qui peut être ouvert avec des applications comme Open Office

tu peux essayer de mettre ce code dans la Thisbokbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox "Le changement de nom est interdit !", vbExclamation + vbOKOnly, "Attention"
Cancel = True
End If
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
Messages postés
295
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
3 novembre 2015
15
Normalement sur Excel tu as un onglet "Révision".
Dans cet onglet tu as normalement "Protéger la feuille" ou "Protéger le classeur".
Lorsque tu cliques sur "Protéger la feuille", tu as une fenêtre qui s'ouvre avec :
- "Protéger la feuille et le contenu des cellules verrouillées" (a cocher)
- "Mot de passe pour ôter la protection de la feuille" (où tu entres ton mot de passe)
- "Autoriser tous les utilisateurs de cette feuille à :" (où tu coches les cases que tu veux selon ce que tu souhaites autoriser.)

Lorsque tu cliques sur "Protéger le classeur", tu as une fenêtre qui s'ouvre avec :
- "Eléments a protéger" (tu coches Structure, Fenêtres ou les deux)
- "Mot de passe (facultatif)" (pour protéger par mot de passe.)

En espérant t'avoir aidé.
Messages postés
17242
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 octobre 2020
4 284
Bonjour,

cela n'empêche pas l'enregistrement sous et dupliquer le classeur, le code VBA dans mon dernier post permet l'enregistrement et interdit l'enregistrement sous mais n'empêche pas l'ouverture avec d'autres applications et donc de le copier

Cordialement
Mike-31