View original (French)

Remove the cross in MSGBOX

Solved
duduleray -  
 duduleray -
Hello everyone, forum hello,

Configuration: Windows / Edge 18.18362
Under Windows 10 and Excel 2007 Fr

I display a small message "End of listing" with the code below, then the message automatically disappears after 3 seconds, so far so good.

I would like to remove the X in the top right corner of the MSGBOX so that it cannot be preemptively closed.

So I want to remove it and make the X inactive, and the message should disappear by itself after 3 seconds.

Thank you for your help, have a good afternoon.

I have seen tips on the web and tried them, but they don't work.

Best regards, duduleray 


Sub Msgbox_01()
 CreateObject("Wscript.shell").Popup "End of listing", 3, "Information message", vbInformation
End Sub

6 answers

Answer 1 / 6
yg_be Posted messages 23437 Registration date   Status Contributor Last intervention   Ambassadeur 1 588
 
Hello,
can you clarify "basic" when you share VBA code?
"It's not working": what's happening, do you have an error message?
1
Answer 2 / 6
f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
 
Hello,

To avoid the cross, you need at least two buttons

Sub Msgbox_01()
CreateObject("WScript.Shell").Popup "End of listing", 3, "Information message", vbYesNo + vbInformation
End Sub
But the buttons close the box

I saw a site where a guy developed a DLL to avoid having a button, but you have to download the DLL and install it on each PC where the file will be

A simple example with UserForm and Timer:
https://mon-partage.fr/f/hPdkmbEI/
1
Answer 3 / 6
duduleray
 
Hello yg_be,

Thank you for your reply, I have selected "basic" and then pasted my piece of code between the two icons, but it's not working.

I am on Windows 10 and official French Edge, I already removed Internet Explorer 11 because of this issue but it's still not working and I don't know why.

That's it for that, otherwise I don't have any error messages since I don't have the code to fulfill my request.

Thank you for your help, have a nice afternoon.

Best regards, Duduleray
0
Answer 4 / 6
duduleray
 
Hi f894009,

Thank you for your response, that's nice.

I tried your file which works almost

I just modified the 3 seconds, I set it to 10 seconds to see
but I don't see the countdown displayed in the USF
and after 10 seconds the USF disappears

I would really like to see the countdown if possible, I've seen that online
it was a small bar graph in the center of a USF that moved according to the countdown time with the display counting down, like below roughly

||||||||||||||||||||||||||||||||||||||||||| remaining 05 s |||||||||||||||||||

Thank you for your help, have a good evening

Best regards, Duduleray
0
f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
 
Re,
but I don't see the countdown displayed in the USF
Not requested and not in your WScript example
In "my" example, it's not possible with this code, but feasible with different code
0
duduleray > f894009 Posted messages 17417 Registration date   Status Member Last intervention  
 
Good evening

Thank you for the response,

would it be possible to do that with a different code?
Please could you do that for me, that would be very kind.

Thank you in advance.

Best regards, duduray
0
f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717 > duduleray
 
Hello,

Okay; I'll take a look at it.
0
duduleray > f894009 Posted messages 17417 Registration date   Status Member Last intervention  
 
Hello,

Thank you for your response,

So I would like to display a message via a USF or MSGBOX with an adjustable auto-close timer without clicking on OK or a cross

and if possible a small progress bar that decreases over time with a numerical display in the middle of the progress bar

have a nice day and thank you

Best regards, duduleray
0
f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717 > duduleray
 
What will happen during the wait?
0
Answer 5 / 6
duduleray
 
Hi,

While waiting, I would just like to see the numerical countdown in the middle of the paragraph
and then at the end, we close the USF.

The waits won't be very long, around ten seconds or so.

Thank you, see you later, have a good afternoon.

Best regards, duduleray
0
f894009 Posted messages 17417 Registration date   Status Member Last intervention   1 717
 
Re,

An example: https://mon-partage.fr/f/D5unfTnU/
0
duduleray > f894009 Posted messages 17417 Registration date   Status Member Last intervention  
 
Hi, I can't access the site my share
it might be due to network congestion even though I have fiber

I will wait a bit and then I will try again

I retrieved the file.
0
yg_be Posted messages 23437 Registration date   Status Contributor Last intervention   1 588 > duduleray
 
It's the site that is overloaded, not your local Internet access.
Try again.
0
duduleray > yg_be Posted messages 23437 Registration date   Status Contributor Last intervention  
 
Hi yg_be,

Thank you for the info, I just retrieved the file, it's the first time it's been this long.
Have a nice evening, thank you

Regards, Duduleray
0
Answer 6 / 6
duduleray
 
Re f894009,

Thank you for the file, it works well.

So for me, it's good, I thank you for creating the little code, that's nice of you.

I will mark the topic as resolved

Have a good evening and thanks again.

Best regards, DuduleRay
0