Instead of asking for the entire code, please let us know what you've already tried and specifically what you need help with. "Please write the code for me" isn't going to inspire many people to try and help.
You've left out important details that would allow anyone to even begin to assist...
You could create a data entry area by locking and hiding all cells, then unlocking and unhiding the cells you want to allow editing in, then protecting the worksheet. I have a VBA based approach here...
A quick Google search produced numerous links with the code you need:
http://www.mrexcel.com/forum/showthread.php?t=6148
http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/736155c6-1e55-415c-add0-8d95d3e29212/
http://www.eileenslounge.com/viewtopic.php?f=27&t=1986
A1:A5 contains your values: 23, 46, 67, 12, 56
This formula calculates how much you need to add to each value to reach 250:
=(250-SUM(A1:A5))/COUNTA(A1:A5)
Add this to each cell's value to get the new value, i.e. in cell B1 put "=A1+((250-SUM(A1:A5))/COUNTA(A1:A5))"
Does that work for you?
You can create a PivotTable in Excel based on an external data source, including an Access query.
See http://office.microsoft.com/en-us/excel-help/about-pivottable-and-pivotchart-source-data-HP005199304.aspx
However it may not work since your query requires user intervention. In my...
What I would do is set up a recurring task with something like "Mail from xyz@go.com not received" in the subject. Have it occur at 5:30 PM every weekday. Then I would add an event handler (VBA) to check each incoming email. If the email address is xyz@go.com, then look for the task and mark it...
There's some sample code here that shows you how to run a query against an Access MDB and return the result into an array in Excel:
http://www.ozgrid.com/forum/showthread.php?t=18289&page=1
How about this:
Function Speak(c As Boolean, s As String, t As Long)
Dim currenttime As Date
currenttime = Now
If c Then
Do Until currenttime + TimeValue("00:00:" & t) <= Now
Loop
Application.Speech.Speak s
Speak = c
End If
End Function
Call the function like this, specifying...