Protection en ecriture classeur excelFermé

Question

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

Configuration: Windows 7 / Internet Explorer 8.0

Mike-31 · Accepted Answer

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

Hebus888 · Answer

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!

foo · Answer

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

spacetiti · Answer

merci à tous de vos réponses

Mike-31 · Answer

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.

Gael03 · Answer

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

Protection en ecriture classeur excel

6 réponses

Discussions similaires

Newsletters