Create buttom that saves current file in a given filename (Excel)

I want the user to save a protected worksheet by clicking on an action
buttom. The file should be saved with another file name taken from a cell in
the worksheet.

"mamealemka" <[email protected]> ha scritto nel messaggio
news:[email protected]...
>I want the user to save a protected worksheet by clicking on an action
> buttom. The file should be saved with another file name taken from a cell
> in
> the worksheet.
>
>
Hi,

try the following code:

Private Sub CommandButton1_Click()
Const MyPath = "C:\"

With ThisWorkbook
.SaveAs Filename:=MyPath & Cells(1, 2).Value & ".xls" '<===Cell B1 =>
Change
End With

End Sub

This code does not make a control on the path of your folder.

Thunder

Hi Thunder

Thanks.

"Thunder" wrote:

>
> "mamealemka" <[email protected]> ha scritto nel messaggio
> news:[email protected]...
> >I want the user to save a protected worksheet by clicking on an action
> > buttom. The file should be saved with another file name taken from a cell
> > in
> > the worksheet.
> >
> >
> Hi,
>
> try the following code:
>
> Private Sub CommandButton1_Click()
> Const MyPath = "C:\"
>
> With ThisWorkbook
> .SaveAs Filename:=MyPath & Cells(1, 2).Value & ".xls" '<===Cell B1 =>
> Change
> End With
>
> End Sub
>
> This code does not make a control on the path of your folder.
>
> Thunder
>
>
>

Hi Thunder

Thanks.

"Thunder" wrote:

>
> "mamealemka" <[email protected]> ha scritto nel messaggio
> news:[email protected]...
> >I want the user to save a protected worksheet by clicking on an action
> > buttom. The file should be saved with another file name taken from a cell
> > in
> > the worksheet.
> >
> >
> Hi,
>
> try the following code:
>
> Private Sub CommandButton1_Click()
> Const MyPath = "C:\"
>
> With ThisWorkbook
> .SaveAs Filename:=MyPath & Cells(1, 2).Value & ".xls" '<===Cell B1 =>
> Change
> End With
>
> End Sub
>
> This code does not make a control on the path of your folder.
>
> Thunder
>
>
>

Hi Thunder

Thanks.

"Thunder" wrote:

>
> "mamealemka" <[email protected]> ha scritto nel messaggio
> news:[email protected]...
> >I want the user to save a protected worksheet by clicking on an action
> > buttom. The file should be saved with another file name taken from a cell
> > in
> > the worksheet.
> >
> >
> Hi,
>
> try the following code:
>
> Private Sub CommandButton1_Click()
> Const MyPath = "C:\"
>
> With ThisWorkbook
> .SaveAs Filename:=MyPath & Cells(1, 2).Value & ".xls" '<===Cell B1 =>
> Change
> End With
>
> End Sub
>
> This code does not make a control on the path of your folder.
>
> Thunder
>
>
>

"mamealemka" <[email protected]> ha scritto nel messaggio
news:[email protected]...
> Hi Thunder
>
> Thanks.
>

Hi mamealemka,

You're Welcome, De Nada, De Rien, Di Nulla, ????????, ????, ?? ???????

;-)

tHUNDER