Comment protéger un document et y ajouter une petite page

naugus -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour, j'ai un document que je veux protéger sur excel mais j'aimerai également ajouter une petite fenêtre qui affiche <<n modifie pas c document stp>> comment faire svp merci d'avance

3 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    En vba il possible de protéger toutes les feuilles d'un classeur.
    Faire Alt F11 pour accéder à l'éditeur. Ensuite cliquer sur ThisWorkbook en haut à gauche et mettre ce code:

    Option Explicit
    Private Sub Workbook_Open()
    parcourir
    End Sub
    Sub parcourir()
    Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Sheets
       Worksheets(feuille.Index).Protect Password:="azerty", UserInterfaceOnly:=True
     Next
     MsgBox "Les feuilles de ce classeur sont protégées"
    End Sub
    


    Il faut que les macros soit activées.
    Cliquer sur Développeur dans le ruban. Sécurité des macros. Paramètres des macros. Cocher Activer toutes les macros
    0
    1. naugus
       
      Bonjour merci. mais je ne trouve pas le ruban ou je vais voir développeur. la feuille est néanmoins protégé mais elle n'affiche pas mon message quand j'essaye de la modifier
      0
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Si ta feuille est protégé avec la macro, c'est que cela fonctionne. Mais le message s'affiche uniquement à l'ouverture du classeur. Le message que tu as, est le message d'Excel te disant que la feuille est protégée. Si tu veux autre chose, il faut nous en dire plus.
      0
    3. naugus
       
      excel 2010. c k je veux c k quand on clique par exemple dans une cellule le message <<naugus a interdit de modifier ce classeur>> s'affiche
      0
    4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Je ne comprends pas ton approche. Quand la feuille est protégée, tu as ce message d'Excel. Si tu veux avoir un message personnalisé mettre ceci dans la feuille concernée:

      Option Explicit
      
      Private Sub Worksheet_Change(ByVal Target As Range)
      MsgBox "naugus a interdit de modifier ce classeur"
      End Sub
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    Dans la protection il y a beaucoup à faire, outre la protection des feuilles, tu peux également protéger le fichier à l'ouverture par mot de passe, ajouter une protection à la modification toujours avec mot de passe mais tu peux également protéger tes feuilles et ajouter une possibilité pour accéder à certaines cellules protégées moyennant mot de passe.
    reste à approfondir ta demande
    0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Quelle version Excel as tu !
    0