[已解决]求助vba代码

武林长风

问题：1、启用宏后看不到窗体，不知为什么？2、原窗体代码是密码输错3次就删除文件，请将这个窗体代码修改一下，达到这个效果，密码输错3次后，先保存到F盘的abc文件夹里，再删除文件，若电脑里没有这个文件夹就直接删除这个文件。 登陆.rar (12.05 KB, 下载次数: 4)

2015-2-20 17:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-2-20 18:44

(, 下载次数: 8)

上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

又是保存又是删除，空操作吧。

hwc2ycy

1. Private Sub Workbook_Open()
   
2. 
   
3. Worksheets("封面").Activate
   
4. End Sub

复制代码

这个要放在thisworkbook中。

如果要打开工作薄就显示窗体，必须把显示窗体的语句放在这个事件中。

武林长风

hwc2ycy 发表于 2015-2-20 17:03
这个要放在thisworkbook中。

如果要打开工作薄就显示窗体，必须把显示窗体的语句放在这个事件中。

多谢版主的多次相助！！！

武林长风

hwc2ycy 发表于 2015-2-20 17:03
又是保存又是删除，空操作吧。

这个效果达不到啊？我不懂vba。

武林长风

hwc2ycy 发表于 2015-2-20 17:03
这个要放在thisworkbook中。

如果要打开工作薄就显示窗体，必须把显示窗体的语句放在这个事件中。

启用宏后还是看不到窗体呀？

hwc2ycy

你的意思是先检测是否存在F盘的ABC文件夹，如果有，就保存，没有就删除工作簿？

武林长风

hwc2ycy 发表于 2015-2-20 17:03
又是保存又是删除，空操作吧。

是复制的意思。

hwc2ycy

1. Private Sub Workbook_Open()
   
2.     Worksheets("封面").Activate
   
3.     UserForm1.Show
   
4. End Sub

复制代码

hwc2ycy

复制后，是删除源的还是存在f:\abc下的。