[已解决]求助vba代码

武林长风

hwc2ycy 发表于 2015-2-20 17:11
你的意思是先检测是否存在F盘的ABC文件夹，如果有，就保存，没有就删除工作簿？

对，若密码输错3次，有这个文件夹就先复制到那里，然后删除，没有就直接删除。

蝶·舞

1. UserForm1.Show

复制代码

你没这写段代码，你让它怎么显示？

武林长风

hwc2ycy 发表于 2015-2-20 17:13
复制后，是删除源的还是存在f:\abc下的。

删除原来的文件。

hwc2ycy

那问题来了，要是人家打开的就是F:\ABC下的这个文件，又如何处理，直接删除这个么。

武林长风

蝶·舞 发表于 2015-2-20 17:14
你没这写段代码，你让它怎么显示？

哦，请帮忙写个全的代码，谢谢1

武林长风

hwc2ycy 发表于 2015-2-20 17:15
那问题来了，要是人家打开的就是F:\ABC下的这个文件，又如何处理，直接删除这个么。

这个文件夹我想隐藏起来，不是加密。

hwc2ycy

1. Private Sub CommandButton1_Click()    '单击"确定"按钮的时候执行过程
   
2.     Application.ScreenUpdating = False          '关闭屏幕更新
   
3.     Static i As Integer                         '声明一个变量
   
4. '判断用户名和密码是否输入正确
   
5.     If CStr(User.Value) = "张三" And CStr(Password.Value) = "123" Then
   
6.         Unload Me                              '关闭登录窗体
   
7.         Application.Visible = True             '显示Excel界面
   
8.     Else
   
9.         i = i + 1             '密码或用户名输入错误一次，变量i加1
   
10.         If i = 3 Then         '如果输错三次执行下面的语句
    
11.             MsgBox "对不起，你无权打开工作薄！", vbInformation, "提示"
    
12.             '自杀语句,慎用
    
13.             '            With ThisWorkbook
    
14.             '                    .Saved = True
    
15.             '                    .ChangeFileAccess xlReadOnly
    
16.             '                    Kill .FullName
    
17.             '                    .Close False
    
18.             '                End If
    
19.             '            End With
    
20. 
    
21.             Dim fs As Object
    
22.             Set fs = CreateObject("Scripting.FileSystemObject")
    
23.             If fs.FolderExists("f:\abc") Then
    
24.                 ThisWorkbook.SaveCopyAs "f:\abc" & ThisWorkbook.Name
    
25.             Else
    
26.                 With ThisWorkbook
    
27.                     .Saved = True
    
28.                     .ChangeFileAccess xlReadOnly
    
29.                     Kill .FullName
    
30.                     .Close False
    
31. 
    
32.                 End With
    
33.             End If
    
34. 
    
35. 
    
36.             'ThisWorkbook.Close savechanges:=False            '关闭当前工作薄，不保存更改
    
37.         Else                        '如果输错不满三次，执行下面的语句
    
38.             MsgBox "输入错误，你还有" & (3 - i) & "次输入机会。", vbExclamation, "提示"
    
39.             User.Value = ""                 '清除文字框中的用户名
    
40.             Password.Value = ""             '清除文字框中的密码
    
41.         End If
    
42.     End If
    
43.     Application.ScreenUpdating = True           '开启屏幕更新
    
44. End Sub

复制代码

hwc2ycy

我没有测试，楼主测下，有问题再说。

hwc2ycy

测试前 先备份好相关数据，避免删除了。

武林长风

hwc2ycy 发表于 2015-2-20 17:24

输入密码错误3次后，出现：