网页中打开的excel文件如何防止右键复制？
网页中打开的excel文件怎样才能使得不被人右键菜单复制，或Ctrl+c复制？vba中清空剪贴板行吗？怎么做？指教！ 问题点数：20、回复次数：2Top
1 楼caiweb（f）回复于 2005-03-09 17:48:17 得分 0
upTop
2 楼cairuibin（）回复于 2005-03-10 13:21:14 得分 20
'Thisworkbook
Option Explicit
Private Sub Workbook_Open()
DisableCutAndPaste
End Sub
'Module
Sub DisableCutAndPaste() '禁止
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' cut
EnableControl 755, False ' cut
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "^x", ""
Application.OnKey "^a", ""
End Sub
Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub
Top
