[Résolu] vérifier la présence du logo

[kinel]

Bonjour le forum

j'ai créé un classeur qui est utilisé sur de nombreux postes, je voudrais protéger ce classeur en y plaçant le logo de l'entreprise et par une macro, empêcher son ouverture si le logo n'est pas présent

l'un de vous aurait il un petit code à placer à l'ouverture du classeur ?

merci de vos conseils

Kinel

 

[job75]

Re : vérifier la présence du logo

Bonjour kinel,

Si l'image doit être dans la feuille de CodeName "Feuil1" et est toujours nommée logo :

Private Sub Workbook_Open()
On Error Resume Next
If IsError(Feuil1.Shapes("logo")) Then _
  If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

A placer dans ThisWorkbook.

A+

 

[kinel]

Re : vérifier la présence du logo

Bonjour job75

merci pour cette réponse
juste une petite précision, comment nommer l'image "logo" et ou ?
j'ai bien le fichier logo.jpg que je place dans la feuille d'entrée
ce nom reste t il automatiquement dans la feuille ?

 

[Jam]

Re : vérifier la présence du logo

Bonjour

Tu sélectionnes ton image, et dans la zone à gauche de la saisie de formule (là où s'affiche la référence de la cellule sélectionnée), tu tapes le mot logo 😉

Bon courage

 

[job75]

Re : vérifier la présence du logo

Re,

j'ai bien le fichier logo.jpg que je place dans la feuille d'entrée

Je ne comprends pas, on place une image dans une feuille, pas un fichier 😕

Ou alors vous voulez parler de l'Arrière-plan de la feuille ? Alors c'est autre chose.

Pour renommer une image, clic droit sur l'image et en haut à gauche modifier son nom.

Valider par Ctrl+Entrée.

A+

 

[kinel]

Re : vérifier la présence du logo

re

merci à tous
Jam c'est bien le petit détail qui me manquait

je vais essayer tout ça

amitiés
kinel

 

[Jam]

Re : vérifier la présence du logo

Salut job75,

Une image est bien un fichier au même titre qu'une "feuille" Excel ou un "document" Word 🙂. Ah, et pas besoin de Ctrl + Entrée, Entrée tout seul suffit 😉

Bonne journée à tous.

 

[kinel]

Re : vérifier la présence du logo

Re,

ça fonctionne très bien, en plus comme j'active toutes les autres feuilles par macro si on désactive les macro on ne voit que la feuille qui contient le logo
si on l'enlève puis qu'on réactive les macros tout est fermé

pour perfectionner un peu la sécurité, est il possible d'ajouter une condition sur le nom du fichier afin de protéger aussi le nom du fichier ?
au même titre que
If IsError(Feuil1.Shapes("logo")) Then _

 

[job75]

Re : vérifier la présence du logo

Re,

Adapter le nom du fichier :

If Me.Name <> "TOTO.xls" Or IsError(Feuil1.Shapes("logo")) Then _
'----

A+

 

[kinel]

Re : vérifier la présence du logo

super
ça marche très bien sauf que quand je modifie le nom à l'ouverture j'ai une fenêtre d'alerte qui me demande si je veux enregistrer les modifications
si je fais annuler alors je peux quand même entrer dans le classeur
si je fais oui ou non là il ferme bien le classeur comme je le souhaite

peut être qu'un
Application.DisplayAlerts = ??? ferait l'affaire. qu'en pensez vous ?

 

[job75]

Re : vérifier la présence du logo

quand je modifie le nom à l'ouverture

Que modifiez-vous et de quelle manière ?

A+

 

[kinel]

Re : vérifier la présence du logo

excusez moi
lire :
"quand je change le nom du fichier, à l'ouverture de celui ci..."

 

[job75]

Re : vérifier la présence du logo

Re,

Le fait de modifier le nom du classeur n'entraine pas l'invite à sa fermeture.

Il y a sans doute des liaisons mises à jour ou des fonctions volatiles (MAINTENANT, DECALER...).

Quoi qu'il en soit :

Private Sub Workbook_Open()
On Error Resume Next
If Me.Name <> "TOTO.xls" Or IsError(Feuil1.Shapes("logo")) Then
  Me.Saved = True 'évite l'invite
  If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End If
End Sub

A+

 

[kinel]

Re : vérifier la présence du logo

bonsoir le forum

merci à tous
cette fois ça fonctionne merveilleusement bien

j'ai testé en changeant le nom du fichier et aussi en supprimant le logo>> la fermeture est immédiate
si on désactive les macros, la feuil1 s'affiche mais on ne peut pas aller plus loin
j'ai aussi placé un mot de passe sur le code vba que j'ai rendu invisible

à moins d'être un génie de ce forum je pense que le bidouillage de mon classeur sera très difficile
j'aurai bien sur préféré une compile en .exe mais le programme que j'ai essayé excluait une partie de mon code vba

amitiés à tous et merci encore de votre aide précieuse

Kinel

 

[Staple1600]

Re : vérifier la présence du logo

Bonsoir à tous

si on désactive les macros, la feuil1 s'affiche mais on ne peut pas aller plus loin
j'ai aussi placé un mot de passe sur le code vba que j'ai rendu invisible
à moins d'être un génie de ce forum je pense que le bidouillage de mon classeur sera très difficile

Désolé de te décevoir Kinel, pas besoin d'être un génie.

Il suffit d'avoir une connexion internet, la volonté de vouloir outrepasser la protection de ton classeur.
Ensuite une 20 de secondes suffiront à contrecarrer cette protection.

PS: On peut aussi simplement mettre une photo de Pamela Anderson ou la Venus de Milo, tant que le Shape s'appelle logo
ton code VBA ne verra pas la différence.