請問vba存檔

1.如果是直接設定另存的檔名
myFileName = ThisWorkbook.Path & "\檔名"
ActiveWorkbook.SaveAs Filename:=myFileName

2.另存檔名並設保護密碼
myPassWord = InputBox("請自行設定活頁簿保護密碼：" & vbCr & "(若不設定密碼則空白或按取消鍵)", "Title", 預設密碼)
myFileName = ThisWorkbook.Path & "\檔名"
ActiveWorkbook.SaveAs Filename:=myFileName, Password:=mypassword

3.指定儲存目標另存新檔(假設存在D槽下)
ActiveWorkbook.SaveAs Filename:="D:\123

4.指定儲存目標另存新檔(假設存在D槽下)，並設密碼保護活頁簿
myPassWord = InputBox("請自行設定活頁簿保護密碼：" & vbCr & "(若不設定密碼則空白或按取消鍵)", "Title", 預設密碼)
ActiveWorkbook.SaveAs Filename:="D:\123", Password:=mypassword