也要使用授权,这样就很好
例如添加一个方法
Private Registered
Sub Register(Name As String, Password as string)
Registered=name="xxxx" and password="xxxx"
End Sub
然后在每个Sub的开头都加入
If Not Registered Then Exit Sub
每隔Function的开头都加入
If Not Registered Then Exit Function
每隔Proeprty的开头都加入
If Not Registered Then Exit Property
就这样萨