Excel VBA教程:AllowEditRange对象

   
AllowEditRanges
AllowEditRange
多个对象

代表受保护的工作表上可进行编辑的单元格区域。

AllowEditRange对象用法

使用Add方法或AllowEditRanges集合的Item属性可返回一个 AllowEditRange对象。

返回一个 AllowEditRange对象后,可用ChangePassword方法更改密码,以便在受保护的工作表上访问可编辑的区域。

本示例中,Microsoft Excel 允许用户在活动工作表上编辑单元格区域 A1:A4,并通知用户,然后更改指定区域的密码并将所做的更改通知用户。


Sub UseChangePassword()
    Dim wksOne As Worksheet
    Set wksOne = Application.ActiveSheet
    ' Establish a range that can allow edits
    ' on the protected worksheet.
    wksOne.Protection.AllowEditRanges.Add _
        Title:="Classified", _
        Range:=Range("A1:A4"), _
        Password:="secret"
    MsgBox "Cells A1 to A4 can be edited on the protected worksheet."
    ' Change the password.
    wksOne.Protection.AllowEditRanges(1).ChangePassword _
        Password:="moresecret"
    MsgBox "The password for these cells has been changed."
End Sub

上页:Excel VBA教程:Adjustments对象 下页:Excel VBA教程:AllowEditRanges集合

Excel VBA教程:AllowEditRange对象

Excel VBA教程:AllowEditRanges集合 Excel VBA教程:Application对象
Excel VBA教程:Areas集合 Excel VBA教程:AutoCorrect对象
Excel VBA教程:AutoFilter对象 Excel VBA教程:AutoRecover对象
Excel VBA教程:Axes集合对象 Excel VBA教程:Axis对象
Excel VBA教程:AxisTitle对象 Excel VBA教程:Border对象
Excel VBA教程:Borders集合 Excel VBA教程:CalculatedFields集合对象
Excel VBA教程:CalculatedItems集合对象 Excel VBA教程:CalculatedMember对象
Excel VBA教程:CalculatedMembers集合 Excel VBA教程:CalloutFormat对象
Excel VBA教程:CellFormat对象 Excel VBA教程:Characters对象
Excel VBA教程:Chart对象 Excel VBA教程:ChartArea对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号