Comment exécuter une macro sur une feuille verrouillé?

clavervba -  
clavervba Messages postés 48 Statut Membre -
Bonjour,

comment exécuter une macro sur une feuille protégée?
lorsque je verrouille ma feuille et que j'essaye d’exécuter ma macro elle met erreur.

s'il vous plait, donner moi des explications avec des précisions.

2 réponses

  2.
    clavervba Messages postés 48 Statut Membre
     
    Bonjour,

    je l'ai fait, mais il ne marche pas.
    enfaîte il verrouille bien la feuille, mais n’exécute pas la macro il a toujours le message erreur.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Alors montre nous ici le code que tu as écrit.
      0
    2. clavervba Messages postés 48 Statut Membre > pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention  
       
      voici le lien ci-dessous:
      https://www.cjoint.com/c/GBqlFpXSlTN
      0
    3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773 > clavervba Messages postés 48 Statut Membre
       
      Je me répète :
      montre nous ici le code que tu as écrit
      Un simple copié/collé de ton code nous suffit pour l'instant.
      Si besoin de ton classeur, on te le demandera.
      0
    4. clavervba Messages postés 48 Statut Membre > pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention  
       
      Sub MacroavecfeuilleProtect()

      ActiveSheet.Unprotect "12345"
      ActiveSheet.Protect "12345", True

      End Sub

      il verrouille la feuille, mais ne permet pas d’exécuter la macro.
      0
    5. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > clavervba Messages postés 48 Statut Membre
       
      Bonjour tout le monde,

      clavervba:
      'sur que ca ca ne doit pas marcher! 
      Private Sub Workbook_Open()

With Worksheets("rourse")
Protect "1234"
DrawingObjects = True
contents = True
Scenarios = True
UserInterfaceOnly = True

End With
End Sub


      '------------------------------------------------------------------------

      'code protection pour ecriture par VBA sans deproteger 
      Private Sub Workbook_Open()
    With Worksheets("rourse")
        .Protect Password:="1234", DrawingObjects:=True, contents:=True, Scenarios:=True, UserInterfaceOnly:=True
        .EnableSelection = xlNoSelection        'pas de selection cellule
    End With
End Sub


      Ensuite, il faut enlever tous les protect et unprotec des autres codes
      0

Discussions similaires

Compte Amazon "temporairement verrouillé"
Eolia49 -
MPMP10 -

1 réponse
Clavier bloqué qui n'écrit plus : comment le débloquer
pomad -
ScaredHell973 -

5 réponses