Bonjour,
A l'ouverture de mon fichier, j'ai un message Microsoft
je n'arrive pas à le supprimer, masquer ou autre...
J'ai essayé dans thisWorkbook_Open
De quel commande il s'agit, je ne vois pas : ce fichier est constitué d'une base de données et de différentes feuilles constituées de TCD, d'une page d'accueil avec des boutons pour accéder aux feuilles, et d'une feuille masquée avec mdp pour la mise à jour de la BdD
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Workbook_Open() ''ActiveSheet.Unprotect ("mdp") Application.DisplayAlerts = False Workbooks("MonClasseur.xlsm").Activate Application.Goto (ActiveWorkbook.Sheets("Accueil").Range("A3")) ' Attendre 5 secondes j'ai essayé plusieurs tps Application.Wait Time + TimeSerial(0, 0, 10) '(h,mn,s) SendKeys ("{ENTER}") 'simule l'appuie sur la touche entrée ''ActiveSheet.Protect ("mdp") Application.DisplayFullScreen = True Application.DisplayAlerts = True End Sub
Le fait de cliquer sur Ok ferme la boîte de dialogue et il n'y a aucune conséquence sur l'utilisation du fichier en mode verrouillé (le bouton MàJ dévérouille toutes les feuilles, donc pas de pb non plus)
Est-ce que quelqu'un peut m'aider, ça me mine le moral
Merci d'avance
Partager