reworded: clear both form fields & external Excel cells???

I have an webpage form with textfields.  The user can enter a quantity of product they want to order.  User then clicks the submit button and that quantity automatically transfers to a Cell in an "external" Excel orderform I made. I also have a "clear" button on webform that clears ALL textfields on webform, AND also clears ALL the "quantity" Cells in my external Excel form.
****Problem Is...

If the Excel orderform "Is" Protected, I can quikly "tab" to cells that need to be filled out with customer info. But when I click the "clear" button, Nothing clears in the external Excel form probably because its protected...

if the Excel worksheet "Isnt" Protected, the "clear" button clears both webform fields & Excel orderform cells, but because Excel orderform isnt protected anymore, I must tab through each cell to enter customer info.. (which sucks)...
--------------------------------------------
Here is the script between "head tags" I'm currently using on my webpage. I also have the "clear" button in the body of the page.  Is there a way to "unprotect,clear,protect,save,close"?
I'm not too VB saavy, and this problem is driving me crazy...
--------------------------------------------
<SCRIPT LANGUAGE="VBScript">
<!--
Sub MyBtn_OnClick

Dim appXl, strFn, buf
Dim objExcelBook, objExcelSheet

strFn = "C:\Order Form.xls"

Set appXl = CreateObject("Excel.Application")
appXl.Visible = False
appXl.Workbooks.Open (strFn)
Set objExcelBook = appXl.ActiveWorkbook
Set objExcelSheet = objExcelBook.Sheets(1)

buf = Array(8900,8910,1522,1523)

Call ClearSubProc(buf, objExcelSheet)

objExcelBook.Close True
appXl.Quit
Set appXl = Nothing
Set objExcelBook = Nothing
Set objExcelSheet = Nothing
End Sub

Sub ClearSubProc(arrFind, ws)
Dim c, rngFound
For Each c In arrFind
Set rngFound = ws.Range(ws.Range("D10"), _
ws.Range("D65536").End(-4162)).Find(c,,,1)
If Not rngFound Is Nothing Then
rngFound.Offset(, -3).Resize(, 3).ClearContents
Else
MsgBox c & "is NOT Found."
End If
Next
End Sub
-->
</SCRIPT>
--------------------------------------------
If anybody can hear me out there, please help...  I do appreciate it. thank you,burnthecure