コマンドボタンの非表示/非表示ファイル保存オプション

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 

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の