[Toutes versions] Vérrouiller feuille REPERTOIRE [Résolu]

[gilt83]

Bonsoir à toutes et tous,

J'avais un PB insertion image qui par bonheur a été résolu par BlueMonkey.
Si cela été possible j'aimerais vérrouiller ma feuille REPERTOIRE.
(Car mon programme est partagé et utilisé par une quinzaine de personnes et je ne voudrais pas que quelqu'un efface tout mon travail "volontairement oû pas")
Je sais protéger la feuille en laissant que la celulle G5 de ma ListeBoxDéroulante qui fonctionnais avant que j'execute les modifications pour inserer les images, maintenant il y à (erreur 400) donc je ne peut pas verrouiller ma feuille REPERTOIRE. Si BlueMonkey est en ligne il connais mon programme excel.
Merci de votre aide

[BlueMonkey]

Bonsoir,

Juste pour situer le problème, ce sujet est une suite de celui-ci

L'erreur survient effectivement dans le code qui insert l'image dans la feuille si celle-ci est protégée.

2 solutions possibles :
S1. Ne pas protéger la feuille depuis Excel, mais protéger depuis le code en copiant le code suivant dans
le code de l'onglet "Répertoire". (<ALT> + <F11>, feuille "Répertoire").

Code :

1
2
3
Private Sub Worksheet_Activate()
    ActiveSheet.Protect userinterfaceonly:=True
End Sub

S2. Dé-protéger / Re-protéger le classeur autour de la fonction qui provoque l'erreur.
S'il y a un mot de passe, il suffit de l'ajouter à la suite des commandes en rouge.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub LoadPict(PictName As String, filename As String, r As Range)
    If DoesPictExist(PictName) Then
        ActiveSheet.Pictures(PictName).Delete
    End If
    
    Unprotect
    With ActiveSheet.Pictures.Insert(filename)
        .Name = PictName
        .Left = r.Left + 1
        .Top = r.Top
        .Width = r.Cells(1, r.Columns.Count).Left - r.Left + r.Columns(1).Width - 1
        .Height = r.Cells(r.Rows.Count, 1).Top - r.Top + r.Rows(r.Rows.Count).Height
    End With
    Protect
End Sub

A noter qu'en cas de protection pas mot de passe, le mot de passe apparaîtra en clair dans le code.
Il est alors possible de mettre un mot de passe sur le code du projet VBA.
Mais avec les outils actuels, ces protections ne tiennent malheureusement pas très longtemps. (test >>ici<<)

[gilt83]

bonsoir,

oui c bien le programme en question et je vais essayer ton code

merci pour tes réponses qui sont trés detaillées et trés bien expliquées

Donc je ne devrais pas avoir de PB

Merci encore et je te tiens au courant

[gilt83]

Ca FONCTIONNE A MERVEILLE AVEC LA SOLUTION N°1

MILLE MERCI

[BlueMonkey]

Bonsoir,

Contenant pour toi que le fichier soit opérationnel :
A noter qu'avec la solution (1), la feuille est protégée lorsque la feuille est sélectionnée.
La protection peut être désactivée depuis le menu "ôter la protection" classique.

Bonne soirée.