Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Splash Screen à l'ouverture en mode "En écriture"

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

wailou

XLDnaute Nouveau
Bonjour,

J'ai fait un Splash Screen pour avertir mes collègues à l'ouverture de différents classeurs... Mais j'ai besoin (pour une macro située dans un autre classeur) que ces Splash Screen n'apparaissent que lorsque les collègues ouvrent ces documents en mode "En écriture" (pour lequel ils doivent rentrer un mot de passe).

Voici ma source pour le formulaire (c'est un userform qui disparait après 30 secondes d'apparition) :

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:30"), "fermer"
End Sub

Et voici le module lié :

Private Sub fermer()
Unload UserForm1
End Sub
Comment puis-je faire pour que ce Splash Screen ne se lance qu'en mode "en écriture" ?

Merci de votre aide.
 
Trier par date Trier par votes
Re : Splash Screen à l'ouverture en mode "En écriture"

Bonjour,

Tu peux vérifier le statut du classeur à l'ouverture:

Code: 
Private Sub Workbook_Open()
    If Me.ReadOnly Then
        'Le classeur est en lecture seule
    Else
        'Le classeur est en lecture/ecriture
    End If
End Sub

A tester.

Bonnes fêtes,

Tirex28/
 
Vote positif 0 Vote négatif
Re : Splash Screen à l'ouverture en mode "En écriture"

Merci beaucoup pour ta réponse tirex, je viens de rentrer au boulot mais je ne vois pas trop ce que je pourrais mettre comme action entre les conditions... Pourrais-tu m'aider (je suis débutant en VBA).

Et dois-je mettre le code dans le formulaire ou dans le thisworkbook ?

Merci.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Splash Screen à l'ouverture en mode "En écriture"

Bonjour Wailou, Tirex

essaye peut être comme ceci, code à placer dans le module "ThisWorkbook", se déclenche à l'ouverture :

Code: 
Private Sub Workbook_Open()
    If Me.ReadOnly = False Then userform1.Show
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Résolu(e)
XL 2019 Après un No_Splash Screen et un displayfullscreen ok mais ruban répond pas
Réponses
14
Affichages
892
YAP32
Y
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
633
darkjedi
D
B
  • Question Question
XL 2016 RESOLU _ Reset le minuteur si Userform Actif et activité sur Userform
Réponses
14
Affichages
645
Dranreb
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
413
AtTheOne
C
  • Question Question
XL 2016 Un chronomètre qui affiche TOUTES les secondes pendant la durée d'un traitement
2
Réponses
20
Affichages
2 K
crocrocro
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
263
JJ69
J
D
  • Question Question
XL 2016 VBA 6 Erreur à l'ouverture du classeur
Réponses
0
Affichages
705
danielco
D
  • Question Question
XL 2019 Fichier excel : open, update et copy
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
M
  • Résolu(e)
XL 2013 actualiser le nom des onglets en automatique à l'ouverture du fichier et ou VBA
Réponses
3
Affichages
2 K
mrdo
M
J
  • Question Question
XL 2016 Procédure de fermeture automatique de fichier
Réponses
6
Affichages
2 K
krimoines
K
C
  • Question Question
XL 2010 ecran d'affichage mise a jour heure précise.
Réponses
6
Affichages
921
Modeste geedee
F
  • Question Question
XL 2019 Avis macro sur classeur maître
Réponses
0
Affichages
737
Fanrs
F
P
  • Question Question
XL 2019 Rotation automatique entre deux feuilles
Réponses
11
Affichages
2 K
Phil69970
M
  • Question Question
XL 2016 VBA > Réactualisation d'un TCD à l'ouverture du fichier qui ne passe pas
Réponses
3
Affichages
2 K
Phil69970
J
  • Résolu(e)
Microsoft 365 Modulation Time dans VBA
Réponses
2
Affichages
973
JBL07
J
  • Question Question
XL 2016 rafraîchir écran
Réponses
0
Affichages
964
KTM
P
  • Question Question
XL 2019 Correction macro rotation feuille
Réponses
6
Affichages
1 K
pierrelcq
P
C
  • Question Question
XL 2016 Texte qui clignote correctement mais avec un problème de cellule calculée
Réponses
7
Affichages
1 K
riton00
G
  • Question Question
Problème macro qui s'exécute en boucle
Réponses
2
Affichages
1 K
GTT-76
G
C
  • Question Question
XL 2010 Mise à jour macro et éxécution de celle ci à l'ouverture du doc
Réponses
2
Affichages
928
candice**
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…