<p>当设置一般用户只能打开时，工作表被保护密码是：123。</p><p>当修改下列代码中的：123改成其他数值时，用管理员用户登录时会错提示：<font color="#68f709">运行时错误‘1004’你提供的密码不正确，请检查：CAPS LOCK 的状态，并确认使用了正确的大小写。</font></p><p>rivate Sub Workbook_BeforeClose(Cancel As Boolean)<br/>Sheet5.Visible = True<br/>Dim sh As Worksheet<br/>For Each sh In Worksheets<br/> If sh.Name <> Sheet5.Name Then<br/> If sh.Name <> Sheet1.Name Then sh.Protect Password:="<font color="#f73809">123</font>"<br/> sh.Visible = xlSheetVeryHidden<br/> End If<br/>Next<br/>ThisWorkbook.Save<br/>End Sub</p><p>rivate Sub Workbook_Open()<br/>Application.Visible = False<br/>UserForm1.Show<br/>End Sub<br/></p><p>请教楼主如何进行修改这个密码？</p>
楼主: HYY514
[复制链接]
IP卡
狗仔卡
发表于 2007-10-24 18:51
rivate Sub Workbook_BeforeClose(Cancel As Boolean)<br/>Sheet5.Visible = True<br/>Dim sh As Worksheet<br/>For Each sh In Worksheets<br/> If sh.Name <> Sheet5.Name Then<br/> If sh.Name <> Sheet1.Name Then sh.Protect Password:="<font color="#f73809">123</font>"<br/> sh.Visible = xlSheetVeryHidden<br/> End If<br/>Next<br/>ThisWorkbook.Save<br/>End Sub</p><p>
显身卡
