资源大小： 264KB
发布时间： 2011-11-09
文件格式： xls
下载次数： 5
分享到：

下载地址：

下载地址1
（本站为飞网专业下载站，域名：down.cfei.net）

资源简介：

Private Sub Workbook_Open()If Date >= #6/13/2008# Thenpass = InputBox("使用日期到，请输入密码：", "保护")If pass = "123456" Then Exit SubThisWorkbook.CloseEnd IfEnd Sub


飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。