|
Private Sub Workbook_Open()coun = GetSetting("myapp", "startup", "ssss", 1)Worksheets(8).Range("j7") = councoun = coun + 1SaveSetting "myapp", "startup", "ssss", counCall UserForm1.隐藏表UserForm1.Show '加载登录窗体End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)Call UserForm1.隐藏表ActiveWorkbook.Save '保存当前工... |
