类似正规软件的登录界面（功能、界面绝对实用漂亮）

samma111 · 发表于 2019-5-20 16:18

初来炸到发表于 2019-4-30 14:07
已经搞定了。

麻烦问一下，怎么搞定的？另外：出现无效过程或参数，求解
Sub YinCang() '???????
ActiveWindow.DisplayHeadings = False '?????к??б?
ActiveWindow.DisplayWorkbookTabs = False '???ι???????
ActiveWorkbook.Protect , , True '?????????????????????????С??/???/?????
   With Application
      .CommandBars.DisableAskAQuestionDropdown = True '???????
      .CommandBars("Standard").Visible = False '???γ??ù?????
      .CommandBars("Formatting").Visible = False '???θ????????
      .CommandBars("Stop Recording").Visible = False '???γ??ù?????
      .CommandBars("ply").Enabled = False '???ι??????????
      .CommandBars("cell").Enabled = False
      .DisplayFormulaBar = False '???α???
      .Caption = Sheets("????????").Range("B2")  'Excel???????????λ????
   With .CommandBars(1)
      .Controls("???(&F)").Visible = False
      .Controls("??(&E)").Visible = False
      .Controls("???(&V)").Visible = False
      .Controls("????(&I)").Visible = False
      .Controls("???(&O)").Visible = False
      .Controls("????(&T)").Visible = False
      .Controls("????(&D)").Visible = False
      .Controls("????(&W)").Visible = False
      .Controls("????(&H)").Visible = False
   End With
End With
End Sub

NadrsSaber · 发表于 2019-5-20 16:26

谢谢, 楼主分享!

sudli · 发表于 2019-5-20 16:33

作为刚刚学习小白，向无私的前辈致敬

2683813319 · 发表于 2019-9-15 02:48

谢谢分享！太牛了！佩服

okzmz001 · 发表于 2019-10-12 15:11

运行时，出现错误 5 无效的过程调用或参数，请问是怎么回事

小牛快快跑 · 发表于 2019-10-13 13:47

好好学习，天天向上

17362279485 · 发表于 2019-10-25 11:30

退出时没有恢复工具栏不恢复到原始状态,右键和菜单都无法使用问题的解决：

在工作簿对象中的Private Sub Workbook_BeforeClose(Cancel As Boolean) '工作簿关闭时，关闭工作簿的事件过程中，在 Call ShanChu 之后添加代码 Call HuiFu。不然，打开其他Excel表的时候会显示不出工具条和菜单栏的。
谁有新的EXCEL10或以上的登录界面请发一下？

一笔书天地 · 发表于 2020-1-2 01:03

谢谢楼主分享。。。支持原创。

quan343766078 · 发表于 2020-1-2 09:37

下载了，但是在输入密码的时候无法打字，就卡在了外面。挺好的，继续加油

shaokui123 · 发表于 2020-2-18 12:55

感谢分享，谢谢

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

[分享] 类似正规软件的登录界面（功能、界面绝对实用漂亮）