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

2 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

comme ceci:

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

Tu auras ton code

Voilà
0
UsulArrakis Messages postés 7683 Statut Contributeur 3 192 > 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
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > 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
UsulArrakis Messages postés 7683 Statut Contributeur 3 192 > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
C'est parfait
merci beaucoup
0

Discussions similaires