求一段代码，打开表格需要输入正确的文字

yeu118 · 发表于 2024-2-4 10:13

求一段代码，打开表格需要输入正确的文字

类似这样， If TextBox1.Text = "1111" Then 输入不正确的话，表格则无法关闭。直到输入正确，才能关闭。

cyh3230 · 发表于 2024-2-4 13:02

直接加密吧, 最方便, 也最实用

yeu118 · 发表于 2024-2-5 09:56

不是哦，就是纯粹就要实在输入的功能。

Batcher · 发表于 2024-2-7 14:04

数据，数据验证，设置，
允许：整数
数据：介于（等于、不等于、大于、小于等）
最小值：1
最大值：10

sj15627581616 · 发表于 2024-2-7 17:02

无法关闭表格这个问题本身就不可能，直接关掉EXCEL主进程，VBA代码再怎么限制都是多余，除非打算搞成病毒那样

yeu118 · 发表于 2024-2-21 11:01

以前有见过一段代码。就是要输入正确的，才能关闭表格。

心的启点 · 发表于 2024-2-21 11:12

本帖最后由心的启点于 2024-2-21 11:14 编辑

做一个表格关闭触发事件就行了，然后加上代码及窗口。
[backcolor=rgba(245, 246, 249, 0.4)]Private Sub Workbook_BeforeClose(Cancel As Boolean)
[backcolor=rgba(245, 246, 249, 0.4)] ' 这里可以添加需要执行的操作或者代码
[backcolor=rgba(245, 246, 249, 0.4)]End Sub

yeu118 · 发表于 2024-2-21 11:16

心的启点发表于 2024-2-21 11:12
做一个表格关闭触发事件就行了，然后加上代码及窗口。
Private Sub Workbook_BeforeClose(Cancel As Boole ...

你能帮弄一下，比如输入框输入 111，才可以进去，不然打开之后就无法关闭。

心的启点 · 发表于 2024-2-21 13:57

本帖最后由心的启点于 2024-2-21 14:33 编辑

试试这个只是关闭触发事件，没有打开触发事件，我这个必须要用一个表存放密码，所以你真正用的时候只要把表4进行深度隐藏就行。

关闭事件代码.rar (19.23 KB, 下载次数: 4)

又新做了一个打开与关闭一起的触发事件。应该可以符合你的要求了，但这个如果不启用宏是没有用的。

打开关闭事件代码.rar (19.82 KB, 下载次数: 4)

yeu118 · 发表于 2024-2-21 14:46

心的启点发表于 2024-2-21 13:57
试试这个只是关闭触发事件，没有打开触发事件，我这个必须要用一个表存放密码，所以你真正用的时候只要把表 ...

好的，我看看

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

[求助] 求一段代码，打开表格需要输入正确的文字