[VBA程序]：能帮我优化一下吗？

xiguao

上传文件是一个dwg文件，内嵌一个vba程序，我的计划是，在vbaide后设一个程序口令，不知道的不能修改vba程序。
vba里设一对话框，输入口令，通过后修改dwg文件没有任何限制，否则，只能使用zoom,pan等命令。这个功能由锁定图层，先命令后选择，并取消不许使用的命令。
由于这个文件在acadr2002中生成，可以打开多文档，故激活别的文档时，本文档需全不可见，并将一些功能复原，当激活本文档时，可以看见本图。
本图在打开时acad能预览，但打开是什么也看不见，需要双击鼠标，这是程序设置的，如有更好的办法，请指教。
本程序只是限制拿到这个图的人只能用acad看，不能修改，除非我给密码。我看vba能嵌入很不错，很简单，所以就用了。网上有dwg文件加密的东西，但那是另编程序，我把dwg拷给别人不能也将那程序也拷了去:)
大家帮我看看？
;
;这个没有爱心币了:)

老头1989

不明白

秋枫

效果不错。

我有个建议，visible = false 是没有用的。随便用一个dwg convert程序，convert成低版本的不支持visible属性和vba的dwg格式即可解密。所以建议你这个换个思路。

禁止使用某些命令的方法不错，我没想到。

xiguao

我写这个的目的就是为了别人只能看，不能修改，包括使用中间的任何局部，以至于要关掉中间的复制功能。但是，不好有附加的安装软件呀。
将这个dwg文件给别人，很多时候别人会对这个图作出修改，所以我得限制。。。
文件是完全拷贝的，只读功能别人能改过来，所以我得在这里面加点功夫。
我们要防备的人也只会看autocad的dwg，这段程序，足够挡着他们了。
有没有更好的思路，只是局限在这个dwg图形里的，多多指教！！！！

efan2000

修改程序如下：

2. 
   
3.   [FONT=courier new]
   
4. '在ThisDrawing模块中
   
5. Option Explicit
   
6. 
   
7. Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
   
8.     Debug.Print CommandName
   
9.     If UserForm1.Flag = True Then Exit Sub
   
10.     Select Case CommandName
    
11.         Case "NEW", "OPEN" '允许新建、打开
    
12.         Case "PREVIEW", "PLOT" '允许预览、打印
    
13.         Case "COPYCLIP", "CUTCLIP", "PASTECLIP", "ERASE"
    
14.             If ThisDrawing.PickfirstSelectionSet.Count <> 0 Then
    
15.                 SendKeys "{U}" & vbCr '如果已经选择了实体，则取消对实体的操作
    
16.             Else
    
17.                 SendKeys "{ESC}" '如果没有选择实体，则取消命令
    
18.             End If
    
19.         Case "ZOOM", "PAN" '允许平移、缩放
    
20.         Case Else
    
21.             SendKeys "{ESC}" '取消命令
    
22.     End Select
    
23. End Sub
    
24. 
    
25. Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
    
26.     If UserForm1.Flag = False Then
    
27.         UserForm1.Show
    
28.     End If
    
29.     SendKeys "{ESC}"
    
30. End Sub
    
31. 
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> '在ThisDrawing模块中<br /> Option Explicit<br /> <br /> Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)<br />     Debug.Print CommandName<br />     If UserForm1.Flag = True Then Exit Sub<br />     Select Case CommandName<br />         Case "NEW", "OPEN" '允许新建、打开<br />         Case "PREVIEW", "PLOT" '允许预览、打印<br />         Case "COPYCLIP", "CUTCLIP", "PASTECLIP", "ERASE"<br />             If ThisDrawing.PickfirstSelectionSet.Count <> 0 Then<br />                 SendKeys "{U}" & vbCr '如果已经选择了实体，则取消对实体的操作<br />             Else<br />                 SendKeys "{ESC}" '如果没有选择实体，则取消命令<br />             End If<br />         Case "ZOOM", "PAN" '允许平移、缩放<br />         Case Else<br />             SendKeys "{ESC}" '取消命令<br />     End Select<br /> End Sub<br /> <br /> Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)<br />     If UserForm1.Flag = False Then<br />         UserForm1.Show<br />     End If<br />     SendKeys "{ESC}"<br /> End Sub<br /> <br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. 在'UserForm窗体中
   
5. Option Explicit
   
6. Public Flag As Boolean
   
7. 
   
8. Private Sub cmdCancel_Click()
   
9.     Me.Hide
   
10. End Sub
    
11. 
    
12. Private Sub cmdOK_Click()
    
13.     If TextBox1.Text = "tianxia" Then
    
14.         Flag = True
    
15.     Else
    
16.         Flag = False
    
17.     End If
    
18.     Me.Hide
    
19. End Sub
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> 在'UserForm窗体中<br /> Option Explicit<br /> Public Flag As Boolean<br /> <br /> Private Sub cmdCancel_Click()<br />     Me.Hide<br /> End Sub<br /> <br /> Private Sub cmdOK_Click()<br />     If TextBox1.Text = "tianxia" Then<br />         Flag = True<br />     Else<br />         Flag = False<br />     End If<br />     Me.Hide<br /> End Sub<br />   [/FONT]<br />

xiguao

大概我没表达清楚，我的意思是任何人可以看到图（预设双击鼠标），但是想修改本图，或者将图另存，将本图局部拷出都是禁止的，除非我给出密码。
所以：
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
    If UserForm1.Flag = False Then
        UserForm1.Show
    End If
    SendKeys "{ESC}"
End Sub

这个是不希望的，我想让双击直按显出图形。
但是，当我在按钮上解锁所有图层（图层不多，手工一个一个地打开也不费时），后用wblock命令时，没起到预想的效果，能将图拷出，是不是也要将所有按钮也禁止？但是我不想改变autocad的界面外观呀。。。。多谢指教了！！！！

efan2000

没错啊，这些命令放在BeginCommand处理就可以了，看看上面的代码，除了只有几个命令允许外，其它的操作都禁止了。

xiguao

就是象wblock等对话框命令，先在工具按纽上解锁图层后，运行wblock，弹出密码框，取消后，再进入了wblock对话框，点选第一次会输出一个{ESC}，第二次就正常，将本图全拷出到另一文件，能限制么？