Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս թույլատրել արտաքին տվյալների թարմացումը Excel- ում պաշտպանված աշխատանքային թերթում:

Հնարավոր է ՝ դուք այլ ծրագրերից տվյալներ եք ներմուծել Excel ՝ իր ներկառուցված գործառույթով ՝ «Ստացեք արտաքին տվյալներ», և ներմուծված տվյալները հեշտությամբ թարմացրեք «Թարմացնել բոլորը» կոճակի միջոցով: Այնուամենայնիվ, աշխատանքային թերթը պաշտպանելուց հետո Refresh All կոճակն անջատված է, և ներմուծված տվյալներն այլևս հնարավոր չէ թարմացնել: Ինչպե՞ս թույլատրել արտաքին տվյալների թարմացումը պաշտպանված աշխատանքային թերթում: Այս հոդվածի մեթոդը կարող է օգնել ձեզ:

Թույլատրել արտաքին տվյալների թարմացումը պաշտպանված աշխատաթերթում `VBA կոդով


Թույլատրել արտաքին տվյալների թարմացումը պաշտպանված աշխատաթերթում `VBA կոդով

Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ թարմացնել ներմուծված արտաքին տվյալները Excel- ում աշխատաթերթը պաշտպանելուց հետո: Խնդրում եմ արեք հետևյալ կերպ.

1. Պաշտպանված աշխատանքային թերթում սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք և տեղադրեք ներքևի VBA գրությունը Մոդուլի պատուհանում: Տեսեք,

VBA կոդ. Թույլատրել արտաքին տվյալների թարմացումը պաշտպանված աշխատանքային թերթում

Sub DataRefresh()
'Update by Extendoffice 5/28/2019
    ActiveSheet.Unprotect "123"
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2 ()
    If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
        Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
    Else
        ActiveSheet.Protect "123"
    End If
End Sub

ՆշումVBA կոդում «123» -ը գաղտնաբառն է, որը մենք նշել ենք աշխատանքային թերթը պաշտպանելու համար: Խնդրում ենք փոխել այն ՝ ելնելով ձեր կարիքներից:

3. Համոզվեք, որ ձեր կուրսորը գտնվում է առաջին Sub DataRefresh կոդի առաջին բաժնում, ապա սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Ներմուծել ֆայլը երկխոսության տուփ, խնդրում ենք ընտրել արտաքին ֆայլը, որտեղից դուք տվյալներ եք ներմուծել, և այնուհետև կտտացրեք այն Ներմուծում կոճակը:

Աշխատանքային թերթիկ վերադառնալուց հետո դուք կարող եք տեսնել, որ արտաքին տվյալներն անմիջապես թարմացվում են:

ՆշումԱյս ծածկագիրը կարող է թարմացնել արտաքին տվյալները պաշտպանված աշխատաթերթում, որոնք ներմուծվել են Access, Text և Excel ֆայլերից:


Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
sorry, incorrect - read comments at stackoverflow first!
This comment was minimized by the moderator on the site
a more simple way is described here: https://stackoverflow.com/a/22088630/1349511

ThisWorkbook.RefreshAll
DoEvents
' code will not continue before Refresh finished
This comment was minimized by the moderator on the site
Dzięki bardzo pomocne makro. Pozdrawiam
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations