python vba 秒出结果_过几秒再执行下一个程序VBA该怎么写

我想过5秒再执行下一个序程VBA该怎么写(因为刷新需要一定时间,还没刷新完就又上锁了,根本没法刷)程序如下:Subauto_open()MsgBox"刷新数据"'设置sheet1工作表Sheets("sheet1").SelectA...

我想过5秒再执行下一个序程VBA该怎么写(因为刷新需要一定时间,还没刷新完就又上锁了,根本没法刷)程序如下:

Sub auto_open()

MsgBox "刷新数据"

'设置sheet1工作表

Sheets("sheet1").Select

ActiveSheet.Unprotect Password:="123" '解除保护，密码为123

Sheets("sheet2").Select

ActiveSheet.Unprotect Password:="123" '解除保护，密码为123"

ActiveWorkbook.RefreshAll

Sheets("sheet1").Select

ActiveSheet.Protect Password:="123" ' 保护工作表并设置密码

Sheets("sheet2").Select

ActiveSheet.Protect Password:="123" ' 保护工作表并设置密码

End Sub

我想在执行刷新后过几秒再执行保护工作表(不然他就马上锁上了,还是无法刷新透视表)

即在:

Sub auto_open()

MsgBox "刷新数据"

'设置sheet1工作表

Sheets("sheet1").Select

ActiveSheet.Unprotect Password:="123" '解除保护，密码为123

Sheets("sheet2").Select

ActiveSheet.Unprotect Password:="123" '解除保护，密码为123"

ActiveWorkbook.RefreshAll

过5秒后再执行后面程序:(这个过几秒该怎么写,高手帮忙写一下!)

Sheets("sheet1").Select

ActiveSheet.Protect Password:="123" ' 保护工作表并设置密码

Sheets("sheet2").Select

ActiveSheet.Protect Password:="123" ' 保护工作表并设置密码

展开