作者:乔山办公网日期:
返回目录:excel表格制作
没用的。若不启用宏,你的心思都白费了。
可以设置excel文件的工知作簿打开事件代码来检查帐号并执行非法道登录则退出操作。提示:1)使用environ函数获取相关系统信回息,如environ("Computername")可以返回计算机名,environ("UserName")返回登录用户名等。2)可以用thisworkbook.close语句来关闭当前文件答privatesubworkbook_open()dimstrUserasstringstrUser=environ("UserName")ifstrUser"sa001"ANDstrUser"sa002"thenmsgbox"非法用户,无权登录"thisworkbook.closeendifendsub
嗯,按照网上的那个VBA教程,成功给工作表设定了密码但是输入框中输入密码时能看见输入的是什么,我想要像保护工作表时输入的密码一样将输入显示成星号,请问如何写代码呢?
可以设置excel文件的工作簿打开事件代码来检查帐号并执行copy非法登录则退出操作。
提示:
1)使用environ函数获取相关系统信息百,如environ("Computername")可以返回计算机名,environ("UserName")返回登录度用户名等。
2)可以用thisworkbook.close语句来关闭当前文件
private sub workbook_open()
dim strUser as string
strUser = environ("UserName")
if strUser<>"sa001" AND strUser<>"sa002" then
msgbox "非法用户,无权登录"
thisworkbook.close
end if
end sub