摘要： 如果要获取Windows默认的用户帐户名称，可以使用下面的VBA代码，其中使用了 WNetGetUser 函数，将代码放入标准模块中：利用VBA打印隐藏的excel工作表如果一个工作簿中包... 如果要获取Windows默认的用户帐户名称，可以使用下面的VBA代码，其中使用了 WNetGetUser 函数，将代码放入标准模块中：
利用VBA打印隐藏的excel工作表
如果一个工作簿中包含许多工作表，其中还有一些是隐藏的，我们可以用VBA代码来直接打印所有隐藏的工作表，而无需将它们取消隐藏。由于Excel无法打印隐藏的工作表，下面的代码先取消工作表的隐藏，打印之后再将其隐藏起来。将代码放入VBA编辑器的标准模块中运行。 Sub PrintHiddenSheets()Dim wShee
Option Explicit
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, _
ByVal lpUserName As String, _
lpnLength As Long) As Long
Private Const NO_ERROR = 0
Private Const ERROR_NOT_CONNECTED = 2250&
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_NO_NETWORK = 1222&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Sub Getusername()
Dim strBuf As String, lngUser As Long, strUn As String
strBuf = Space$(255) ‘//Clear buffer
lngUser = WNetGetUser("", strBuf, 255)
If lngUser = NO_ERROR Then
strUn = Left(strBuf, InStr(strBuf, vbNullChar) – 1)
MsgBox "系统用户帐户名称是： " & strUn
Else
MsgBox "错误：" & lngUser
End If
End Sub
如何显示用VBA隐藏的工作表
前面介绍了用VBA隐藏工作表，这时的工作表“格式→工作表→取消隐藏”命令是灰色的，无法执行。那如何取消对工作表的隐藏呢？ 1、按下Alt F11组合键进入VBA编辑状态。2、执行“工具→VBAProject属性”命令，弹出“VBA
