Hide/Unhide Command Button with save file option

[malaya tigre]

Hello...
I wish to have a command button that can hide/unhide with various safe file option based on drop down list value in G6. Here is a table:


<hide command="" button=""><unhide command="" button="" and="" save="" file="" only=""><unhide command="" button="" and="" save="" &="" close="" file="" immediately=""><unhide command="" button="" and="" save="" &="" close="" file="" immediately="">C2 : Open (hide Command Button)
C3 : In Progress (unhide Command Button and save file only)
C4 : Cancel (unhide Command Button and save & close file immediately)
C5 : Close (unhide Command Button and save & close file immediately)
G6 : Drop Down List box


Appreciates the helps. TQ.</unhide></unhide></unhide></hide>

 

[malaya tigre]

Since nobody willing to solve my question, here is my answer for my own question that I have figured it out for whom looking for an answer on the same question.I added an extra code for create filename based on B6 & E6 value. Take note that " " in >newFile = " " & fName & " " & vName< was purposely added for make a space in filename. I am glad to share the code here:



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