[已解决]用VBA登录窗体上的按钮或者右上关闭整个EXCEL问题？

haha10086

我想用登录窗体上的退出按钮或右上角的X关闭整个EXCEL，而不是退出窗体
用代码怎么实现？
还有就是窗体上的登录成功后怎么跳转到excel主界面，sheet1命名为主界面。
请教各位达人。我是初学者。谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2015-11-1 15:05

Application.Visible = True                   显示运行程序（Excel）

ActiveWorkbook.Unprotect Password:="12345"   工作簿解锁，密码12345

Sheets("主界面").Visible = True              工作表“主界面”取消隐藏

Sheets("主界面").Activate                    激活“主界面”

ActiveWorkbook.Protect Password:="12345"     工作簿加锁

跳转到最佳答案楼层

zjdh

ActiveWindow.Close   关闭程序窗口

Sheets("主界面").Activate  工作表激活

haha10086

zjdh 发表于 2015-11-1 13:31
ActiveWindow.Close   关闭程序窗口

Sheets("主界面").Activate  工作表激活

谢谢你的指导，用力的代码，登录后桌面没看见EXCEL，再次点击EXCEL则提示EXCEL已经打开。

haha10086

zjdh 发表于 2015-11-1 13:31
ActiveWindow.Close   关闭程序窗口

Sheets("主界面").Activate  工作表激活

请你看一下这段代码什么意思，为什么要密码啊？
        Application.Visible = True        ActiveWorkbook.Unprotect Password:="12345"
        Sheets("主界面").Visible = True

        Sheets("主界面").Activate

        ActiveWorkbook.Protect Password:="12345"

zjdh

很简单的语句，你看不懂？
去下载一个解释器！

haha10086

zjdh 发表于 2015-11-1 13:57
很简单的语句，你看不懂？
去下载一个解释器！

感谢回复

haha10086

zjdh 发表于 2015-11-1 13:57
很简单的语句，你看不懂？
去下载一个解释器！

解释器翻译不出来

zjdh

Application.Visible = True                   显示运行程序（Excel）

ActiveWorkbook.Unprotect Password:="12345"   工作簿解锁，密码12345

Sheets("主界面").Visible = True              工作表“主界面”取消隐藏

Sheets("主界面").Activate                    激活“主界面”

ActiveWorkbook.Protect Password:="12345"     工作簿加锁

haha10086

zjdh 发表于 2015-11-1 15:05
Application.Visible = True                   显示运行程序（Excel）

ActiveWorkbook.Unprotect  ...

谢谢，所以我说那个密码在哪里对于我的东西来说是没用的。经过你的解释真的验证了。