Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es defineix la contrasenya per protegir el full amagat a l'Excel?

Si teniu un llibre que conté algunes fulles d'obra oculta importants i no permet que altres les mostrin. Ara, heu d'establir una contrasenya per protegir completament els fulls d'obra amagats, quan altres usuaris els hi mostren, han d'introduir la contrasenya. Teniu alguna manera de fer front a aquesta tasca de forma ràpida i senzilla a Excel?

Estableix la contrasenya per protegir els fulls ocults amb la funció VeryHidden

Estableix la contrasenya per protegir el full amagat amb el codi VBA

Protegeix múltiples fulls de treball alhora amb Kutools for Excel


Protegeix múltiples o totes les fulles de treball alhora:

amb Kutools for Excel'S Protegeix el full de treball i Desenrotlla el full de càlcul, podeu protegir o desprotegir totes les fitxes d'un llibre amb la mateixa contrasenya alhora.

doc-protection-multiple-sheets-9

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Baixada i prova gratuïta Ara!


Estableix la contrasenya per protegir els fulls ocults amb la funció VeryHidden


Normalment, podeu utilitzar la funció VeryHidden per ocultar les fulles de treball primer i, a continuació, establir una contrasenya per a ells, feu els passos següents:

1. Obriu el llibre i mantingueu-lo premut Alt + F11claus per obrir el Finestra de Microsoft Visual Basic per a aplicacions.

2. Al Finestra de Microsoft Visual Basic per a aplicacions, Feu clic a Veure comanda > Explorador de projectes i Finestra de propietats to mostrar els seus panells.

doc-protected-hidden-sheets-01

3. I després a la Projecte-VBAProject panell, trieu el full de treball que voleu amagar i al Propietats , feu clic a la llista desplegable de la finestra visible secció per seleccionar xlSheetVeryHidden opció, veure captura de pantalla:

doc-protected-hidden-sheets-02

4. Després de fer que el full de treball sigui molt gran, podeu establir una contrasenya per protegir-la. A la Finestra de Microsoft Visual Basic per a aplicacions, Feu clic a Insereix > Mòduls per obrir un mòdul buit i, a continuació, feu clic a instruments > Propietats de VBAProject, veure captura de pantalla:

doc-protected-hidden-sheets-03

5. Després va sortir Propietats del projecte VBAProject quadre de diàleg, feu clic a protecció fitxa i, a continuació, comproveu Bloqueja projecte per visualitzar box, finalment, introduïu i confirmeu la contrasenya al fitxer Contrasenya per veure les propietats del projecte secció, veure captura de pantalla:

doc-protected-hidden-sheets-04

6. A continuació, feu clic a OK botó per sortir d'aquest diàleg i tanqueu-lo Finestra de Microsoft Visual Basic per a aplicacions.

7. Desa el llibre com a Llibre de treball Macro habilitat per a Excel format i tanqueu-lo per fer que la protecció de la contrasenya tingui efecte.

doc-protected-hidden-sheets-05

8. La propera vegada, quan obriu aquest llibre, i vulgueu que les fulls de fulls siguin visibles, se us demanarà que introduïu una contrasenya. Mostra la captura de pantalla:

doc-protected-hidden-sheets-06


Demostració: estableixi la contrasenya per protegir els fulls ocults


Estableix la contrasenya per protegir el full amagat amb el codi VBA

Per establir una contrasenya per protegir els fulls ocults, també puc parlar sobre un codi VBA.

1. Amaga un full de treball que vulgueu protegir.

2. Mantingueu premut el botó ALT + F11 claus per obrir el Finestra de Microsoft Visual Basic per a aplicacions.

3. A continuació, trieu ThisWorkbook des de l'esquerra Explorador de projectes, feu doble clic per obrir la finestra Mòduls, i després copieu i enganxeu el codi VBA següent al Mòdul en blanc:

Codi VBA: estableixi la contrasenya per protegir el full oculta

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-protected-hidden-sheets-07

Nota: En el codi anterior, Sheet1 dels xSheetName = "Sheet1" L'script és el nom del full d'obra oculta que voleu protegir i 123456 al Si respon = "123456", llavors L'script és la contrasenya que heu definit per al full oculta. Pots canviar-los a la teva necessitat.

4. Ara, quan vulgueu mostrar el full ocults, apareixerà una casella d'indicadors que us permetrà introduir la contrasenya. I aquesta casella de visualització apareixerà cada vegada, quan feu clic per mostrar el full oculta.

doc-protected-hidden-sheets-08


Protegeix múltiples fulls de treball alhora amb Kutools for Excel

Si voleu protegir diverses fulles de treball seleccionades o totes d'un llibre a la vegada, normalment, heu de protegir manualment un a un en Excel. Però, si ho tens Kutools for Excel, Amb la seva Protegeix el full de treball Utilitat, podeu protegir-los amb un sol clic.

Kutools for Excel : amb més complements útils de 300 d'Excel, lliures per intentar sense limitacions en 60 dies.

Després d'instal·lar Kutools for Excel, feu el següent:

1. Clic empresa > Protegeix el full de treball, veure captura de pantalla:

doc-protected-hidden-sheets-09

2. Al Protegeix el full de treball quadre de diàleg, totes les fitxes del llibre es llisten al quadre de llista, seleccioneu les fitxes que vulgueu protegir. Mostra la captura de pantalla:

doc-protected-hidden-sheets-010

3. A continuació, feu clic a OK, en el quadre de diàleg següent, introduïu la vostra contrasenya i torneu a escriure-la, feu clic a OK, apareixerà una altra casella ràpida per recordar quantes fulles de treball s'han protegit.

doc-protected-hidden-sheets-011

4. A continuació, feu clic a OK per tancar els diàlegs i totes les fitxes del llibre s'han protegit amb la mateixa contrasenya.

Nota: Si voleu desprotegir totes les fitxes d'una sola vegada, només heu de fer clic empresa > Desenrotlla el full de càlcul, i escriviu la vostra contrasenya per cancel·lar la protecció.

doc-protected-hidden-sheets-012

Baixeu i prova gratuïtament a Kutools per Excel Now!


Articles relacionats:

Com protegir diverses fulles de treball alhora a Excel?

Com configurar una contrasenya per protegir el llibre?

Com protegir / bloquejar el codi VBA d'Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Darren · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      Severin · 1 years ago
      Found a solution yet?

      I am having the same problem
      • To post as a guest, your comment is unpublished.
        Richard · 1 years ago
        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
        • To post as a guest, your comment is unpublished.
          Tomas · 9 months ago
          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?
      • To post as a guest, your comment is unpublished.
        Rexamillian · 1 years ago
        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