moduleoffice.bas

来自「这是一套非常好用的软件啊」· BAS 代码 · 共 15 行

Attribute VB_Name = "Moduleoffice"
Public offpassword As String
Public Function exitproject()
Dim response As Integer
response = MsgBox("真的要退出程序吗?", vbYesNo, "退出")
If response = vbYes Then
    End
Else
End If
End Function

Public Function protect()
MsgBox "被保护的文本不能进行格式设置!"
End Function