[已解决]【求助】关于窗体的锁定

zzzlondon · 发表于 2011-10-3 22:15

Private Sub Workbook_open()
Worksheets("数据库").Visible = xlSheetVeryHidden
ActiveWindow.WindowState = xlMinimized
Windows("a.xlsm").Activate
UserForm2.Show
End Sub
这时窗体始终是在最上的，目的是为了让使用者在使用窗体前不能看到a.xlsm的内容
但是如果打开了另一个任意表格，例如b.xls，再打开a.xlsm，那么b表格将变得不可操作
如果使用UserForm2.Show 0将使得a.xlsm可以操作
如果写代码能使得a不能操作而b能操作？

最佳答案

月排行榜 / 总排行榜

安贤

2011-10-9 18:25

本帖最后由安贤于 2011-10-9 18:32 编辑

111111111111111

跳转到最佳答案楼层

fjmxwrs · 发表于 2011-10-4 00:10

留脚印学习，等高手的办法

安贤 · 发表于 2011-10-4 12:09

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
MsgBox 222
End Sub
用这个事件试试

zzzlondon · 发表于 2011-10-4 14:18

回复安贤的帖子

试了下好像没用，开启时会跳出222，但仍旧无法切换到其他表

安贤 · 发表于 2011-10-4 15:06

上个符件吧，
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
End Sub
是要你用这个事件试试
里面还要有判断代码的

zzzlondon · 发表于 2011-10-4 17:53

本帖最后由 zzzlondon 于 2011-10-4 22:59 编辑

回复安贤的帖子

a.rar (36.3 KB, 下载次数: 11)

zzzlondon · 发表于 2011-10-4 23:03

回复安贤的帖子

权限不够没法回复你
重新上传了个，帮忙看看吧～

其实原来那个也有办法打开的，先打开一个VBA的编辑窗口，再打开这个文件，就可以直接看到代码了

zzzlondon · 发表于 2011-10-5 20:13

回复安贤的帖子

特地去弄了个2003，这个是你要的2003版本的。。。

a.xls.rar (10.38 KB, 下载次数: 24)

BAIXINGR · 发表于 2011-10-5 20:31

学习了

无聊的疯子 · 发表于 2011-10-5 21:07

回复 zzzlondon 的帖子

打开任意文件夹>工具>文件夹选项>文件类型

分别对以下三种文件类型一一进行设置
xls,xlsx,xlsm

选择xls >高级>打开>编辑
将 "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE" /e %1 复制到 "用于执行操作的应用程序",并不勾选 "使用DDE" 然后确定>在确定

按照上面的方法依次设置完三个类型的文件后,即可解决你的问题 (Win7系统无法做此设置)

		自动登录	找回密码
密码			注册