代码之家 › 专栏 › 技术社区 › echox Petter Nordlander

解锁CellName Office 2007选择的Excel中的单元格区域

ms-office excel-vba vba excel

1

echox Petter Nordlander · 技术社区 · 16 年前

我有3个单元格,它们彼此合并,并以给定的单元格名称(例如“foo”)引用。

我现在想用 locked 属性。

以下代码中的锁将不工作,但该值将成功分配给单元格:

Workbooks(loadedSheetName).Worksheets("foo").Range("bar").Locked = False
Workbooks(loadedSheetName).Worksheets("foo").Range("bar") = "foo value"

有效的方法是通过“坐标”引用单元格,但对我来说并不是一个选项:

Workbooks(loadedSheetName).Worksheets("foo").Range("B3:E3").Locked = False

是否可以按名称选择一些合并单元格并设置 锁定的 属性为假?

2 回复 | 直到 7 年前

1

3

Todd Main 16 年前

以下代码在我的Excel2007中工作正常


Sub aa()
    Dim ce As Range
    Application.ScreenUpdating = False ''# screen flicker off
    ActiveSheet.Unprotect Password:=""
    For Each ce In Range("rng")
        ce.MergeArea.Locked = "False"
    Next ce
    ActiveSheet.Protect Password:=""
End Sub

嗯!

2

0

Fandango68 7 年前

你不需要穿过 Range .

简单地说…

 Range("myRangeName").Select
 Selection.Locked = False