Add Approve Button

[donnac1107]

Hi,

I am very new to Macros, and really have no idea how to start this. I would like to add an "approval" button on my excel form. What I would like is once a manager reviews the form, they will click the "Approve" button, then their login and a date will be captured in a cell (C 18) and the form will be automatically emailed to me. I would also like to make sure cell C 18 is locked and will only auto populate when the "approve" button is pressed.

Any code suggestions will be greatly appreciated.

Thanks in advance.

[Leith Ross]

Hello donnac1107,

Welcome to the Forum!

My psychic 3-D printer network is down so I didn't receive a copy of your workbook. You will have to upload a copy the old fashion way.

Please redact any sensitive or confidential information before you upload the workbook.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

[donnac1107]

Sorry about not uploading the files. Here is what I have so far:

Private Sub CommandButton1_Click()
With ActiveSheet
.Unprotect
.Cells(20, 5) = Now
.Cells(20, 9) = Environ("USERNAME")
.Protect
End With
End Sub

I like what this does, however, I want to tweak it to make it do a few more things:

1) I would like the cells to be clear until the button is clicked, right now data is populated in there
2) I would like lock the cells (20, 5) and Cells (20, 9) so users cannot override the fields by typing in the cells
3) if possible once the approve button is clicked, the sheet gets sent to an email automatically.

I would be really appreciative if I can get some help on how to develop the above.

Thank you.