ارور پسورد

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ali.b

    • 2014/01/12
    • 798
    #1

    ارور پسورد

    سلام این کد رو به حالت زیر تغییر میدم با نام 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
      #2
      ی کمکی برسونین ممنون میشه
      [CENTER]
      [/CENTER]

        کامنت

        • علی فاطمی

          • 2014/02/17
          • 523
          • 51.00
          #3
          سلام ، اگر ممکنه فایل نمونه بزارین.
          [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


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

            کامنت

            • ali.b

              • 2014/01/12
              • 798
              #4
              چشم در اسرع وقت
              [CENTER]
              [/CENTER]

                کامنت

                • ali.b

                  • 2014/01/12
                  • 798
                  #5
                  اینم فایل نمونه
                  فایل های پیوست شده
                  [CENTER]
                  [/CENTER]

                    کامنت

                    قبلی template بعدی
                    چند لحظه..