Tag: 用户名

SelectionChange获取用户名和date: 我是Excel VBA的新手，我试图编写一些代码来实现以下function：当单元格在包含文本“123”或“xyz”的列A中单击时，单元格在同一行中，但列Blogging当前时间，同一行中但列C中的单元logging单击它的人员的用户名。以下是我目前使用的代码： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim RowNum As Long If Target.Cells.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub If Not Target.Value.Text = 123 Then Exit Sub If Not Target.Value.Text = XYZ Then Exit Sub RowNum = Target.Row Range("B" & RowNum).Value = Date Range("C" & RowNum).Value = […]

使用vba excel创build新的公式: 嗨即时通讯寻找一个formulla显示用户的全名是谁打开excel file.it应该显示login的用户名。我尝试了一些VBA脚本，并成功succesfull，但有一个问题，当我运行脚本，只有它生成popup窗口说你的用户名。它应该显示单元格中的用户名称作为dateformulla a“= TODAY（）”。我有这个脚本请任何人帮我在单元格中显示完整的用户名。 Sub GetUserFullName() Dim MyOBJ As Object On Error Resume Next Set MyOBJ = GetObject("WinMgmts:").instancesOf("Win32_NetworkLoginProfile") If Err.Number <> 0 Then MsgBox "WMI has not been installed, code will be terminated…", vbExclamation, "Windows Management Instrumentation" Exit Sub End If For Each objItem In MyOBJ MyMsg = MyMsg & "Welcome To […]

使用WMI在VBA中获取当前的Windows用户名: 我想知道是否有一个简单的方法来使用WMI来获取当前的Windows用户名和域名。 Windows API调用只是简单的用户名，所以你最终会再次调用域名。我有一些代码，但我得到一个自动化错误。有任何想法吗？我认为我走在正确的道路上，但是我对WMI有点新鲜。函数GetFullName（）作为string 昏暗的电脑作为string 电脑=“。” Dim objWMIService，colProcessList As Object 设置objWMIService = GetObject（“winmgmts：\\”＆computer＆“\ root \ cimv2”）设置colProcessList = objWMIService.ExecQuery _ （“selectTOP 1 *从Win32_Process WHERE名称='EXCEL.EXE'”） Dim uname，udomain As String Dim objProcess As Object 对于每个objProcess在colProcessList中 objProcess.GetOwner uname，udomain 下一个 GetFullName = UCase（udomain）＆“\”＆UCase（uname）结束function 更新：请参阅接受的答案

我可以为特定用户隐藏function区上的图标吗？: 我想在function区选项卡上为特定用户显示一个图标。喜欢… If username ="Mike" hide icon1 else show icon1 有没有什么办法来获取在C＃中使用Excel工作簿的用户名？我可以设置这个图标的密码，但如果我可以获得用户名，这将会更容易。