open用法 vba,Excel VBA：Workbook_Open

I'm using Workbook_Open to call a userform when the application is opened, this is working fine. However I would like it to only run the first time it is opened.

I tried this and it work if I run the sub from the editor but not when I open the file.

Sub Workbook_Open()

If Worksheets("DataSheet").Range("A1").Value = "" Then

QuickStartForum.Show

End If

End Sub

Note: A1 contains a value that will be populated after the user form has run

It appears that the problem is that it opens the user form before the data is loaded into the worksheet.

Is this there a way around this or do I need to take a different approach ?

解决方案

I think it is because you have this code in a Module. You need to put the code within 'ThisWorkBook'.

I tried this following code and had no issues when it was in the 'ThisWorkBook' it failed to run within 'Module1'

Private Sub Workbook_Open()

If Worksheets("DataSheet").Range("A1").Value = "" Then

QuickStartForum.Show

Worksheets("DataSheet").Range("A1").Value = "filled" '

Else

MsgBox ("not shown because the A1 cell has data")

End If

End Sub