نحوه اجرای خودکار ماکرو ها

[almonz]

با سلام

من یه در مورد فعال سازی ماکرو ها دارم .

یک فایل اکسل دارم که توش کلی ماکرو دارم هربار که اجراش می کنم . اکسل یه security warning میده و میکه ماکرو ها disable هستند و باید اونارو فعال کنم . چه جوری میشه فعال کردن ماکرو ها رو به طور خودکار انجام داد .
:huh:

[plc_pcb]

RE: نحوه اجرای خودکار ماکرو ها

با سلام

از منوی
file/options/Trust Center/Trust Center Setting/Macro Settings/Enable all macros
رو بزنید و بعد OK رو بزن

[jmfnima]

RE: نحوه اجرای خودکار ماکرو ها

با سلام به شما
دوست عزيز اين روشي كه شما ميگيد به صورت دستي هست تموم دوستان دنبال اينن كه به محض باز كردن فايل اكسل ساخته شده بر روي يك سيستم در مرتبه اول ماكروهاي اكسل اون سيستم فعال بشه .

[safaei.mehdi@mapnablade.com]

RE: نحوه اجرای خودکار ماکرو ها

با درود بر اساتيد و تيم مديريت محترم جامعه اكسل ايرانيان
آيا كد خاصي وجود دارد كه ماكرو، در هنگام باز شدن فايل به صورت خودكار enable گردد؟
به طوري كه وقتي براي شخص ديگري نيز ارسال شد، ماكروي آن نيز enable گردد.
يعني ديگر نيازي به enableكردن ماكرو به صورت دستي نباشد.
با سپاس

[shamsololama]

RE: نحوه اجرای خودکار ماکرو ها

با درود فراوان
برای اینکه ماکروی که در برنامه می نویسیم و بدون اینکه در تنظیم آفیس تغییرب بدیم اجرا بشه
روشهای هست که من قبلا هم آن را در پستی دیگه توضیح داده بودم و نمونه فایل هم قرار داده بودم

در واقع ماکرو همیشه فعال هست و برای اجرای آن نیازی به فعال سازی نیست فقط ما سطح ماکرو را تغییر میدیم یعنی اینکه روی تنظیمی میذاریم که همه ماکروها اجرا بشن در غیر اینصورت باید ماکرویی که می نویسم سطحش بالا باشه تا بدون تغییر در تنظیمات آفیش بتونه اجرا بشه
که برای اینک کار امضای دیجیتال نیاز داره یعنی باید امتیازی رو خریداری کنید تا بتونید ماکرویی که مینویسید با امضای شما باشه و قبلا ثبت شده باشه که اگر به واسطه آن فایل ماکروی نوشتی که به سیستمی صدمه زدید پاسخگو باشید چون اگر قرار باشه شما فایلی که ماکروی توش نوشتی روی سیتم کسی بدون اجاز اون و بدون فعال کردن ماکروش اجرا بشه خوبی میتونی ماکروی مخرب بنویسی و براش بفرستی که برای جلوگیری از این و بالا بردن امنیت سیستم ماکرو به این صورتی که الان هست گذاشتن
ولی برنامه ای بود که از فایل اکسل شما یک فایل اکسل اگزه (فایل اجرایی) می سازه و وقتی اون فایل ماکرو فعال باشه
و روی سیستمی که ماکروش غیر فعال هست بازش میکنی کاری به تنظیم ماکروی آن آفیس نداره و با وجود غیر فعال بودن ماکروهاش اجرا میشن که قبلا نمونش هم تو سایت گذاشته بودم و الان دقیق یادم نیست تو کدوم پست بود

[safaei.mehdi@mapnablade.com]

RE: نحوه اجرای خودکار ماکرو ها

بسيار سپاس گذارم. در اين مورد كه بايد امتياز يك ماكرو رو خريد، اصلا" اطلاعاتي نداشتم.خيلي جالب بود.

[mshahin]

RE: نحوه اجرای خودکار ماکرو ها

به لينك زير برويد : http://***************************/post/40

[jmfnima]

با سلام به دوستان
آیا نمیشه با برنامه نویسی ماکروها رو به صورت خودکار فعال کرد؟؟

[mokaram]

میشه منتها بستگی به نیت شما داره
هدفتون بگید واینکه می خواید چیکار کنید

[khakzad]

سلام
اگرمنظورتون اجرای کدها بدون اجازه کاربر هست خیر نمیشه (به دلایل امنیتی)
برای همین حداقل enable فایل رو باید فعال کنید

اما اگر منظورتون اجرای کد ها بصورت خودکار، بعد از enable کردن هست، چرا میشه

[naser1357]

سلام
استاد گرامی
من یک ماکرو برای این فایل نوشتم اما برای اجراش حتما باید run را زد حال انکه من میخام بمحض تغییر عدد سل مربوطه این کد اتومات اجرا شود
فایل پیوست می باشد

[abootorab]

سلام
استاد گرامی
من یک ماکرو برای این فایل نوشتم اما برای اجراش حتما باید run را زد حال انکه من میخام بمحض تغییر عدد سل مربوطه این کد اتومات اجرا شود
فایل پیوست می باشد

با درود
روی شیت ko راست کلیک و سپس View Code رو بزنید سپس کد زیر که کد ماکرو خودتون هست و در رویداد تغییر قرار دادم درون صفحه vb کپی کنید.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then
        If Range("g1").Value = 1 Then
        Sheets("ts").Select
            Range("A3").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Sheets("ko").Select
            Range("A3").Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                xlNone, SkipBlanks:=False, Transpose:=False
        ElseIf Range("g1").Value = 2 Then
            Range("F5").Select
            Sheets("se").Select
            Range("L6").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Sheets("ko").Select
            Range("A3").Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                xlNone, SkipBlanks:=False, Transpose:=False
        End If
    End If
End Sub 

[naser1357]

با درود
روی شیت ko راست کلیک و سپس view code رو بزنید سپس کد زیر که کد ماکرو خودتون هست و در رویداد تغییر قرار دادم درون صفحه vb کپی کنید.

private sub worksheet_change(byval target as range)
    if target.address = "$g$1" then
        if range("g1").value = 1 then
        sheets("ts").select
            range("a3").select
            range(selection, selection.end(xldown)).select
            selection.copy
            sheets("ko").select
            range("a3").select
            selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _
                xlnone, skipblanks:=false, transpose:=false
        elseif range("g1").value = 2 then
            range("f5").select
            sheets("se").select
            range("l6").select
            range(selection, selection.end(xldown)).select
            selection.copy
            sheets("ko").select
            range("a3").select
            selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _
                xlnone, skipblanks:=false, transpose:=false
        end if
    end if
end sub 

بسیار بسیار ممنونم
چون از طریق ایجاد botton مشکل را هم جل کردم به نظرتان کدام مسیر بهتر است مسیر پیشنهادی شما و یا همان کد ماکرو که با فشردن منویی اجرا خواهد شد؟
قسمت مربوط به شیت دیگر را که توش توضیح دادم مشکل بیشتری دارم ممنون میشوم اون قسمت را هم حل نمایید

[abootorab]

بسیار بسیار ممنونم
چون از طریق ایجاد botton مشکل را هم جل کردم به نظرتان کدام مسیر بهتر است مسیر پیشنهادی شما و یا همان کد ماکرو که با فشردن منویی اجرا خواهد شد؟
قسمت مربوط به شیت دیگر را که توش توضیح دادم مشکل بیشتری دارم ممنون میشوم اون قسمت را هم حل نمایید

درود مجدد
اینکه با یک دکمه این کار انجام بشه و یا با تغییر سلول کاملا به نیاز و وضعیت برنامه شما داره و خودتون بسته به سلیقه و نیازتون میتونید انتخاب کنید.
در مورد توضیحی که در شیت دیگه داده بودین راستش زیاد متوجه نشد، اگه یه فایل با مثال آپ کنید بهتر میشه کمک کرد.

[naser1357]

درود مجدد
اینکه با یک دکمه این کار انجام بشه و یا با تغییر سلول کاملا به نیاز و وضعیت برنامه شما داره و خودتون بسته به سلیقه و نیازتون میتونید انتخاب کنید.
در مورد توضیحی که در شیت دیگه داده بودین راستش زیاد متوجه نشد، اگه یه فایل با مثال آپ کنید بهتر میشه کمک کرد.

استاد فایل اپلود و توضیح در همان شیت دادم
با سپاس مجدد