保住Excel 2000文件的秘密

jsy165

保住Excel 2000文件的秘密

    一般保护工作表采取的方法是用Excel 2000菜单中的“保护”命令，有时这尚嫌不足，比如一些机密文件不能让某些使用者看到，但又需要他来操作工作簿中的某些表，怎么办？可利用VBA设立工作表的使用权限，使他只能看到和其工作有关的部分。

在Excel 2000中，单击“工具”，再单击下拉菜单中的“宏”，点击“Visual Basic编辑器”，打开“工程资源管理器”，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择“worksheet”，这时再从该窗口右上方的列表框中选择Active(激活)，这时自动显示如下的语句块：

Private Sub Worksheet_Activate( )

End Sub



在其中加入代码(假设用“123”作为密码,Sheet“机密文档”为限制权限文档，Sheet“普通文档”为工作簿中可以让他人操作的工作表)，程序如下：

Private Sub Worksheet_Activate( )If Application.InputBox(″请输入操作权限密码:″) = 123 ThenRange(″A1″).SelectSheets

(″机密文档″).Cells.Font.ColorIndex = 56Else

MsgBox ″密码错误,即将退出!″

Sheets(″普通文档″).Select

End If

End Sub

Private Sub Worksheet_Deactivate( )

Sheets(″机密文档″).Cells.Font.ColorIndex = 2

End Sub



大家将它们拷贝到自己的工作表中试试看，很简单，只是别忘记密码。





作者：不详

ggyy_lh

这个很实用，如果的我文件中有很多工作表（当然工作表的名字和你的不一样），我只限制其中汇总统计的那张，其它是操作用的，就可以用这个，是吧！但我对VBA一窍不通，能不能再注释一下，请在每句旁边注释起什么作用，谢谢，我很需要这个。比如ThenRange(″A1″).SelectSheets

(″机密文档″).Cells.Font.ColorIndex = 56Else 这段起的是什么作用？

feng.xu

代码整理Private Sub Worksheet_Activate()

If Application.InputBox("请输入操作权限密码:") = 123 Then

    Range("A1").Select

    Sheets("Sheet2").Cells.Font.ColorIndex = 56

Else

    MsgBox "密码错误, 即将退出!"

    Sheets("Sheet1").Select

End If

End SubPrivate Sub Worksheet_Deactivate()

Sheets("Sheet2").Cells.Font.ColorIndex = 2

End Sub

wuping800223

我也有个办法:假设有机密文档,则可设其sheets("机密文档").Visiable=false即可隐藏，其他文档照输，查看时写个sheets("机密文档").Visiable=true则显示，当然显示之前可要求输入密码[em05]

老鬼

不启动宏就被破解了~~~~~~

lihsiang

以下是引用老鬼在2004-11-19 16:42:38的发言：



不启动宏就被破解了~~~~~~

将sheet的visible设为2。

老鬼

以下是引用lihsiang在2004-11-24 17:20:04的发言：





将sheet的visible设为2。

不明白你的说法。只要在启动时取消宏，所有的代码就失效了啊~~~~~