Xin Code hộp Save As

[Yumi_Nagata]

Chào các bác/anh chị trong diễn đàn, chúc mọi người buổi tối vui vẻ, đầm ấm bên gia đình
Em muốn xin code hộp thoại save as. Mong nhận được sự giúp đỡ của mọi người. Em xin chân thành cảm ơn

 

[Maika8008]

Search Google bằng từ khóa dialog save as vba excel nhanh hơn hỏi nhiều.

 

[Yumi_Nagata]

Search Google bằng từ khóa dialog save as vba excel nhanh hơn hỏi nhiều.

MsgBox(Prompt:="PLEASE SAVE THE FILE TO A NEW NAME.", _
Buttons:=vbOKCancel + vbExclamation, Title:="REMINDER")
'Bring up the Save As screen.
If Response = vbOK Then
Application.Dialogs(xlDialogSaveAs).Show ("*.xls")
End If

Sub filesave()
Dim bFileSaveAs As Boolean
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical
End Sub

Em đã tìm được 2 code này ạ. Hì hì