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

samma111

初来炸到 发表于 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

谢谢, 楼主分享!

sudli

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

2683813319

谢谢分享！太牛了！佩服

okzmz001

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

小牛快快跑

好好学习，天天向上

17362279485

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

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

一笔书天地

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

quan343766078

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

shaokui123

感谢分享，谢谢