Ein-/Ausblenden Befehlstaste mit Speichern Option

Question

Ich möchte eine Befehlsschaltfläche haben, die mit verschiedenen sicheren Dateioption basierend auf Dropdown-Liste Wert in G6 ein-/ausblenden kann. Hier ist eine Tabelle:

Zelle C2, der Wert öffnen wird (verbergen Command Button)

Zelle C3 ist der Wert laufend (sichtbar machen Command Button und speichern Datei nur)

Zelle C4 der Wert Abbrechen ist (Command Button sichtbar machen und & schließen Datei sofort speichern)

Zelle C5 ist der Wert Close (Command Button sichtbar machen und & schließen Datei sofort speichern)

Zelle G6 ist eine Dropdown-Liste

Schätze die Hilfe. TQ

Answer 1

Da niemand bereit ist, meine Frage zu lösen, hier ist meine Antwort für meine eigene Frage, die ich herausgefunden habe, für die Suche nach einer Antwort auf die gleiche Frage. Ich habe einen zusätzlichen Code zum Erstellen von Dateinamen basierend auf B6 & E6-Wert hinzugefügt. Beachten Sie, dass "" Symbol in>newFile = "" & fName & "" & vName < wurde absichtlich hinzugefügt, um einen Raum in Dateinamen zu machen. Ich bin den Code Lichtung hier zu teilen:

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