如何关注这个弹出窗口？

Question

我需要关注这个弹出窗口）＆＃34; hasFocus＆＃34;。 Addictionaly它现在只能在没有弹出窗口的情况下工作。此弹出窗口仅在窗口未加载1秒钟并快速单击到其他位置时才有效。这是主要的PHP代码：pastebin.com/LNLuYqT3。重要的弹出窗口：pastebin.com/vc6sNxGz。

Option Explicit
Public week, datedone, data, location As Variant

Sub pqr()

week = InputBox("Week:")
datedone = InputBox("Date:")
data = InputBox("Data:")
location = InputBox("Location:")

Dim ws As Worksheet
Dim x As Workbook
Dim LastRow As Long
Dim FirstRow As Long

Set x = ThisWorkbook

For Each ws In x.Worksheets
    If ws.Name = "setup" Then
    LastRow = Cells(Rows.Count, "E").End(xlUp).Row
    ws.Range("E" & LastRow).Activate
    FirstRow = ActiveCell.CurrentRegion.Cells(1, 1).Activate


With ws.Range("A" & LastRow).CurrentRegion
    ws.Range(.Cells(FirstRow, 1), .Cells(LastRow, 1)).Value = week
    ws.Range(.Cells(FirstRow, 2), .Cells(LastRow, 2)).Value = datedone
    ws.Range(.Cells(FirstRow, 3), .Cells(LastRow, 3)).Value = data
    ws.Range(.Cells(FirstRow, 4), .Cells(LastRow, 4)).Value = location
End With

End If

Next

End Sub

这里有按钮：Here is a commit on github。