ReadOnly Property

Returns a Boolean that determines if the current field has read-only permissions. If True, the field cannot be modified by the user. Read-only.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example stores the names and default values of all fields with read-only permissions in the first list of the active web. If the active web contains no lists, a message is displayed to the user.

Sub FieldPermissions()
'Displays read/write permissions of all
'fields in the list.

    Dim objApp As FrontPage.Application
    Dim objField As ListField
    Dim objFields As listFields
    Dim strPerms As String

    Set objApp = FrontPage.Application
    Set objFields = objApp.ActiveWeb.Lists.Item(0).Fields

    If Not ActiveWeb.Lists Is Nothing Then
        For Each objField In objFields
             'If field is read-only, add to list
             If objField.ReadOnly = True Then
                If strPerms = "" Then
                    'if first value in string
                    strPerms = objField.Name & "  -  " & _
                    objField.DefaultValue & vbCr
                Else
                    'add value to string
                    strType = strPerms & objField.Name & "  -  " & _
                    objField.DefaultValue & vbCr
                End If
             End If
        Next objField
    Else
        'display message to user
        MsgBox "The active web contains no lists."
    End If
End Sub