带保存文件选项的隐藏/取消隐藏命令按钮

Question

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

小区C2，该值是开放的（隐藏命令按钮）

小区C3，价值正在进行中（取消隐藏命令按钮并保存文件只）

小区C4 ，该值是取消（取消隐藏命令按钮并保存立即&关闭文件）

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

单元格G6是一个下拉列表

欣赏帮助。 TQ

Answer 1

既然没有人愿意解决我的问题，这里是我对自己的问题的回答，我已经找到了答案，为谁寻找同一问题的答案。 我添加了一个额外的代码来创建基于B6 & E6值的文件名。需注意，“”在>NEWFILE =符号“” & FNAME &“” & VNAME <是故意添加为使文件名的空间。我格莱德分享这里的代码：

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 

末次

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 

末次

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

末次