请问几行简单的程序

寂静风

请问如何做到：

1.       点击“commandbutton1”, 文档被保护（不允许再编辑，密码为：12345）

2.       commandbutton1在文档被保护后，隐藏。

 

谢谢指教！

AHx7RNWd.zip (6.12 KB, 下载次数: 8)

2007-2-9 19:38 上传

点击文件名下载附件
请问几行简单的程序

守柔

试试这个：

Private Sub CommandButton1_Click()
    Dim i As InlineShape
    With ActiveDocument
    If .ProtectionType <> wdNoProtection Then Exit Sub
        .ActiveWindow.View.ShowAll = False
        .ActiveWindow.View.ShowHiddenText = False
        For Each i In .InlineShapes
            If i.Type = wdInlineShapeOLEControlObject Then
                If i.OLEFormat.Object.Caption = "CommandButton1" Then
               Me.CommandButton1.Height = 0.01
               Me.CommandButton1.Width = 0.01
                    .Protect Password:="12345", NoReset:=False, Type:= _
                             wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
                    Exit For
                End If
            End If
        Next
    End With
End Sub

寂静风

版主,非常感谢!

[此贴子已经被作者于2007-2-10 11:02:09编辑过]