关于组合功能

YieldYang

Dear
      各位
            请教一个问题：当我打开的时候，组合的内容不展示出来如何实现？
      描述：
             现在在VBA里面实现的功能是打开Excel的时候提示是否要查看组合内容，是的话需要输入密码（密码是：123），否的话就不能查看。现在问题来了，如果我把组合展开然后保存，提示照样会有，但是组合是展开的，就没有体现出目的了，目的就是想要查看组合的内容就必须在打开工作簿的时候输入密码，或者解除工作表的保护。如果因为疏忽组合展开后保存了，就不能达到预期效果了。现在不知道如何解决，请各位帮帮忙。

             恭祝各位，身体健康，万事如意。


该贴已经同步到 YieldYang的微博

YieldYang

补充说明：输入的密码如何用“*”号代替？

神奇网格

YieldYang 发表于 2014-6-30 00:20
补充说明：输入的密码如何用“*”号代替？

不知对不对
星号不会

神奇网格

YieldYang 发表于 2014-6-30 00:20
补充说明：输入的密码如何用“*”号代替？

Private Sub Workbook_Open()
    With Sheet1
     yn = MsgBox(prompt:="是否需要查看隐藏列？", Buttons:=vbYesNo + vbQuestion, Title:="温馨提醒")  '将MsgBox函数的返回值赋给变量yn，无论是函数还是方法，当需要将返回结果赋给变量时，参数必须写在括弧里，否则不能加括弧。
        If yn = vbYes Then  '如果用户单击对话框中的【是】按钮，就执行第二个If条件
            If Application.InputBox(prompt:="请输入密码！") = "123" Then   '首先弹出对话框，要求用户输入密码，密码是“ULK3721”
                .Protect Password:="123", userinterfaceonly:=True, AllowFiltering:=True '密码输入争确后，组合起来的内容就可以展开
                .EnableOutlining = True
            Else
                MsgBox prompt:="密码错误", Buttons:=vbOKOnly + vbExclamation, Title:="警告"
               
                 .Protect Password:="123", userinterfaceonly:=False, AllowFiltering:=False '密码输入错误后，组合起来的内容就不可以展开
                .EnableOutlining = False
               
            End If
        End If
    End With
End Sub
不知对不对

星号不会

YieldYang

神奇网格 发表于 2014-6-30 08:08
Private Sub Workbook_Open()
    With Sheet1
     yn = MsgBox(prompt:="是否需要查看隐藏列？", But ...

这种方法有尝试过，但是不对。如果说展开之后保存，还是达不到效果。不过还是要谢谢你哈，一起在想想呗。

YieldYang

各位朋友，大家好。
       上述的问题有哪位仁兄可以提供解决方案呢，还请多多指教一番。

YieldYang

没人愿意帮忙吗，还是说觉得表达的不够清楚？