这种打开一个工作薄后控制其它工作薄的想法可能吗

598598

怎样写代码打开当前工作薄后，先前打开的所有工作薄都消失，但不是关闭（在关闭此工作薄后，先前打开的工作薄会再显示出来），还有不能再打开新的工作薄。

wayy

可以啊，隐藏就是啦

wurl

可以编制如下简单过程，
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WBNum As Integer
Dim I As Integer
Dim wb As Workbook
Dim wind As Window
WBNum = Workbooks.Count
For I = 1 To WBNum - 1
    Workbooks(I).Activate
    Set wb = Workbooks(I)
    Set wind = wb.Windows(1)
    wind.Visible = True
Next
Set wb = Nothing
Set wind = Nothing
End Sub

Private Sub Workbook_Open()
Dim WBNum As Integer
Dim I As Integer
Dim wb As Workbook
Dim wind As Window
WBNum = Workbooks.Count
For I = 1 To WBNum - 1
    Workbooks(I).Activate
    Set wb = Workbooks(I)
    Set wind = wb.Windows(1)
    wind.Visible = False
Next
Set wb = Nothing
Set wind = Nothing
End Sub

598598

wurl 发表于 2012-5-25 11:08
可以编制如下简单过程，
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WBNum As Integer

非常感谢，可以达到第一个目的，打开工作薄隐藏其它工作薄，希望可以能达到两个目的，打开这个工作薄后，就不允许再打开其它工作薄。这个看有没有办法实现呢

598598

感觉这样隐藏没有意义，要隐藏VBE才对，因为这样隐藏后，打开VBE里面还是可以调出刚才打开的工作薄里面的代码。

wurl

在VBE处点其他工作薄的项目主文件出的+_号, 把其他工作薄的项目主文件打开或收起就好了,

598598

wurl 发表于 2012-5-25 16:35
在VBE处点其他工作薄的项目主文件出的+_号, 把其他工作薄的项目主文件打开或收起就好了,

那谁进入VBE里面把收起的＋再打开不还是可以看的到吗

wurl

使用VBAProject功能可以很容易地通过设置密码隐藏宏。
右键点击Project Explorer的VBA面板上的VBAProject。选择VBA Project属性。点击“保护”按钮。勾选“查看锁定工程”，并输入密码。保存然后关闭VBA编辑器。保存并关闭Excel工作表。重新打开工作表。按住Alt+F11打开VBA编辑器。
    你现在要输入密码才能显示“当前工作簿”。如果密码输入正确，你可以查看代码，你也可以修改密码或解除锁定保护。

wurl

对于你想隐藏的工作薄的宏或VBA程序都可以采用上述加密的方法隐藏，

无聊的疯子

说说你具体想做什么吧!!

看你说得问题很绕呢!!