帶保存文件選項的隱藏/取消隱藏命令按鈕

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 

末次