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

[Usine à gaz]

Bonsoir à toutes et à tous,
Je vous souhaite une bonne fin de We

Je reviens sur une question que j'avais posée anciennement.
Lors de ce fil, j'avais pu récupérer 2 fichiers répondant à mon besoin et en j'en remercie les auteurs.

Toutefois, dans mon fichier joint "Calendrier_test_Roland_CodeFeuilles3",
je n'arrive pas à intégrer les codes des 2 fichiers qui fonctionnent et que je joins aussi en pièces jointe.

Pourriez-vous m'aider ?
je vous remercie,
Amicalement,
lionel,

 

[Eric C]

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

 

[Usine à gaz]

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

 

[Eric C]

Re,

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

 

[soan]

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

 

[Usine à gaz]

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

 

[soan]

@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

 

[Phil69970]

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

 

[Eric C]

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 :

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

 

[Usine à gaz]

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,

 

[soan]

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