In questo articolo, creeremo una macro per nascondere il foglio Excel. Il foglio Excel viene reso nascosto modificando le sue proprietà utilizzando il codice VBA. Il foglio Excel nascosto non può essere reso visibile utilizzando il pulsante Scopri nell'applicazione Excel.
In questo esempio, abbiamo creato un modulo di registrazione del cancello.
Quando l'utente inserisce i dettagli nel modulo e fa clic sul pulsante di invio, i dettagli vengono salvati nel foglio "Dati". Al pulsante "Invia" è assegnata la macro "Invio dettagli".
La scheda "Dati" può essere nascosta o mostrata facendo clic sul pulsante "Scheda tecnica". Se il foglio "Dati" è nascosto, non può essere reso visibile utilizzando l'opzione mostra disponibile all'interno del foglio Excel.
Il foglio nascosto utilizzando il pulsante "Foglio dati", rimane visibile in Esplora progetti nel VBE (Visual Basic Editor) e le proprietà del foglio del foglio nascosto sono impostate su xlSheetVeryHidden.
Il foglio può anche essere reso molto nascosto senza utilizzare il codice VBA. Per questo, dobbiamo aprire il VBE e impostare la proprietà visibile del foglio nella finestra delle proprietà su 2 - xlSheetVeryHidden.
Per nascondere un foglio, in modo che nessuno possa scoprirlo senza conoscere la password per il progetto Vb, nascondi semplicemente il file utilizzando il codice VBA o modifica la proprietà visibile del foglio in 2, ovvero xlsheetveryhidden e blocca il progetto Vb insieme alla password.
Per proteggere il progetto Vb con password, fare clic con il pulsante destro del mouse sull'oggetto Microsoft Excel > Seleziona proprietà VBAProject… > Verrà visualizzata la finestra di dialogo Proprietà VBAProject.
Nella finestra di dialogo Proprietà progetto VBA, vai alla scheda Protezione > seleziona la casella per bloccare il progetto > assegna la password per il progetto. La password che assegniamo per il file allegato è “registrati”. Si può assegnare qualsiasi password per il progetto.
Il pulsante "Foglio dati" viene utilizzato sia per nascondere che per mostrare il foglio. Al pulsante "Foglio dati" è assegnata la macro "ToggleHidingDataSheet". Quando l'utente farà clic sul pulsante e se il file è nascosto, il foglio viene reso visibile e se il foglio è visibile, il foglio è nascosto.
Il foglio può essere reso visibile facendo clic sul pulsante "Foglio dati" o modificando la proprietà visibile su 0, ovvero xlSheetNormal utilizzando la password per VBProject.
Si prega di seguire sotto per il codice
SubsubmitingDetail() Dim LastRow As Long 'Trovare l'ultima riga nel foglio "Dati" 'dove i dati devono essere inseriti LastRow = Sheets("Data").Range("A1").SpecialCells(xlLastCell).Row + 1 'Inserimento dati nel foglio "Dati" With Sheets("Dati") 'Assegnazione numero seriale .Range("A" & LastRow) = LastRow - 1 'Inserimento dati nel foglio "Dati" dall'intervallo F15 a J15 .Range("B " & LastRow & ":F" & LastRow) = Range("F15:J15").Value End With 'Eliminazione del contenuto della cella nell'intervallo Range("F15:J15").Select Selection.ClearContents Range("F15" ).Select End Sub ToggleHidingDataSheet() 'Verifica se il foglio è attualmente nascosto If Sheets("Data").Visible = xlVeryHidden Then 'Codice per rendere visibile il foglio Sheets("Data").Visible = True Else 'Codice per nascondere il foglio Fogli("Dati").Visible = xlVeryHidden End If End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica