组及分级显示VBA参数

YieldYang

各位大侠，请教个问题：
    Excel 2003中我通过VBA实现了组及分级显示的展开功能，现在遇到一个问题，就是我展开的组如何能通过VBA参数自动收缩呢？因为表格有加密设置，而且展开的内容只能给公司的领导看，不希望别人看见。现在不知道如何实现自动收缩，参数不知道是哪个。
   跪求各位指点迷经。


该贴已经同步到 YieldYang的微博

蓝桥玄霜

欢迎新会员！
1，估计不能实现；
2，Excel的保护功能很弱，有密码也没用。
3，你的帖子是求助，不是分享。
4，建议上传表格附件来说明问题。

YieldYang

谢谢，可能是我表达的不太清楚。让我组织一下逻辑，然后在跟您请教。

莫悠悠

把您的附件传上来，我来帮您实现吧

YieldYang

Private Sub Workbook_Open()         '打开文件时执行
   With Sheet1
     .Protect Password:="ULK3721", UserInterfaceOnly:=True, AllowFiltering:=True         '密码“ULK3721”，使用分组，使用自动筛选
     .EnableOutlining = True        '在受保护的工作表中启用分组
   End With
End Sub

备注：
     Sheet1：工作表名称
     ULK3721：密码



Sub 打开()
    With Sheet2
        If Application.InputBox("请输入密码！") = "ULK3721" Then
             MsgBox "请按“Ctrl+8”打开分组，以便查看内容！"
            .Protect Password:="ULK3721", userinterfaceonly:=True, AllowFiltering:=True
            .EnableOutlining = True
        Else
            MsgBox "密码错误，请重新输入！"
        End If
    End With
End Sub




Sub 关闭()
    With Sheet2
        If Application.InputBox("请输入密码！") = "ULK3721" Then
            .Protect Password:="ULK3721", userinterfaceonly:=False, AllowFiltering:=False
            .EnableOutlining = True
             MsgBox "请按“Ctrl+8”隐藏分组，以免资料泄漏！"
        Else
            MsgBox "密码错误，请重新输入！"
        End If
    End With
End Sub



各位大侠，这是我找的结果。希望能帮助大家，回复完了，请见谅！

coldrolled

蓝桥玄霜 发表于 2013-12-7 17:40
欢迎新会员！
1，估计不能实现；
2，Excel的保护功能很弱，有密码也没用。

mdb数据库加密了，这个破解难不难，问一下它的保护功能

mx200200

好资料，十分感谢分享。