In dit artikel zullen we een macro maken om het Excel-blad te verbergen. Excel-blad wordt verborgen gemaakt door de eigenschappen ervan te wijzigen met behulp van VBA-code. Verborgen Excel-blad kan niet zichtbaar worden gemaakt door de knop zichtbaar maken in de Excel-toepassing te gebruiken.
In dit voorbeeld hebben we een poortregistratieformulier gemaakt.
Wanneer de gebruiker de details in het formulier invoert en op de verzendknop klikt, worden de details opgeslagen in het "Data" -blad. De knop "Verzenden" is toegewezen aan de macro "SubmittingDetail".
Het "Data"-blad kan verborgen of zichtbaar worden gemaakt door op de knop "Datablad" te klikken. Als het "Data" -blad is verborgen, kan het niet zichtbaar worden gemaakt door de optie zichtbaar maken te gebruiken die beschikbaar is in het Excel-blad.
Blad verborgen met behulp van de knop "Gegevensblad", blijft zichtbaar in projectverkenner in de VBE (Visual Basic Editor) en bladeigenschappen van verborgen blad is ingesteld op xlSheetVeryHidden.
Blad kan ook erg verborgen worden gemaakt zonder VBA-code te gebruiken. Daarvoor moeten we de VBE openen en de zichtbare eigenschap van blad in het eigenschappenvenster instellen op 2 - xlSheetVeryHidden.
Om een blad te verbergen, zodat niemand het zichtbaar kan maken zonder het wachtwoord voor het Vb-project te kennen, verbergt u het bestand eenvoudigweg door VBA-code te gebruiken of wijzigt u de zichtbare eigenschap van blad in 2, d.w.z. xlsheetveryhidden en vergrendelt u het Vb-project samen met het wachtwoord.
Om Vb Project met een wachtwoord te beschermen, klikt u met de rechtermuisknop op het Microsoft Excel-object > Selecteer VBAProject-eigenschappen… > Het dialoogvenster VBAProject-eigenschappen verschijnt.
Ga in het dialoogvenster VBAProject-eigenschappen naar het tabblad Beveiliging > vink het vakje aan om het project te vergrendelen > wijs het wachtwoord voor het project toe. Wachtwoord dat we toekennen voor het bijgevoegde bestand is "registreren". Men kan elk wachtwoord voor het project toewijzen.
De knop "Gegevensblad" wordt gebruikt voor het verbergen en zichtbaar maken van het blad. De knop "Datasheet" is toegewezen aan de macro "ToggleHidingDataSheet". Wanneer de gebruiker op de knop klikt en als het bestand verborgen is, wordt het blad zichtbaar gemaakt en als het blad zichtbaar is, wordt het blad verborgen.
Blad kan zichtbaar worden gemaakt door op de knop "Datablad" te klikken of door de eigenschap zichtbaar terug te zetten naar 0, d.w.z. xlSheetNormal met behulp van het wachtwoord voor het VBProject.
Volg hieronder voor de code:
Sub SubmittingDetail() Dim LastRow As Long 'De laatste rij vinden in het 'Data'-blad 'waar gegevens moeten worden ingevoegd LastRow = Sheets("Data").Range("A1").SpecialCells(xlLastCell).Row + 1 'Gegevens invoegen in 'Data'-blad met bladen ("Data") 'Serienummer toewijzen .Range("A" & LastRow) = LastRow - 1 'Gegevens invoegen in 'Data'-blad van bereik F15 tot J15 .Range("B " & LastRow & ":F" & LastRow) = Range("F15:J15").Value End With 'De celinhoud in het bereik verwijderen Range("F15:J15").Select Selection.ClearContents Range("F15" ).Selecteer End Sub Sub ToggleHidingDataSheet() 'Controleren of blad momenteel verborgen is If Sheets("Data").Visible = xlVeryHidden Then 'Code om het blad zichtbaar te maken Sheets("Data").Visible = True Else 'Code om te verbergen het blad Sheets ("Data"). Zichtbaar = xlVeryHidden End If End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite