Automatically click ok on message box

[Biz]

Dear All,

File 1 has vba that opens an another Excel file File 2 and runs vba stored in File2.
Once vba in File 2 finishes running then it display message to click ok.

Is it possible to automatically click "ok" to message box?

Biz

 

[RSXchin]

Application.DisplayAlerts = False

 

[Biz]

Hi ,

This does not work at all. Msgbox is created vba in File 2 as basis user notification. I can't change that file.

Is it possible to stop message box appearing? I have used code below on start code in File 1

'Speeding Up VBA Code
 With Application
    .ScreenUpdating = False 'Prevent screen flickering
    .Calculation = xlCalculationManual 'Preventing calculation
    .DisplayAlerts = False 'Turn OFF alerts
    .EnableEvents = False 'Prevent All Events
End With

Biz

 

[dk]

Hi

Are you able to modify the code in File2? Ideally you would modify it so that you could specify an optional flag that indicates whether you want it to display the message box or not. Here is a simple example:

Sub Testing()

    'First of all run the process using default settings.
    'It will display a message.
    SomeProcess


    'Now specify that you don't want any user interaction (i.e. anything that requires human input)
    SomeProcess UserInteract:=False


End Sub



Sub SomeProcess(Optional UserInteract As Boolean = True)


' do something
    Debug.Print "In Someprocess and UserInteract=" & UserInteract



    If UserInteract Then
        MsgBox "Macro in file 2 has finished.", vbOKOnly, ""
    End If


End Sub

HTH
DK

 

[dk]

Hi ,

This does not work at all. Msgbox is created vba in File 2 as basis user notification. I can't change that file.

Is it possible to stop message box appearing? I have used code below on start code in File 1

'Speeding Up VBA Code
 With Application
    .ScreenUpdating = False 'Prevent screen flickering
    .Calculation = xlCalculationManual 'Preventing calculation
    .DisplayAlerts = False 'Turn OFF alerts
    .EnableEvents = False 'Prevent All Events
End With

Biz

Application.DisplayAlerts doesn't work with VBA message boxes. If you're not able to modify the code in File2 then I don't know what else you can do.

 

[Biz]

Hi dk,

I know this difficult question because I can't modify macro in File 2.

Hoping someone has a way to do this.

Biz

 

[Biz]

Hi DK,

Your approach does work and I have implemented it.
Thank you for crafty solution.
Biz

Hi

Are you able to modify the code in File2? Ideally you would modify it so that you could specify an optional flag that indicates whether you want it to display the message box or not. Here is a simple example:

Sub Testing()
 
    'First of all run the process using default settings.
    'It will display a message.
    SomeProcess
 
 
    'Now specify that you don't want any user interaction (i.e. anything that requires human input)
    SomeProcess UserInteract:=False
 
 
End Sub
 
 
 
Sub SomeProcess(Optional UserInteract As Boolean = True)
 
 
' do something
    Debug.Print "In Someprocess and UserInteract=" & UserInteract
 
 
 
    If UserInteract Then
        MsgBox "Macro in file 2 has finished.", vbOKOnly, ""
    End If
 
 
End Sub

HTH
DK

 

[RSXchin]

That is NINJA!!!!