怎样用vb编程，实现保护excel，让其不可修改，不可选择，不可复制？

Question

怎样用vb编程，实现保护excel，让其不可修改，不可选择，不可复制？我用了
excelObj.ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    excelObj.ActiveSheet.EnableSelection = xlNoSelection
这两句，虽然能不让修改，但是还是能选中单元格，能够复制，想问一下怎么才能实现我上面说的要求呢！

Answer 1

首先，确定 Excel 是否支持这样的功能。如果支持，在 Excel 中手工设置的同时记录宏，把代码移植到 VB 中即可。

Answer 2

谢谢of123 我装的是office2003,手工设置工具-保护-保护工作表-去掉“选定锁定单元格”和“选定未锁定单元格”后即可以实现，录制的宏就是我现在用的代码，但是和手工设置实现的功能不一样呀，能否帮俺看看是怎么回事呀？

Answer 3

运行这段代码Sub yy()
Dim ctl As CommandBarControl
   
With Application
    .OnKey "^{x}", ""
    .OnKey "^{c}", ""
    .OnKey "^{v}", ""
End With
    
For x = 1 To 3
    For Each ctl In CommandBars(Array("Standard", "Edit", "cell")(x - 1)).Controls
        Select Case ctl.ID
            Case 19, 21, 22
                ctl.Enabled = False
        End Select
    Next
Next
End Sub

Answer 4

你们是一个老师布置的作业？
http://topic.csdn.net/u/20081204/22/28641819-f62c-4428-bb33-882e3c05c840.html

Answer 5

Excel本身就是独占式打开,只要运行程序打开就可以避免修改复制不知道如何解决