Résultats pour "securite incendie"

39 résultats pour cette recherche

Bonjour,

Lors d'une manip test, j'ai cliqué sur "Ne plus afficher ce message pour les fichiers réseau" puis sur "Non" et je ne trouve pas comment réafficher cet avertissement pour que je puisse à nouveau approuver des documents sans passer par les paramètres.

Des idées ?

Merci !

image

Dans Excel 2007, j'ai crée un fichier avec macro (VBA) et protégé workbook avec mot de passe

et pour éviter a la réouverture l'avertissement de sécurité lors la fermeture par icone rouge (X)

j'ai utilisé le code ci-dessous.

Étapes

1- pour éviter avertissement de sécurité a la réouverture le code ci-dessous (le problème est résolu)

2- fermeture par icone rouge (X)

3- Rouvrir le fichier

4- Enregistré mon travail

5- Fermé et r Rouvrir le fichier

6- le code fonctionne très bien

Mais le probleme reste a la fermeture d'utiliser le Gestionnaire des taches

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Unprotect Password:="blabla"
    ThisWorkbook.Save
    ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_Open()
    ThisWorkbook.Protect Password:="blabla"
    ThisWorkbook.Save
    ThisWorkbook.Saved = True
End Sub  

Bonjour,

Je viens vers vous concernant un problème que je rencontre lors de l'exécution d'une macro pour la génération d'un mail. J'ai regardé sur internet mais je ne trouve pas de solution à ceci.

Dans le cadre de mon travail, tous les matins je dois effectuer un check de mon infrastructure et de mes postes.

Une fois ceci effectué, je dois envoyer un mail avec le résultat de ce check.

Dans mon mail on va trouvé du texte et des captures écrans qui vont être récupéré sur d'autre feuille du classeur.

J'ai donc créé une macro qui me génère et remplie automatiquement mon mail pour que je n'ai plus qu'à l’envoyer.

La macro fonctionne très bien, j'ai juste un petit problème (si on peut appeler ça un problème).

Dès que la macro va exécuter les lignes suivantes :

- Set wDoc = myItem.GetInspector.WordEditor

  • wDoc.Application.Selection.Start = Len(.Body) (1er tableau)
  • wDoc.Application.Selection.Start = Len(.Body) (2ème tableau)

J'ai un message de sécurité sur Outlook me disant ceci :

Un programme essaie d'accéder aux informations d'adresse de courrier enregistrés dans Outlook. Si cette action est inattendue, cliquer sur refuser, et vérifier que votre antivirus est à jour.

Ce message apparaît trois fois lors de l'exécution de la macro, et a chaque fois on est obligé de cliquer sur "accepter".

En soit ce n'est pas problématique mais j'aimerai que ce message n’apparaisse pas ou sinon de pouvoir le valider avec la macro.

En regardant sur le net, beaucoup de gens disent qu'il faut modifier un paramètre sur Outlook, problème c'est que ce fichier on est plusieurs à l'utiliser et de plus on utilise des sessions qui nous ne permettent pas de modifier ce paramètre.

J'ai vu aussi que quelqu'un avait réussi à contourner le problème avec la commande "SendKeys".

J'ai testé avec ceci mais impossible de faire exécuter la commande sur le message, elle s'exécute dans le corps du mail.

Si jamais quelqu'un connait un solution pour contourner ceci en VBA je serais preneur.

Voici mon code pour la génération du mail (il est fonctionnel mais pas mis à jour, certaine ligne doivent être supprimé) :

Sub envoi_mail()

Dim OL As Object, myItem As Object, wDoc As Object, rng As Object, k As Integer, Dernligne As String, Ad_mail As String, Ad_mail_Copie As String, Separateur As String, MonTableau As Integer

Dim nb_lignes As Integer

Separateur = ";"

Sheets("Mail").Visible = True

Dim img As Object

Sheets("Mail").Select

For Each img In ActiveSheet.Shapes

img.Delete

Next

Columns("A:Z").Select

Selection.Clear

Range("A1").Select

Sheets("Parametres").Visible = True

Sheets("Infrastructures").Visible = True

Sheets("Players").Visible = True

Sheets("Players indisponibles").Visible = True

Sheets("Historique Players").Visible = True

Sheets("Historique Infrastructure").Visible = True

Sheets("Mail").Visible = True

Sheets("MeteoCheck").Select

Range("C1:I11").Copy

Sheets("Mail").Select

Range("A1").Select

Selection.PasteSpecial 8

ActiveSheet.Paste

Sheets("Players indisponibles").Select

Dernligne = Range("E" & Rows.Count).End(xlUp).Row

Range("A6:F" & Dernligne).Select

' Range("A6:F6").Select

' Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

Sheets("Mail").Select

Range("I13").Select

Selection.PasteSpecial 8

ActiveSheet.Paste

Range("A1").Select

Application.Run "Module_Historique_Infra.Maj_historique_Infras"

Application.Run "Module_Historique_Salles.Maj_historique_Salles"

' Sheets("Players indisponibles").Select

' MonTableau = Range("A6:F6", Selection.End(xlDown)).Select

Sheets("Parametres").Select

Dernligne = Range("F" & Rows.Count).End(xlUp).Row

For k = 5 To Dernligne + 3

If Cells(k, 6).Select = True Then

Ad_mail = Ad_mail & Separateur & Cells(k, 6).Value

End If

Next k

For k = 5 To Dernligne + 6

If Cells(k, 7).Select = True Then

Ad_mail_Copie = Ad_mail_Copie & Separateur & Cells(k, 7).Value

End If

Next k

Set OL = CreateObject("Outlook.Application")

Set myItem = OL.CreateItem(olMailItem)

Range("A1").Select

Sheets("Mail").Activate

' On prépare le mail en rentrant les paramètres : adresse des destinataires, en copie, objet du mail, corps du mail

With myItem

.To = Ad_mail

.CC = Ad_mail_Copie

.Subject = "[Morning Check Multimédia] Météo : " & Date & " - " & Time & " - " & "OK"

.Body = olFormatHTML

.Display

Set wDoc = myItem.GetInspector.WordEditor

' Texte avant tableau

Set rng = wDoc.Content

rng.InsertAfter "Bonjour," & vbNewLine & "" & vbNewLine & "Veuillez trouver ci-joint la météo du morning check multimédia de ce jour." & vbNewLine & vbNewLine

' Premier tableau

Range("A1:G11").CopyPicture

wDoc.Application.Selection.Start = Len(.Body)

wDoc.Application.Selection.End = wDoc.Application.Selection.Start

wDoc.Application.Selection.Paste

' Texte premier tableau

Set rng = wDoc.Content

rng.InsertAfter "" & vbNewLine & vbNewLine & "Détails relatifs aux players indisponibles :" & vbNewLine & vbNewLine

' Deuxieme tableau

Dernligne = Range("M" & Rows.Count).End(xlUp).Row

Range("I13:N" & Dernligne).Select

' Range("I13:N13").Select

' Range(Selection, Selection.End(xlDown)).Select

Selection.CopyPicture

wDoc.Application.Selection.Start = Len(.Body)

wDoc.Application.Selection.End = wDoc.Application.Selection.Start

wDoc.Application.Selection.Paste

' Texte premier tableau

Set rng = wDoc.Content

rng.InsertAfter "" & vbNewLine & vbNewLine & "Pour toute question complémentaire, merci de contacter le support visioconférence en composant le 87777 ou en écrivant à l'adresse : gts.support-visio@socgen.com" & vbNewLine & vbNewLine & "Cordialement" & vbNewLine & vbNewLine

End With

Set OL = Nothing

Set myItem = Nothing

Set wDoc = Nothing

Sheets("MeteoCheck").Select

End Sub

Merci d'avance pour votre aide sur ce problème, en espérant avoir été compréhensible sur l'explication de mon problème.

Bonjour à tous.

j'essaye depuis un petit moment de verrouiller plusieurs fichier excel pour la modification mais j'ai quelques soucis.

J'ai récupéré le maintient et l'upgrade d'un fichier excel dont ce servent les commerciaux pour leur propositions commerciales, ce que j'ai fait en en faisant un fichier xslm bourré de macro et de règle de sécurités qui se verrouille tout seul des que je leur envoi une nouvelle version. Mais malheureusement les fichiers dont je ne suis pas à l'origine ne sont pas sécurisés et en gros ils peuvent s'en servir encore maintenant ce que je ne veux pas.

J'aimerai en fait pouvoir grâce à un fichier xlsm ou carrément avec un script tester si certaines feuilles existent dans les fichiers excel présent dans l'ordinateur et si ce n'est pas le cas le fichier se verrouille à la modification.

Donc dans tous les fichiers excel que je veux tester il doit y avoir une feuille nommé "Détail de la vente" donc si elle n'est pas présente on teste un autre fichier.

ensuite si elle est présente on vérifie si la feuille "Version" existe, si oui on passe à un autre fichier, si non on verrouille le fichier à la modification avec un mdp.

et tout ça bien sûre sans ouvrir les fichiers excel à tester.

je pencherai pour un script mais je sais pas trop comment interagir avec excel sans l'ouvrir.

Merci d'avance

Bonjour

depuis quelques jours a chaque ouverture d'une feuille ou classeur Excel un message d'alerte securité est apparait ( voir photo ci-joint )

en plus le lien entre les 2 classeurs excel est desactivé a chaque ouverture sachant que lien est juste !!

Merci de m'aider svp

pb securite pb securite pb securite pb securite pb securite pb securite

Bonjour,

Je suis étudiant en alternance et dans le cadre de mon alternance, j'ai été amené à créer une macro Excel qui permet de faire apparaître une pop up après une inactivité de 10 min sur un document Excel. (Cette macro ne concerne qu'un document Excel)

Cette macro a pour but d'éviter que quelqu'un s'endorme sur le document Excel. Ce document Excel doit être accessible par toutes les personnes sur le réseau.

Ma question est celle ci :

Est-il possible de rendre automatiquement active les macros pour un document Excel sans demander l'autorisation à l'utilisateur ?

Je sais que par sécurité, il faut que l'utilisateur active les macros pour éviter les vilains de faire des choses pas très sympa. Cependant cette macro est validée par les personnes qui m'ont demandé de la réaliser et ne représente aucun danger pour l'utilisateur. Mais malheureusement par habitude même si l'on fait confiance à un document, on voit "Activer les macro", on refuse direct. Ce qui rend mon travail totalement inutile.

Donc s'il y a un moyen de pouvoir autoriser automatiquement les macros pour les utilisateurs qui utilisent se document Excel, ce serait parfait !

Merci pour lecture et pour les potentiels réponses

Cordialement,

Americium

Bonjour le forum,

Je viens vers vous car j’ai un souci avec Query.

En effet, j’aimerai que le message qui s’affiche sur le fichier joint ne s’affiche plus lorsqu’un utilisateur actualise mon fichier,

Je joins un fichier exemple qui ne contient aucune requête Query donc le message d’erreur ne s’affichera pas mais c’est au cas ou un code VBA permettrai de cliquer sur ignorer et enregistrer lorsque cette fenêtre apparait,

Merci d’avance pour votre aide,

Cordialement,

18query-securite.xlsm (497.42 Ko)

Bonjour,

Je voudrai scinder un numero de securité sociale en 6 colonnes

A1= 2630475048026

Formule =>

B1 :2

C1: 63

D1: 04

E1: 75

F1: 048

G1: 026

merci pour votre précieuse aide

Bonjour,

Je vous contact afin de sécuriser un document. Effectivement, j'y ai rassemblé pas mal d'info (voir info sensibles).

J'aimerais donc ajouter une sécurité qui me demande un mot de passe au bout de 30 ouvertures et qui supprime le document si le mot de passe est faux (seulement 1 essai)

Si possible ajouter un message personnalisé lors de la suppression du document.

Merci pour votre aide précieuse.

GV

Bonsoir tout le monde

voila j'ai fait une petite tentative dans le but d'aider un ami a gérer sa minuscule entreprise, et donc afin de lui permettre de communiquer sur le même classeur Excel avec ses employés , sans que chaque employé ne sache se qui se dit avec le manager

dans cette optique j'ai fait un classeur qui ouvre des feuilles différentes en fonction d'un mot de passe et d'un identifiant .

le truc c'est que je ne suis pas vraiment au point (je dois dire nul a ce sujet) concernant le partage sur réseau.

LA Question:

si un utilisateur a déjà ouvert le classeur et qu'un autre tente de l’ouvrir que se passe t-il ?

a savoir

les utilisateurs sont ainsi nommés :

Manager

utilisateur1

utilisateur2

utilisateur3

utilisateur20

et les mot de passe préalablement affectées sont les suivant (dans le même ordre)

Util00

Util01

Util02

Util03

Util20

Ci-Joint le classeur Excel

https://www.cjoint.com/c/GKEsDH1JpNo

http://www.capi-ears.com/tutoriel-informatique/oter-les-protections-dun-fichier-excel/

personnellement je le sais vraiment pas je me le demande aussi!

car en suivant les étape décrites sur le site du lie et de YouTube, j'ai pu moi même accéder au code VBA de l'application Snike proposée en téléchargement gratuit sur excel-pratique et dont le code était verrouillé pour donner quelque euro au développeur qui a mis toute sont énergie a le faire! (DÉSOLE pour lui au passage).

quelqu'un pourrait-il nous dire comme faire pour que nos application VBA (Excel) puissent être protégé réellement ?

PS: j'ai posté exactement le même truc sur une réponse a pirate..)

Bonjour,

J'ai un gros problème avec un fichier excel.

Lorsque j'ouvre le fichier, j'ai un message qui me dit "Avertissement de sécurité : La mise à jour automatique des liens a été désactivée."

Je signale qu'il n'y a plus de lien dans ce fichier, ils ont été retiré. Pour créer ce fichier, j'ai fait du copier-coller de l'ancien fichier vers un nouveau. Malgré le fait que les liens hypertext ont été supprimé sur la page "Accueil", j'ai encore cet avertissement. Que puis-je faire ?

Autre problème dans ce même fichier, j'ai mis une bête formule, c'est-à-dire "=cell d'un autre onglet". Pour ce faire, j'ai tapé "=" et ensuite j'ai sélectionné la cellule ad hoc et ensuite enter. Au lieu d'avoir le résultat, donc le contenu de cette cellule, comme pour les autres cas, j'ai la formule qui reste affichée (onglet UA 950 Washington, page 3).

Comme pour tout mes autres fichiers, j'ai voulu faire la liste sélective pour les noms de chauffeur (cfr précédetn post). Dans ce fichier, cela ne marche pas (Onglet Accueil, page 1, Bloc N° 1) de même pour la plaque du véhicule. Cela ne marche pas (même bloc).

Merci beaucoup pour votre aide.

Re-bonjour, j'ai encore une petite demande afin d'assurer la bonne utilisation de mon classeur par les collègues.

Au niveau de la page d'accueil, c'est à dire la feuille sommaire, j'ai donc deux boutons pour afficher ou cacher les en-têtes de colonnes dans toutes les feuilles, ça fonctionne impeccable, merci.

Néanmoins, pour éviter qu'un petit malin joue avec ce bouton, est ce qu'il serait possible de rajouter une ligne de commande dans la macro ci-dessous servant à l'affichage permettant de passer par une petite boite (InputBox) et d'entrer un code avant que cette macro s'active ? D'avance, merci beaucoup, Chti59xcel

Sub Affiche_Entête()

Dim f As Worksheet

Application.ScreenUpdating = False

For Each f In Sheets

If Sheets(f.Name).Visible = True Then

Sheets(f.Name).Select

ActiveWindow.DisplayHeadings = True

Else

Sheets(f.Name).Visible = True

Sheets(f.Name).Select

ActiveWindow.DisplayHeadings = True

Sheets(f.Name).Visible = False

Application.ScreenUpdating = True

End If

Next

End Sub

Bonjour

Je reviens sur le forum pour un problème que je n’arrive pas à résoudre. J’ai beau chercher je ne trouve pas de solutions qui me satisfasses.

J’ai un tableau bien remplis (1000 lignes et AJ colonne), je ne peux donc plus traiter les données à la main. Je dois envoyer ce tableau à un partenaire pour qu’il le remplisse, mais j’aimerais réaliser quelques taches de sécurisation du tableau avant.

J’aimerais avoir un tableau avec :

  • Des pages masquées
  • Des colonnes masquées
  • Des colonnes avec interdiction de changer les valeurs
  • Des colonnes où il pourra changer les données
  • Impossibilité de voir les formules rentrées dans ces cellules

Je sais comment masquer des pages et des colonnes, mais je ne sais pas comment les protégés par un code de manière certaines.

Je sais aussi comment interdire de changer la valeur d’une cellule, mais je n’arrive pas à cacher les formules.

Le petit problème est que mon partenaire doit rentrer des données dans certaines cellules (il a besoin de voir es autres cellules), mais il ne doit en aucun cas connaitre les formules.

Je vous transmets un petit extrait du tableau en PJ. Les colonnes E, U et W seront modifiables par mon partenaire. Les formules à masquées sont dans les colonnes : Q, S, T, V, X.

Pouvez-vous m’indiquez la meilleure méthode à appliquer pour que je puisse lui envoyé ce tableur en toute sécurités.

6forum-v1.xlsm (12.80 Ko)

Je vous remercie, et à bientôt

Ben

Salut ,

Quel est le code vba permettant de desactiver l'avertissement de securité qui s'affiche à l'ouverture d'un fichier Excel contenant des macros.

En fait, j'ai crée une application que je dois montrer à mon patron et je suis pas sûr qu'il acceptera de toucher à sa machine soit disant que je dois autoriser en premier lieu la lecture des fichiers vba sous le menu Office avant de lui montrer l'application.

Quelq'un peut m'aider s'il vous plaît ?

Merci;

Bonjour le forum,

Voulant ouvrir deux classeurs (que j'ai créé) simultanément j'ai donc enregistré un environnement de travail en *.xlw

Mon "petit" problème c'est qu'à chaque fois que je veux l'ouvrir j'ai un message de sécurité (image ci-dessous) me disant que l'ouverture de ce fichier peut être dangereux !!!

Y aurait-il un moyen que ce fichier ne s'affiche plus ?

D'avance merci pour vos réponses

avis

Bonjour à tous et déjà pour votre contribution,

Je m'occupe de la gestion des EPI dans mon entreprise et je souhaite avoir à ma disposition un tableau EXCEL qui me permette :

1. de suivre, pur chaque salarié (Marc, Alain, Cédric) les dates de renouvellement des EPI :

2. Avoir, un onglet qui indique le statut du salarié pour un EPI donné. 4 niveaux sont présentés (avec pour chacun un code couleur)

  • UTILISATION EN COURS (VERT)
  • COMMANDE ALERTE 1 ( 120 jours avant la date limite
  • COMMANDE ALERTE 2 ( 90 jours avant la date limite
  • COMMANDE ALERTE 3 (VIOLET) : 60 jours avant la date limite
  • COMMANDE ALERTE 4 (ROUGE) : 30 jours avant la date limite
  • COMMANDE DEPASSEE (NOIR) : Date limite dépassée

SVP, pouvez me céer ce fichier (l'idée est d'avoir un onglet par salarié et un onglet qui présente pour chaque salarié et par équipement, la siutuation à date. (UTILISATION EN COURS, COMMANDE ALERTE N° 1, 2, 3, 4 feuille.

Un grand merci à tous pour générosité!

Bonjour,

Avant tout je précise que je suis sur Excel 2011 MAC.

Je récupère des fichiers dans lesquels sont présents des macros, et des listes déroulantes associées à ces macros.

Malgré mes recherches sur ce forum, je n'ai encore rien trouvé concernant la résolution de mon problème.

Seulement quand je clique sur cette liste déroulante, ce contrôle est considéré comme une image et je ne peux donc pas faire de choix dans cette liste déroulante. J'ai trouvé que mon problème provient du niveau de sécurité des macros sur mon Excel 2011 Mac ; mais je n'ai pas trouvé où modifier ce niveau de sécurité.

La seule option trouvée dans les préférences sur la sécurité des macros permet seulement de prévenir si présence ou non d'une macro à l'ouverture du fichier.

Merci de votre aide sur ce sujet, car je dois bien avouer que ça commence à bien m'énerver.

Dans l'attente de vos réponses

Cdlt

Bonjour

serait il possible d'arrêter une macro (en fait empêcher le programme de démarrer ) après 15 clic sur un bouton merci d'avance pour votre réponse

Cordialement

Bonjour à toutes et à tous,

Je bloque sur la sécurité des macros, car il m'est indispensable tous les pc utilisant mes fichiers soient en sécurité basse.

J'ai 2 problèmes:

1/ Des pc sont avec Excel 2003; 2007 ou 2010 (Je ne sais pas si c'est vraiment utile de faire la distinction entre le 2003 et les autres. Dans le doute, je l'ai prévu dans le code),

2/ Le code ci-dessous ne fonctionne pas et je comprends pas pourquoi.

Merci d'avance pour votre aide.

Private sub Workbook_Open ()

Dim VerExcel As String

VerExcel = Application.Version

If VerExcel < "12.0" then

Application.AutomationSecurity = msoAutomationSecurityLow

ElseIf VerExcel >= "12.0" then

Application.AutomationSecurity = msoAutomationSecurityLow

Application.AutomationSecurity = msoAutomationSecurityByUI

Application.AutomationSecurity = msoAutomationSecurityForceDisable

End If

End Sub

Recherches récentes

imprimer listbox dateaudit securiteimpression feuille listbox dategestion stock fifofifo stockdanielactivesheet shapes selectallsupprimer images pas boutonscompter visibles plagedecimalescaissehypertextedashboardvba caissesavdonnees independantesite webqcmplanificateurcolorier selection