Hoe externe gegevensverversing in een beveiligd werkblad in Excel toestaan?
Mogelijk hebt u gegevens uit andere applicaties naar Excel geïmporteerd met behulp van de ingebouwde functie - Externe Gegevens Ophalen, en de geïmporteerde gegevens eenvoudig bijgewerkt met de knop Alles Vernieuwen. Echter, nadat u het werkblad hebt beveiligd, wordt de knop Alles Vernieuwen uitgeschakeld en kunnen de geïmporteerde gegevens niet meer worden bijgewerkt. Hoe kunt u externe gegevensverversing in een beveiligd werkblad toestaan? De methode in dit artikel kan u helpen.
Externe gegevensverversing in een beveiligd werkblad toestaan met VBA-code
Externe gegevensverversing in een beveiligd werkblad toestaan met VBA-code
De onderstaande VBA-code kan u helpen om geïmporteerde externe gegevens te vernieuwen na het beveiligen van het werkblad in Excel. Volg de volgende stappen.
1. Druk in het beveiligde werkblad tegelijkertijd op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module, kopieer en plak vervolgens de onderstaande VBA-script in het Module-venster. Zie screenshot:
VBA-code: Externe gegevensverversing in een beveiligd werkblad toestaan
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
Opmerking: In de VBA-code is “123” het wachtwoord dat we hebben ingesteld om het werkblad te beveiligen. Pas dit aan op basis van uw behoeften.
3. Zorg ervoor dat uw cursor zich in de eerste Sub DataRefresh code sectie bevindt, en druk vervolgens op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster Import Bestand het externe bestand waaruit u gegevens heeft geïmporteerd, en klik vervolgens op de Importeren knop.
Nadat u terugkeert naar het werkblad, ziet u dat de externe gegevens onmiddellijk zijn bijgewerkt.
Opmerking: Deze code kan externe gegevens in een beveiligd werkblad vernieuwen die zijn geïmporteerd uit Access, Tekst en ook Excel-bestanden.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Gerelateerde artikelen:
- Hoe objecten bewerken toe te staan in een beveiligd werkblad in Excel?
- Hoe samengevoegde cellen toe te staan binnen een beveiligd werkblad in Excel?
- Hoe spellingscontrole toe te staan in een beveiligd werkblad in Excel?
- Hoe celopmaak te beveiligen maar alleen gegevensinvoer toestaan in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen