使用保存文件选项隐藏/取消隐藏命令按钮

Question

我希望有一个命令按钮，可以根据G6中的下拉列表值隐藏/取消隐藏各种安全文件选项。这是一张表：

单元格C2，值为Open（隐藏命令按钮）

单元格C3，值为In Progress（取消隐藏命令按钮并仅保存文件）

单元格C4，取值为（取消隐藏命令按钮并立即保存并关闭文件）

单元格C5，值为Close（取消隐藏命令按钮并立即保存并关闭文件）

单元格G6是下拉列表

欣赏帮助。 TQ

Answer 1

由于没有人愿意解决我的问题，这是我自己的问题的答案，我已经找到了为同一个问题寻找答案的人。 我为B6＆amp;添加了一个额外的创建文件名代码。 E6值。请注意＆＃34; ＆gt;＆＃; 符号＆gt; newFile =＆＃34; ＆＃34; ＆安培; fName＆amp; ＆＃34; ＆＃34; ＆安培; VNAME ＆LT;故意添加用于在文件名中创建空格。我很想在这里分享代码：

Private Sub CommandButton1_Click()
Dim newFile As String, fName As String, vName As String
fName = Range("B6").Value
vName = Range("E6").Value
tSave = Range("G6").Value
newFile = "  " & fName & "  " & vName
If tSave = "In Progress" Then
ThisWorkbook.SaveAs "Z:\TRAINING\" & Format(Date, "ddmmyyyy") & newFile
Else
ThisWorkbook.SaveAs "Z:\TRAINING\" & Format(Date, "ddmmyyyy") & newFile
ThisWorkbook.SaveAs
ThisWorkbook.Close
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
        With Me
             If .Range("G6").Value = "Open" Then
                .CommandButton1.Visible = False
             Else
                .CommandButton1.Visible = True
             End If
        End With

End Sub

Private Sub Worksheet_Activate()
        Application.EnableEvents = False
        With Me
             .CommandButton1.Visible = True
             .Range("G6").Value = 1
        End With
        Application.EnableEvents = True

End Sub