Hoppa till huvudinnehåll

Hur tillåter extern datauppdatering i skyddat kalkylblad i Excel?

Du kan ha importerat data från andra applikationer till Excel med dess inbyggnadsfunktion - Hämta externa data och uppdaterat de importerade data enkelt med knappen Uppdatera allt. Efter att ha skyddat kalkylbladet är knappen Uppdatera alla inaktiverad och de importerade data kan inte uppdateras längre. Hur tillåter jag att extern data uppdateras i ett skyddat kalkylblad? Metoden i den här artikeln kan hjälpa dig.

Tillåt extern datauppdatering i ett skyddat kalkylblad med VBA-kod


Tillåt extern datauppdatering i ett skyddat kalkylblad med VBA-kod

Nedanstående VBA-kod kan hjälpa dig att uppdatera importerad extern data efter att du har skyddat kalkylbladet i Excel. Gör så här.

1. I det skyddade kalkylbladet trycker du på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera och klistra in nedanstående VBA-skript i modulfönstret. Se skärmdump:

VBA-kod: Tillåt uppdatering av extern data i ett skyddat kalkylblad

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

Anmärkningar: I VBA-koden är “123” lösenordet som vi angav för att skydda kalkylbladet. Ändra det baserat på dina behov.

3. Se till att markören finns i det första avsnittet om Sub DataRefresh-kod och tryck sedan på F5 för att köra koden. I pop-up importfil Välj den externa fil som du har importerat data från och klicka sedan på Importera knapp.

Efter att du återvänt till kalkylbladet kan du se att de externa uppgifterna uppdateras omedelbart.

Anmärkningar: Den här koden kan uppdatera externa data i ett skyddat kalkylblad som importeras från Access, Text samt Excel-fil.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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