IsUnderRevisionControl Property Example

This example creates a source control project and then, in the second procedure, checks the state of IsUnderRevisionControl property.

Private Sub SourceControlProject()
Dim myWeb As Web

Set myWeb = ActiveWeb

If Not (myWeb.IsUnderRevisionControl) Then
    myWeb.RevisionControlProject = _
        "<FrontPage-based Locking>"
End If
End Sub

Private Sub GetRevisionState()
Dim myWeb As Web
Dim myRevCtrlProj As String
Dim myIsRevCtrl As Boolean

Set myWeb = ActiveWeb

With myWeb
    myRevCtrlProj = .RevisionControlProject
    myIsUnderRevCtrl = .IsUnderRevisionControl
End With
End Sub