Microsoft 365 UserForm ne pas afficher le X de fermeture (titre) ou le rendre inopérant

Eric C

XLDnaute Barbatruc

• 9 Mai 2021

• #2

Bonsoir le forum
Bonsoir Lionel

Pourquoi passer par les Api qui doivent alourdir la procédure ? Tu bloques (empêches) l'action sur la "croix" et le tour est joué (sans oublier le bouton de fermeture de l'Usf).
Eric c

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Mai 2021

• #3

Bonsoir Eric,
Merci pour ta réponse.
LOL, je veux bien ne pas passer par les Apis mais je ne sais pas le faire.
lionel

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Mai 2021

• #4

Re,

VB:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Bonne soirée à toutes & à tous
Eric c

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Mai 2021

• #5

Bonsoir Eric C, Lionel,

je ne comprends pas : avec le nouveau fichier de Lionel (qui utilise ta nouvelle sub), quand je clique sur la croix de fermeture du UserForm, ça ne marche pas : le UserForm reste affiché, et il refuse de se fermer ! c'est un bug du classeur Excel, un bug d'Excel, ou un bug de Windows ?

c'était la réaction d'un utilisateur lambda ; j'imagine déjà la hotline de Lionel complètement submergée, lolllll ! ​

soan

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Mai 2021

• #6

Bonsoir Soan,
Merci d'être là.
C'est dans le fichier du calendrier "Calendrier_test_Roland_CodeFeuilles3" que je n'arrive pas à intégrer l'un des codes des 2 autres fichiers (qui fonctionnent) pour que la X devienne inopérante.
lionel

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Mai 2021

• #7

@lionel

j'avais juste voulu indiquer par une boutade que tes utilisateurs risquent de submerger ta hotline si tu bloques la croix de ton UserForm ; j'avais pas prévu d'aller plus loin ; mébon, j'vais essayer d'voir si j'trouve une solution ; c'est sans garantie, ça risque d'être un peu long, et si j'trouve rien, j'espère qu'Eric C pourra mieux t'aider ; après tout, c'est lui l'auteur de la sub du post #4. ​

soan

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Mai 2021

• #8

Bonjour @Usine à gaz , @Eric C , @soan

Je te propose beaucoup plus simple....
Désolé mais c'est pas une usine à gaz mais c'est .... simple et fonctionnel et cela m’encombre pas la hotline...de Lionel.

@Phil69970

 

Pièces jointes

• Femer USF.xlsm

  22 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

Eric C

XLDnaute Barbatruc

• 9 Mai 2021

• #9

Re,
Bonsoir soan, bonsoir Phil69970

J'étais entrain de rédiger lors du post de Phil (je n'ai pas pris connaissance de sa solution. Sinon, si les utilisateurs de l'appli de Lionel sont quelque peu désorientés, on peut toujours leur faire savoir que la "croix" est inactive :

VB:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then MsgBox "Cette procédure a été désactivée, veuillez quitter le formulaire via le bouton FERMETURE, merci": Cancel = True
End Sub

Edit : @Phil69970 : on se rejoint -
Bonne nuit à toutes & à tous

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Mai 2021

• #10

Bonsoir Eric, Soan, Phil69970, Eric C,
Merci à tous pour vos retours

La solution de Phil69970, qui n'est pas une "usine à gaz" (ha, j'suis déçu lol), me va très bien.
Merci Phil69970
Egalement ok pour le code de Eric C Merci à toi aussi
Encore merci à tous,
Bonne fin de dimanche,
lionel,

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Mai 2021

• #11

Bonjour Lionel, le fil,

je suis désolé : hier j'avais commencé à travailler sur ton fichier, puis j'ai eu un gros contretemps imprévu ; heureusement, quand je suis revenu, j'ai vu que Phil et Eric C t'ont proposé des solutions adéquates. ​

soan

 

Vote positif 0 Vote négatif