In diesem Artikel erstellen wir ein Makro zum Ausblenden der Excel-Tabelle. Das Excel-Blatt wird ausgeblendet, indem seine Eigenschaften mit VBA-Code geändert werden. Ausgeblendetes Excel-Blatt kann nicht sichtbar gemacht werden, indem die Schaltfläche zum Einblenden in der Excel-Anwendung verwendet wird.
In diesem Beispiel haben wir ein Gate-Registrierungsformular erstellt.
Wenn der Benutzer die Details in das Formular eingibt und auf die Schaltfläche "Senden" klickt, werden die Details im Datenblatt gespeichert. Der Schaltfläche „Senden“ ist das Makro „SubmittingDetail“ zugewiesen.
Das „Datenblatt“ kann durch Klicken auf die Schaltfläche „Datenblatt“ ein- oder ausgeblendet werden. Wenn das "Daten"-Blatt ausgeblendet ist, kann es nicht mit der im Excel-Blatt verfügbaren Option zum Einblenden sichtbar gemacht werden.
Über die Schaltfläche "Datenblatt" ausgeblendetes Blatt, bleibt im Projekt-Explorer im VBE (Visual Basic Editor) sichtbar und die Blatteigenschaften des ausgeblendeten Blatts sind auf xlSheetVeryHidden eingestellt.
Sheet kann auch sehr versteckt werden, ohne VBA-Code zu verwenden. Dazu müssen wir die VBE öffnen und die sichtbare Eigenschaft des Blatts im Eigenschaftenfenster auf 2 - xlSheetVeryHidden setzen.
Um ein Blatt auszublenden, damit niemand es einblenden kann, ohne das Passwort für das Vb-Projekt zu kennen, verstecken Sie die Datei einfach entweder mit VBA-Code oder ändern Sie die sichtbare Eigenschaft von Blatt auf 2, d.h. xlsheetveryhidden, und sperren Sie das Vb-Projekt zusammen mit dem Passwort.
Um Vb Project mit einem Passwort zu schützen, klicken Sie mit der rechten Maustaste auf das Microsoft Excel-Objekt > VBAProject-Eigenschaften auswählen… > Das Dialogfeld VBAProject-Eigenschaften wird angezeigt.
Wechseln Sie im Dialogfeld VBAProject-Eigenschaften zur Registerkarte Schutz > aktivieren Sie das Kontrollkästchen zum Sperren des Projekts > weisen Sie das Kennwort für das Projekt zu. Das Passwort, das wir für die angehängte Datei vergeben, ist „register“. Für das Projekt kann ein beliebiges Passwort vergeben werden.
Die Schaltfläche „Datenblatt“ wird zum Aus- und Einblenden des Blatts verwendet. Der Schaltfläche „Datenblatt“ ist das Makro „ToggleHidingDataSheet“ zugewiesen. Wenn der Benutzer auf die Schaltfläche klickt und die Datei ausgeblendet ist, wird das Blatt sichtbar gemacht, und wenn das Blatt sichtbar ist, wird das Blatt ausgeblendet.
Das Blatt kann entweder durch Klicken auf die Schaltfläche "Datenblatt" sichtbar gemacht werden oder indem die sichtbare Eigenschaft wieder auf 0 geändert wird, d. h. xlSheetNormal mit dem Passwort für das VBProject.
Bitte folgen Sie unten für den Code
Sub SubmittingDetail() Dim LastRow As Long 'Suchen der letzten Zeile im "Data"-Blatt 'wo Daten eingefügt werden müssen LastRow = Sheets("Data").Range("A1").SpecialCells(xlLastCell).Row + 1 'Daten in Blatt "Daten" einfügen With Sheets("Daten") 'Seriennummer zuweisen .Range("A" & LastRow) = LastRow - 1 'Daten in Blatt "Daten" vom Bereich F15 bis J15 einfügen .Range("B " & LastRow & ":F" & LastRow) = Range("F15:J15").Value End With 'Löschen des Zellinhalts im Bereich Range("F15:J15").Select Selection.ClearContents Range("F15" ).Select End Sub Sub ToggleHidingDataSheet() 'Überprüfen, ob das Blatt derzeit ausgeblendet ist If Sheets("Data").Visible = xlVeryHidden Then 'Code zum Sichtbarmachen des Blatts Sheets("Data").Visible = True Else 'Code zum Ausblenden das Blatt Sheets("Data").Visible = xlVeryHidden End If End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site