Excel 2003 protect formula form acidental type over 1

[DougP]

I am using Access to partially fill in a spreadsheet from an .XLT file. There are formulas in a few columns.
What can I do to prevent users from accidentally typing over the formulas of the spreadsheet?
Here is my code for reference.

    Dim oApp As Object
    Dim SheetName As String
    Set oApp = CreateObject("Excel.Application")
    
    'load document
    oApp.Workbooks.Add ("C:\AirMonitoring\Personnel Air Sampling Log.xlt")
    
    ' save as new document
    SheetName = "C:\AirMonitoring\Spreadsheets\PersonnelAirSamplingLog-" & Me.Project_Number & ".xls"
    oApp.ActiveWorkbook.SaveAs SheetName
    
   ' make Excel visible
    oApp.Visible = True

    ' fill in cells
    oApp.Application.Cells(2, 2).Value = Me.Facility
   …

TIA

DougP, MCP, A+

 

[SkipVought]

Hi,

1. Unlock all other cells that the user CAN change.

2. Protect the sheet.

Skip,

_[red][/red]

 

[DougP]

worked lovely

seen any R2D2 mailboxes?

http://www.uspsjedimaster.com

DougP, MCP, A+