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" ha scritto nel messaggio
...
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" ha scritto nel messaggio
...
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" ha scritto nel messaggio
...
Hi Thunder

Thanks.


Hi mamealemka,

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

;-)

tHUNDER