VBA，“保存”按钮将无法正常工作

Question

当我单击它时，我想将保存按钮的标题更改为“请稍候”，然后在保存工作簿后，标题将返回其原始标题“保存”。这是我的代码。

Private sub cmdSave_Click()
cmdSave.Caption = "Please wait"
ThisWorkbook.SAVE
UserForm1.Show
MsgBox "Saving Successful"
cmdSave.Caption = "SAVE"
End Sub

我的保存按钮位于userform1上，因此我放置了userform1.show，因为当我单击“保存”时，userform1会隐藏，

我的问题是我按下“保存”按钮后，“请稍候”字幕代码会延迟运行。有什么想法吗？

Answer 1

命名按钮cmdSave，然后将以下内容放入UserForm：

Private Sub cmdSave_Click()
    cmdSave.Caption = "Please wait"
    ThisWorkbook.Save
    MsgBox "Saving Successful!"
    cmdSave.Caption = "SAVE"
End Sub

它是这样工作的：