Vai al contenuto principale

Come impostare la password per proteggere il foglio nascosto in Excel?

Se hai una cartella di lavoro che contiene alcuni importanti fogli di lavoro nascosti e non permetti ad altri di scoprirli. Ora, è necessario impostare una password per proteggere completamente i fogli di lavoro nascosti, quando altri utenti li scoprono, devono inserire la password. Hai dei modi per gestire questa attività rapidamente e facilmente in Excel?

Imposta la password per proteggere i fogli nascosti con la funzione VeryHidden

Imposta la password per proteggere il foglio nascosto con il codice VBA

Proteggi più fogli di lavoro contemporaneamente con Kutools per Excel


Imposta la password per proteggere i fogli nascosti con la funzione VeryHidden

Normalmente, puoi usare la funzione VeryHidden per nascondere prima i fogli di lavoro, quindi impostare una password per loro, per favore fai come segue:

1. Apri la tua cartella di lavoro e tieni premuto Alt + F11chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

2. Nel Finestra di Microsoft Visual Basic, Applications Edition, fare clic su Visualizza > Esplora progetti ed Finestra Proprietà to visualizzare i loro riquadri.

doc-protezione-fogli-nascosti-01

3. E poi in Progetto-VBAProgetto scegliere il foglio di lavoro che si desidera nascondere e nel file Properties fare clic sull'elenco a discesa dal riquadro Visibile sezione da selezionare xlFoglioVeryHidden opzione, vedi screenshot:

doc-protezione-fogli-nascosti-02

4. Dopo aver reso il foglio di lavoro molto nascosto, è possibile impostare una password per proteggerlo. Nel Finestra di Microsoft Visual Basic, Applications Edition, fare clic su inserire > Moduli per aprire un modulo vuoto, quindi fare clic su Strumenti > Proprietà VBAProject, vedi screenshot:

doc-protezione-fogli-nascosti-03

5. Poi nel saltò fuori Proprietà VBAProject-Project finestra di dialogo, fare clic Marchio scheda, quindi controllare Blocca progetto per la visualizzazione Infine, inserisci e conferma la password nel file Password per visualizzare le proprietà del progetto sezione, vedi screenshot:

doc-protezione-fogli-nascosti-04

6. Quindi fare clic OK per uscire da questa finestra di dialogo e chiudere il file Finestra di Microsoft Visual Basic, Applications Edition.

7. Salva la cartella di lavoro come Cartella di lavoro abilitata per Excel formattarlo e chiuderlo per rendere effettiva la protezione con password.

doc-protezione-fogli-nascosti-05

8. La prossima volta, quando apri questa cartella di lavoro e desideri rendere visibili i fogli nascosti, ti verrà chiesto di inserire una password. Vedi screenshot:

doc-protezione-fogli-nascosti-06


Demo: imposta la password per proteggere i fogli nascosti


Imposta la password per proteggere il foglio nascosto con il codice VBA

Per impostare una password per proteggere i fogli nascosti, posso anche parlare di un codice VBA per te.

1. Nascondi un foglio di lavoro che desideri proteggere.

2. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

3. Quindi scegli Questa cartella di lavoro da sinistra Esplora progetti, fare doppio clic per aprire il file Moduli, quindi copia e incolla il seguente codice VBA nel modulo vuoto:

Codice VBA: imposta la password per proteggere il foglio nascosto

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-protezione-fogli-nascosti-07

Note:: Nel codice sopra, Sheet1 della xSheetName = "Sheet1" script è il nome del foglio di lavoro nascosto che si desidera proteggere e 123456 nel If response = "123456" Allora script è la password che imposti per il foglio nascosto. Puoi cambiarli secondo le tue necessità.

4. Ora, quando vuoi mostrare il foglio nascosto, verrà visualizzata una finestra di messaggio per consentirti di inserire la password. E questa finestra di messaggio apparirà ogni volta, quando fai clic per mostrare il foglio nascosto.

doc-protezione-fogli-nascosti-08


Proteggi più fogli di lavoro contemporaneamente con Kutools per Excel

Se si desidera proteggere più fogli di lavoro selezionati o tutti contemporaneamente di una cartella di lavoro, normalmente, è necessario proteggerli uno per uno manualmente in Excel. Ma se lo hai Kutools for Excel, Con la sua Proteggi foglio di lavoro utility, puoi proteggerli con un clic.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Clic Kutools Plus > Proteggi foglio di lavoro, vedi screenshot:

2. Nel Proteggi foglio di lavoro finestra di dialogo, tutti i fogli di lavoro all'interno della cartella di lavoro sono elencati nella casella di riepilogo, scegliere i fogli di lavoro che si desidera proteggere. Vedi screenshot:

doc-protezione-fogli-nascosti-010

3. E poi clicca OK, nella seguente finestra di dialogo, inserire la password e digitarla di nuovo, quindi fare clic su OK, verrà visualizzata un'altra finestra di messaggio per ricordarti quanti fogli di lavoro sono stati protetti.

doc-protezione-fogli-nascosti-011

4. Quindi fare clic OK per chiudere le finestre di dialogo e tutti i fogli di lavoro nella cartella di lavoro sono stati protetti con la stessa password.

Nota: Se vuoi rimuovere la protezione di tutti i fogli di lavoro contemporaneamente, devi solo fare clic Kutools Plus > Rimuovi la protezione del foglio di lavoroe digita la tua password per annullare la protezione.

 Scarica e prova gratuitamente Kutools per Excel ora!


Articoli correlati:

Come proteggere più fogli di lavoro contemporaneamente in Excel?

Come impostare una password per proteggere la cartella di lavoro?

Come proteggere / bloccare il codice VBA in Excel?

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations