Insérer une image dans onglet protégé
Résolu
UsulArrakis
Messages postés
7683
Statut
Contributeur
-
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
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
A voir également:
- Insérer une image dans onglet protégé
- Insérer une vidéo dans powerpoint - Guide
- Insérer une image dans word sans bouger le texte - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Rouvrir onglet fermé chrome - Guide