Insérer une image dans onglet protégé

Résolu
UsulArrakis Messages postés 7683 Statut Contributeur -  
UsulArrakis Messages postés 7683 Statut Contributeur -
Bonjour à tous

j'ai une colle à vous poser :

dans un fichier excel les onglets sont protégés par mot de passe. dans chaque onglet j'ai des cellules qui ne sont pas verrouillées et qu'on peut donc remplir.

J'ai 2 groupes de cellules fusionnées qui ne sont pas verrouillés et je souhaiterai qu'on puisse insérer une image dans chacun des groupes.

mais quand la protection est active, la commande "insertion / image" est grisée

comment faire pour qu'on puisse insérer une image

le classeur contient 13 onglets, un de présentation et 12 correspondants chacun à un mois de l'année

voici les 2 macros qui me servent à protéger et déprotéger

Merci pour votre aide

Public Sub Protection()
Application.ScreenUpdating = False
For i = 1 To 13
If Worksheets(i).Name <> "Présentation" Then
Worksheets(i).Unprotect Password:="XXXXXX"
Worksheets(i).Range("B1:D3").Locked = False
Worksheets(i).Range("D11:D11").Locked = False
Worksheets(i).Range("D15:G45").Locked = False
Worksheets(i).Range("O15:P45").Locked = False
Worksheets(i).Range("E49:F50").Locked = False
Worksheets(i).Range("T49:U50").Locked = False
Worksheets(i).Range("B49").Locked = False
Worksheets(i).Range("R49").Locked = False
If Worksheets(i).Name = "janvier" Then Worksheets(i).Range("M11:N11").Locked = False
For Each o In Worksheets(i).Range("B1:D3,D11:D11,D15:G45,O15:P45")
If o.Interior.ColorIndex = 15 Then o.Locked = True
Next o
Worksheets(i).Protect Password:="XXXXXX"
End If
Next i
Application.ScreenUpdating = True
End Sub

Public Sub déprotection()
Application.ScreenUpdating = False
For i = 1 To 13
Worksheets(i).Unprotect Password:="XXXXXX"

Next i

End Sub

Configuration: Windows / Firefox 82.0


--
(_Usul d'Arrakis
    Serial_Dreamer_)

2 réponses

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

    comme ceci:

    1
  2. UsulArrakis Messages postés 7683 Statut Contributeur 3 196
     
    Merci pour ta réponse
    mais comment ça se traduit dans la macro ?
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Sers toi de l'enregistreur de macro!

      Tu auras ton code

      Voilà
      0
      1. UsulArrakis Messages postés 7683 Statut Contributeur 3 196 > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        voici ce que me donne l'enregistreur de macro :

        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True

        Mais ça fait planter la macro

        je précise que la macro n'est pas de moi. je suis nul en macro !
        merci
        0
      2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > UsulArrakis Messages postés 7683 Statut Contributeur
         
        Remplacer:

        Worksheets(i).Protect Password:="XXXXXX"


        par

        Worksheets(i).Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, Password:="XXXXXX"


        Voilà
        0
      3. UsulArrakis Messages postés 7683 Statut Contributeur 3 196 > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        C'est parfait
        merci beaucoup
        0