excel状态栏和弹窗VBA

nnsea

Private Sub Workbook_Activate() '
    Application.StatusBar = "本工具由会计帮帮网开发设计！购买正版：kjbbw.taobao.com！设计师微信：wx27411244"
    MsgBox "淘宝天猫销售分析系统，由会计帮帮网开发设计！"
End Sub