导入外部数据时,如果源EXCEL文件带打开密码,怎么办?

mengshu

呵呵，很遗憾，我在论坛上用“密码”两个关键字搜索了一下，只有四个帖子，其中包括这一个，其他的都没有答案！还请楼上给个链接

dcw0402

原帖由 mengshu 于 2010-3-1 18:22 发表
对VBA确实有兴趣学习一下，只是目前急用，不知道该怎么办了，我想达到这个目的，在激活当前工作薄的时候，自动解除被调用工作表的密码，在更新完成后，再自动对工作表进行加密！

你激活工作表后就解锁,完成后再加锁,哪和不加锁有什么区别呢?不明白你的逻辑
提供些代码,供参考吧

Public Sub unprotectt(ByRef shname As String)
Sheets(shname).Unprotect "123"
End Sub
Public Sub protectt(ByRef shname As String)
Sheets(shname).Protect "123"
Sheets(shname).EnableSelection = xlUnlockedCells
End Sub