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

Вот как это работает: