人老了，无聊得很，做了一个考勤表，新增插入员工批注图片

w8899 · 发表于 2018-12-10 18:52

ivccav 发表于 2018-12-10 17:00
你的代码有问题啊，我点开之后，无论怎么都恢复不了你隐藏的功能了。

单元格右键，工作表标签右键，都无 ...

快捷键CTRL+Q

w8899 · 发表于 2018-12-10 18:53

w8899 发表于 2018-12-10 18:52
快捷键CTRL+Q

隐藏是+W

w8899 · 发表于 2018-12-10 18:58

ivccav 发表于 2018-12-10 17:31
没什么用，楼主也有“显示”功能的代码，运行之后当次有效，保存文件后重新打开就无效了（已屏蔽工作 ...

不好意思，一个隐藏功能，没告书你快捷键害你重装办公软件，真的不好意思。

ivccav · 发表于 2018-12-10 19:16

w8899 发表于 2018-12-10 18:58
不好意思，一个隐藏功能，没告书你快捷键害你重装办公软件，真的不好意思。

我知道你的代码和快捷方式，也知道你在退出工作簿时会再次设置隐藏功能。

我全部屏蔽了所有代码，运行“显示”代码，但是只会当次有效，下次打开或新建EXCEL依然无法使用右键功能。

经过漫长地修复Office之后依然无效。最后在安装盘搜索.xlb文件，找到之后删除才恢复正常。

w8899 · 发表于 2018-12-10 19:22

ivccav 发表于 2018-12-10 19:16
我知道你的代码和快捷方式，也知道你在退出工作簿时会再次设置隐藏功能。

我全部屏蔽了所有代码，运 ...

怎么样？注入了新的DD没有？

w8899 · 发表于 2018-12-10 19:23

w8899 发表于 2018-12-10 19:22
怎么样？注入了新的DD没有？

要不要关闭工作薄时备份和发送此工作薄到指定邮箱？

YZC51 · 发表于 2018-12-10 19:26

学习下

考勤表.zip (39.88 KB, 下载次数: 13)

w8899 · 发表于 2018-12-10 19:49

YZC51 发表于 2018-12-10 19:26
学习下

在我机器上问题依然存在

YZC51 · 发表于 2018-12-10 20:04

修改下
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveCell.Value = Left(ListBox1.Value, 1)
ActiveCell.Offset(1, 0).Select
'ListBox1.Visible = False
End Sub

ivccav · 发表于 2018-12-10 20:04

w8899 发表于 2018-12-10 19:23
要不要关闭工作薄时备份和发送此工作薄到指定邮箱？

这倒没有。可能有些设置会保存为文件，无法修改回去。xlb是配置文件

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

[原创] 人老了，无聊得很，做了一个考勤表，新增插入员工批注图片