需要一个Password =

candy_hnlh78 · 发表于 2018-4-9 15:44

我有一个用来打开有密码文件的宏，如果所有文件是同一密码，打开很方便，但我现在文件密码各不相同，但密码是文件名，中文英文的都有，请问这种情况下，如何写Openpassword 宏语言？多谢！！

Sub Compilation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir(ActiveWorkbook.Path & "\*.xlsx")
Range("dz1") = Temp
Openpassword = Range("ea1")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "RecapPA.xlsm" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp, Password:=Openpassword
Workbooks(Temp).Sheets(1).Activate
'ActiveSheet.Unprotect Password:="123"
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Rows("24:" & CStr(Ligne)).Select
Selection.Copy

liulang0808 · 发表于 2018-4-9 15:53

If Temp <> "RecapPA.xlsm" Then
Openpassword =Temp增加这样一段呢，就是文件名了

candy_hnlh78 · 发表于 2018-4-9 16:19

Temp 出来的是文件名.xlsx , 如何去掉这个xlsx呢

candy_hnlh78 · 发表于 2018-4-9 16:21

Temp = Dir(ActiveWorkbook.Path & "\*.xlsx") ，所有paswword 就变成文件名加XLSX，但不加又不行，有其他办法吗？

candy_hnlh78 · 发表于 2018-4-9 19:49

Help , 大师现帮忙看一下，谢谢！

candy_hnlh78 · 发表于 2018-4-10 11:15

顶一下，看有没有高手的能帮忙一下。

candy_hnlh78 · 发表于 2018-4-27 22:37

没有帮忙看

candy_hnlh78 · 发表于 2018-4-27 23:35

没有回复了

ggmmlol · 发表于 2018-4-28 06:42

加一句代码，把后5位字符去掉，只保留前面的：
Temp = left(Temp,len(Temp)-5)

candy_hnlh78 · 发表于 2018-4-28 07:10

ggmmlol 发表于 2018-4-28 06:42
加一句代码，把后5位字符去掉，只保留前面的：
Temp = left(Temp,len(Temp)-5)

谢谢，呆会试试看

		自动登录	找回密码
密码			免费注册

[求助] 需要一个Password =