软件:EXCEL
版本:2016
各位前辈大神好,
小弟因整理旧资料而制作一份包含多个工作表的活页簿,
为了避免切换工作表时不小心误删除或误更改资料内容,
希望用保护工作表的方式将已整理完毕的工作表上锁,
由于工作表份数约有10+,
一个一个手动上锁太繁复,
所以写了一段简单的VBA程式自动上锁,程式码如下:
Sub protect()
Dim key as string
key = InputBox("Enter the password:")
For Each ws In Worksheets: ws.protect Password = key
Next ws
End Sub
上述程序可以执行,
却无法透过校阅>取消保护工作表>手动方式输入密码解锁,
会显示密码错误的讯息,
小弟在上网查资料之后已得知上述程式码须修正为:
For Each ws In Worksheets: ws.protect Password:=key
即可使用手动方式输入密码解锁。
问题:
原版本的程式语法虽然有错误但却仍能执行并且成功上锁工作表,
请问在这种情况下上锁之后,
解锁密码是EXCEL默认的吗?
要输入什么才能解锁呢?
希望版上前辈大大能指点迷津!
感激感谢!