看起来你遇到了VBA处理工作簿保存时的两个典型问题，我来帮你一步步排查修复：

一、修复「默认保存到下载文件夹+文件名显示False」的问题 #

这个问题大概率是路径设置错误、单元格值获取失败，或者GetSaveAsFilename的参数/返回值处理不当导致的。下面是经过验证的完整代码，我会标注关键修改点：

Sub SaveSheetAsNewWorkbook()
    Dim ws As Worksheet
    Dim newWB As Workbook
    Dim strTargetFolder As String
    Dim strCellValue As String
    Dim strBaseFileName As String
    Dim userSelectedPath As Variant
    
    ' 1. 设置你的指定保存文件夹（替换成实际路径，末尾要加反斜杠）
    strTargetFolder = "C:\Users\你的用户名\Documents\待发送文件\"
    
    ' 检查文件夹是否存在，不存在就自动创建
    If Dir(strTargetFolder, vbDirectory) = "" Then
        MkDir strTargetFolder
        MsgBox "指定文件夹不存在，已自动创建！", vbInformation
    End If
    
    ' 2. 获取指定单元格的值（替换成你需要的单元格，比如"Sheet1!B2"）
    strCellValue = ThisWorkbook.ActiveSheet.Range("A1").Value
    ' 处理单元格为空的情况，避免文件名异常
    If strCellValue = "" Then
        MsgBox "指定单元格为空，请填写内容后重试！", vbExclamation
        Exit Sub
    End If
    
    ' 3. 拼接文件名：指定内容 + 单元格值，自动替换非法字符（文件名不能有/\:*?"<>|）
    strBaseFileName = "月度报表_" & Replace(Replace(strCellValue, "/", "-"), "\", "-") & ".xlsx"
    
    ' 4. 弹出保存对话框，默认打开到指定文件夹，自动填充文件名
    userSelectedPath = Application.GetSaveAsFilename( _
        InitialFileName:=strTargetFolder & strBaseFileName, _
        FileFilter:="Excel工作簿 (*.xlsx), *.xlsx", _
        Title:="保存给他人的新工作簿")
    
    ' 处理用户点击「取消」的情况
    If userSelectedPath = False Then
        MsgBox "保存已取消", vbInformation
        Exit Sub
    End If
    
    ' 5. 复制当前工作表到新工作簿
    Set ws = ThisWorkbook.ActiveSheet
    ws.Copy
    Set newWB = ActiveWorkbook
    
    ' 6. 保存新工作簿
    newWB.SaveAs Filename:=userSelectedPath, FileFormat:=xlOpenXMLWorkbook
    
    ' 可选：自动关闭新工作簿
    newWB.Close SaveChanges:=False
    
    MsgBox "文件已成功保存到：" & userSelectedPath, vbInformation
End Sub

关键修复点说明： #

• 强制指定初始保存路径和文件名，避免对话框默认跳到下载文件夹
• 自动检查并创建目标文件夹，防止路径不存在报错
• 处理单元格为空的场景，替换文件名中的非法字符，避免文件名变成False
• 正确判断用户是否取消保存，避免误保存

二、解决「新工作簿打开时弹出提示对话框」的问题 #

你提到的提示"this workbook c..."，大概率是复制工作表时带过去了原工作簿的外部链接、宏代码或自定义文档属性。根据不同情况，有以下几种解决方案：

方案1：断开外部链接（最常见情况） #

如果提示是关于外部链接的，在保存新工作簿前添加这段代码，自动断开所有外部引用：

' 在newWB.SaveAs之前添加：断开新工作簿的所有Excel外部链接
Dim externalLink As Variant
For Each externalLink In newWB.LinkSources(xlExcelLinks)
    newWB.BreakLink Name:=externalLink, Type:=xlExcelLinks
Next externalLink

方案2：仅复制单元格内容（不带工作表属性） #

如果不需要原工作表的宏、格式之外的特殊属性，可以用「新建空白工作簿+粘贴内容」的方式，避免携带原工作簿的冗余信息：

' 替换原来的ws.Copy代码：
Set newWB = Workbooks.Add
' 复制原工作表的所有内容和格式
ws.UsedRange.Copy
newWB.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll
' 清除剪贴板
Application.CutCopyMode = False

方案3：删除新工作簿的VBA项目（如果原工作表有宏） #

如果原工作表包含宏代码，新工作簿不需要的话，可以删除VBA项目（需先开启Excel信任中心的「信任对VBA项目对象模型的访问」）：

' 在newWB.SaveAs之前添加：删除新工作簿的所有VBA组件
Dim vbProj As Object
Dim i As Integer
Set vbProj = newWB.VBProject
For i = vbProj.VBComponents.Count To 1 Step -1
    vbProj.VBComponents.Remove vbProj.VBComponents(i)
Next i

内容的提问来源于stack exchange，提问作者NorwegianLatte