Worksheet Range Protection

[jscott]

I'm trying to protect a certain range of cells in a worksheet from within Access.

My code is below:

Dim objExcel As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Worksheet
Dim intColumn As Integer
Dim intRow As Integer
Dim intRecords As Integer

Set objExcel = Excel.Application
objWS.Unprotect
objWS.Protection.AllowEditRanges.Add Title:="Classified", Range:=Range("$A$2:$D$65536"), Password:=""

objWS.Columns.AutoFit
objWS.Protect
objWB.SaveAs strFileName

I get a method or data member not found on the objws.protection line.

I am referencing the Excel 8.0 object library.

Can anyone help?? I'd really appreciate it. I'm new to the Excel object model!

Thanks!
Jeanine Scott

 

[jscott]

Unfortunately, it's a very large company so they are restricted to the IT "gods" decision on when and how upgrades happen...

You know how that goes!

 

[anusha_th]

Hi,

I am trying to protect the sheet while also trying to have few cells editable for the user to enter data.

Rng = 1
DestSht = "Summary"

The below piece of code appears in a loop. The cells that are editable by the user depends on the cell index numbers.

Range(Selection, ActiveCell.Offset(0, Col - 2 - cc - 1)).Select
MyAddress = ActiveWindow.RangeSelection.Address(False, False)
RngNm = "Range" & Rng
Sheets(DestSht).Protect("pass-1")
set c = Application.Sheets(DestSht).Protection.AllowEditRanges.Add(RngNm, Range(MyAddress), "pass-1")

But the above line returns a "Application-defined or Object-defined error"

Can anyojne pls help?

Thanks
Anusha