有没有VBA使用次数达到100次自杀的代码？ 答案：有 分为几种方法，先说一下最简单的。 达到某个指定日期，工作簿自行销毁 PrivateSubworkbookopen（）RemRem功能：定时自毁Rem欢迎关注公众号：VBA说RemOnErrorResumeNextApplication。DisplayAlertsFalseIfNow（）amp；gt；CDate（1226202010：22：00）ThenActiveWorkbook。ChangeFileAccessxlReadOnlyKillActiveWorkbook。FullNameApplication。QuitEndIfApplication。DisplayAlertsTureEndSub 把这段代码放到工作簿事件里，就可以了。 最后文件到期的话，效果是这样的，打开就自动删除自己了。 这种方法对于VBA小白来说，足够了 达到一定次数，自行销毁 这种方法，直接将工作簿使用次数记录在注册表中，每次打开工作簿就读取注册表中的数据。获取已使用次数。 PrivateSubWorkbookOpen（）DimcounterAsLong，termAsLong，chkchkGetSetting（hhh，budget，使用次数，）IfchkThenterm50限制使用50次MsgBox本工作簿只能使用amp；amp；termamp；amp；次amp；amp；vbCrLfamp；amp；超过次数将自动销毁！，vbExclamationSaveSettinghhh，budget，使用次数，term将值写入注册表ElsecounterVal（chk）1计算剩余使用次数MsgBox你还能使用amp；amp；counteramp；amp；次，请及时注册！，vbExclamationSaveSettinghhh，budget，使用次数，counter写入剩余次数Ifcounteramp；lt；0Then如果使用次数用完，就删除注册表记录使用次数的信息，调用自毁代码DeleteSettinghhh，budget，使用次数killmeEndIfEndIfEndSubPublicSubkillme（）Application。DisplayAlertsFalseActiveWorkbook。ChangeFileAccessxlReadOnlyKillActiveWorkbook。FullNameThisWorkbook。CloseFalseEndSub 我们可以看到，隐藏的很深，除非使用者手动删除注册表项。 我们假定，使用者比较聪明，换了台电脑试了试，发现可以使用了，那就让他多用几次吧。 其实可以获取电脑的cpu序列号、硬盘ID等等标识符来判别是不是换了新机子，这里不做深入研究。 一顿操作猛如虎，有人想说，直接把核心代码砍掉就gg了（我想说，大哥，给个更文表现的机会好不好。） 其实我们做这一堆的前提是给不会VBA的小白设置的陷阱。 知识点 Kill语句 用法：Kill文件路径 需要注意的是，文件在使用状态下无法直接使用Kill。我们加了一句ChangeFileAccessxlReadOnly，这一条代表把文件设置成只读，设置成只读后，文件才不是使用状态，才能执行删除动作。
外媒推测微软文档揭示Win11太阳谷Win10有两个不同版本IT之家6月7日消息外媒WindowsLatest报道，Windows11或Windows10太阳谷更新即将到来，所有的证据都指向了重大的变化，开始菜单的UI改造，新的Wind……Win10最新的6月更新来了，一起看看微软更新了啥微软近日推送了Win10的六月系统更新。如果你用的是Win1021H1、20H2以及2004、1909系统版本，都可以收到推送。这次Win102021的六月更新带来了数个……气愤的事我有一个幸福的家庭，但幸福的家庭也总是会有一些让人生气的事儿发生，今天我就给大家说说吧！先说我的妈妈：每当过年的时候，我都会看春节联欢晚会，差不多得到12点才关电视。晚上……微软配件中心应用更新可管理自家耳机麦克风等IT之家6月10日消息今日微软自家的Microsoft配件中心UWP应用获得了更新，支持微软最新的外设产品。这个应用可以管理微软自家的耳麦、有线耳机、USB麦克风和网络摄像头等……英特尔驱动导致微软Win10蓝屏死机Bug，解决办法出炉近日，有用户反馈Win10存在蓝屏死机的问题，现在解决方法来了。英特尔发布了2021年6月的WiFi驱动更新，解决了Win10蓝屏死机的问题。据报道，这个蓝屏死机的错误经……亚洲第一巨炮原来是只纸老虎到虎头要塞参观，在猛虎山西北山脚处，能见到一座相对独立的炮阵地，这就是虎头要塞的亚洲第一巨炮阵地。可这门被吹嘘的神乎其神的巨炮，其实，只是绣花的枕头中看不中用的东西！1。……余甘子别名：米含、望果、木波。性味：甘、酸、涩，凉。归经：归肺、胃经。入药部位：大戟科植物余甘子的成熟干燥果实。余甘子的用法用量用法：39g，多入丸散服……微软SurfaceGo3Win11平板电脑跑分曝光采用IntIT之家8月28日消息外媒MSPoweruser报道，微软似乎正在开发新一代的SurfaceGo平板电脑，外媒Winfuture发现了新的基准测试跑分。配图为Surfac……微软坚持Win11最低硬件配置要求可实现99。8无崩溃体验，IT之家8月28日消息微软今天宣布，不会阻止人们在大多数旧电脑上安装Windows11。虽然该软件制造商为Windows11推荐了硬件要求它在很大程度上会坚持这样做但只有当你试……微软承认AzureCosmos数据库漏洞已持续两年，波及30IT之家8月28日消息据外媒mspoweruser消息，微软近日向超过3000名客户发出通知，称AzureCosmos数据库的一项漏洞已经存在了超过2年，在这期间，黑客有可能读……全面履行央企责任助力决胜脱贫攻坚云南省委书记陈豪在云南省脱贫攻坚推进会议上指出，要把全面提升扶贫精准度和脱贫质量放在首位，向深度贫困地区聚焦发力，贯彻精准方略，坚持目标标准，强化责任担当，改进工作作风，以更加……UWP版将被砍掉，微软OneNote正获得Win11外观设计IT之家8月10日消息外媒WindowsLatest报道，由于主要功能几乎相同，究竟是用OneNote桌面版还是OneNoteforWindows10UWP版来做笔记，可能会让……