ارور پسورد

ali.b

تاریخ عضویت: 2014/01/12
نوشته‌ها: 798

2014/09/01, 13:26

سلام این کد رو به حالت زیر تغییر میدم با نام sub گیر میده چطوری حلش کنم؟

کدی که سالمه اما وقتی به صورت کد بعدی تغییر میدم قاطی میکنه

کد:

Sub barq()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheet1.Range("a1") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:=Sheet1.Range("a2").Value
End Sub

کد بیمار:

کد:

Sub barq()Sheets(Array(Sheet2.Name)).Copy
 ActiveWorkbook.SaveCopyAs Filename:="D:\Archive\NOT" & "\" & Sheet2.Range("A1") & "\" & Sheet6.Range("B3") & "\" & Sheet11.Range("n2").Value & ".xlsx", Password:=Sheet11.Range("n2").Value
        ActiveWorkbook.Close SaveChanges:=False
End Sub

[CENTER]
[/CENTER]

برچسب ها: پسورد, ارور

ali.b

تاریخ عضویت: 2014/01/12
نوشته‌ها: 798

2014/09/02, 12:21

ی کمکی برسونین ممنون میشه

[CENTER]
[/CENTER]

کامنت

علی فاطمی

تاریخ عضویت: 2014/02/17
نوشته‌ها: 523
میزان تسلط به اکسل: 51.00

2014/09/02, 15:05

سلام ، اگر ممکنه فایل نمونه بزارین.

[FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]

[CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
[/CENTER]