> Tous les forums > Forum Bureautique
 insérer image dans fichier excel protégé
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
usularrakis
  Posté le 19/10/2020 @ 09:48 
Aller en bas de la page 
Astucien


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



Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
189,99 €Pack de 2 disques durs Seagate NAS Iron Wolf 4 To à 189,99 €
Valable jusqu'au 28 Janvier

Cdiscount propose le pack de 2 disques durs Seagate IronWolf 4 To à 189,99 €. le Ces disques durs 3.5 pouces SATA III sont adaptés aux NAS et ordinateurs qui fonctionnent 24h/24. On les trouve ailleurs autour de 110 € l'unité. Disques CMR.


> Voir l'offre
199,99 €Ecran Lenovo 31,5 pouces D32q-20 (QHD, IPS, 75 Hz, FreeSync) à 199,99 €
Valable jusqu'au 28 Janvier

Fnac propose actuellement l'écran 31.5 pouces Lenovo D32q-20 à 199,99 € alors qu'on le trouve ailleurs à plus de 265 €. Cet écran dispose d'une dalle QHD (2560x1440) à bords fins, avec un temps de réponse de 4 ms et un rafraichissement de 75 Hz. Il possède des entrées VGA et HDMI. Il est compatible Freesync. 


> Voir l'offre
699,99 €PC portable 15.6 pouces Lenovo (FHD IPS, Ryzen 5, 8 Go de RAM, SSD 512 Go, GTX 1650) à 699 €
Valable jusqu'au 29 Janvier

Lenovo fait une promotion sur l'ordinateur portable Lenovo IdeaPad Gaming 3 15ACH6 qui passe à 699 € avec le code promo SOLDES alors qu'on le trouve ailleurs autour de 799 €. Ce portable dispose d'un écran de 15.6 pouces FullHD IPS (1920x1080), d'un processeur AMD Ryzen 5 5600H, de 8 Go de RAM, d'un SSD de 512 Go, d'une carte graphique dédiée NVIDIA GeForce GTX 1650 4 Go, du WiFi et du Bluetooth. Le tout tourne sous Windows 11.

Un bon portable adapté à la bureautique, au multimédia et aux jeux.


> Voir l'offre

Sujets relatifs
Image dans fichier Excel
Problème ouverture de fichier protégé dans Excel 2003
Insérer un fichier Excel dans Powerpoint
Excel 2007 insérer image dans feuille technique
insérer une image avec menu déroulant dans excel
inserer menu déroulant dans un fichier excel
Dans Excel, lien vers fichier
Excel :Fichier .xlsx corrompu stocké dans One Drive
Comment importer fichier XML dans excel
Excel - trier dans la fenêtre "insérer un lien"
Plus de sujets relatifs à insérer image dans fichier excel protégé
 > Tous les forums > Forum Bureautique