VBA登陆界面出现“运行错误70，拒绝使用此权限!(自己解决）

zy040059

想给我的成绩统计系统做个登陆界面，我把一现成的登录界面导入工作薄中时，出现 “运行错误70，拒绝使用此权限”的提示，我初学VBA，感到非常棘手，恳请高手支招！！先谢了！！
（文件过大，故分解为3个压缩包）

呵呵，突击了一晚，终于在网上找到方法。调试运行时，会出现 Login.show  语句出错，主要原因如下：
【工作表名稱為何不能有 1的，只要工作表名稱有1的時候 代碼 Login.Show 1就會出錯!
   问题不在于 Login.Show 1这句，而是在Login窗体的UserForm_Initialize()事件代码中：
  Dim i As Integer
     For i = 4 To Sheet2.Range("A65536").End(xlUp).Row
     Me.ComboBox1.AddItem Sheet2.Cells(i, 1).Value  
Next i
运行到第三句出现错误，这跟ComboBox1的RowSource设置为'1'!a4:a20有关，当工作簿中不存在名为'1'的工作表时，Excel似乎忽略了ComboBox1的RowSource属性，而当工作表'1'存在时，ComboBox1的列表项就已经绑定，再添加项时就会出错，把RowSource属性清空就可以了

[ 本帖最后由 zy040059 于 2009-7-20 23:51 编辑 ]

zy040059

在网上找到一个问题注解,不是太明白：

VBA错误信息:权限被否定（错误 70）
试图对写保护的磁盘进行写操作，或要访问加锁文件。此错误有以下的原因和解决方法：
为顺序Output或Append 写，打开一个写保护文件。
用Input方式打开文件，或者修改文件的写保护属性。
用顺序Output或Append方式，打开有写保护的磁盘上的文件。
从磁盘上删除写保护，或者使用Input方式文件。
写入已被其他进程锁定的文件。
等其他进程释放后再打开此文件。
试图访问注册表，但用户权限不包括此类注册表访问。
在 32 位 Microsoft Windows 系统上，用户必须有访问当前系统注册表的权限。改变用户权限，或由系统管理员来修改。
详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。

a_bohehongcha

改个路径就可以了，不要直接写在C盘下

dditx

遇到同样的问题，按楼主的方法，解决了

liwenwu

4楼是高手啊，学习了，谢谢分享！