Hoppa till huvudinnehåll

Hur ställer jag in lösenord för att skydda doldt ark i Excel?

Om du har en arbetsbok som innehåller några viktiga dolda kalkylblad och inte tillåter andra att visa dem. Nu måste du ställa in ett lösenord för att skydda de dolda kalkylarken helt, när andra användare visar dem måste de ange lösenordet. Har du några sätt att hantera den här uppgiften snabbt och enkelt i Excel?

Ställ in lösenord för att skydda dolda ark med VeryHidden-funktionen

Ställ in lösenord för att skydda doldt ark med VBA-kod

Skydda flera kalkylblad samtidigt med Kutools för Excel


Ställ in lösenord för att skydda dolda ark med VeryHidden-funktionen

Normalt kan du använda VeryHidden-funktionen för att först dölja kalkylbladet och sedan ställa in ett lösenord för dem, gör så här:

1. Öppna din arbetsbok och håll kvar Alt + F11nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. I Microsoft Visual Basic for Applications-fönstret, Klicka utsikt > Project Explorer och Egenskaper Fönster to visa sina rutor.

doc-skydda-dold-ark-01

3. Och sedan i Projekt-VBAProjekt välj kalkylbladet som du vill dölja och i Våra Bostäder Klicka på rullgardinsmenyn från Synlig avsnitt för att välja xlSheetMycketHidden alternativ, se skärmdump:

doc-skydda-dold-ark-02

4. När du har gjort kalkylbladet mycket gömt kan du ställa in ett lösenord för att skydda det. I Microsoft Visual Basic for Applications-fönstret, Klicka Insert > Modulerna för att öppna en tom modul och klicka sedan på verktyg > VBAProjektegenskaper, se skärmdump:

doc-skydda-dold-ark-03

5. Sedan i poppade ut VBAProject-Project Egenskaper dialogrutan, klicka Skydd fliken och kontrollera sedan Lås projekt för visning rutan, slutligen, ange och bekräfta lösenordet i Lösenord för att visa projektegenskaper avsnitt, se skärmdump:

doc-skydda-dold-ark-04

6. Klicka sedan OK för att avsluta denna dialog och stäng Microsoft Visual Basic for Applications-fönstret.

7. Spara arbetsboken som Excel Macro-Enabled Workbook format och stäng det så att lösenordsskyddet träder i kraft.

doc-skydda-dold-ark-05

8. Nästa gång, när du öppnar den här arbetsboken och vill göra de mycket dolda arken synliga, ombeds du att ange ett lösenord. Se skärmdump:

doc-skydda-dold-ark-06


Demo: Ställ in lösenord för att skydda dolda ark


Ställ in lösenord för att skydda doldt ark med VBA-kod

För att ställa in ett lösenord för att skydda dolda ark kan jag också prata om en VBA-kod åt dig.

1. Dölj ett kalkylblad som du vill skydda.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

3. Sedan Välj Denna arbetsbok från vänster Project Explorerdubbelklicka på den för att öppna Modulerna, och kopiera och klistra sedan in följande VBA-kod i den tomma modulen:

VBA-kod: Ställ in lösenord för att skydda doldt ark

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-skydda-dold-ark-07

Anmärkningar: I ovanstående kod, Sheet1 av xSheetName = "Sheet1" skript är det dolda kalkylbladets namn som du vill skydda, och 123456 i If response = "123456" Då script är lösenordet som du ställer in för det dolda arket. Du kan ändra dem efter dina behov.

4. Nu, när du vill visa det dolda arket, kommer en snabbruta att dyka upp för att låta dig ange lösenordet. Och den här rutan visas varje gång när du klickar för att visa det dolda arket.

doc-skydda-dold-ark-08


Skydda flera kalkylblad samtidigt med Kutools för Excel

Om du vill skydda flera valda eller alla kalkylblad i en arbetsbok samtidigt, måste du normalt skydda en efter en manuellt i Excel. Men om du har Kutools för Excel, med dess Skydda kalkylbladet verktyget kan du skydda dem med ett klick.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools Plus > Skydda kalkylbladet, se skärmdump:

2. I Skydda kalkylbladet dialogrutan listas alla kalkylblad i arbetsboken i listrutan, välj de kalkylblad som du vill skydda. Se skärmdump:

doc-skydda-dold-ark-010

3. Och klicka sedan på OK, i följande dialogruta, ange ditt lösenord och skriv in det igen och klicka sedan på OK, kommer en annan snabbruta att dyka upp för att påminna dig om hur många kalkylblad som har skyddats.

doc-skydda-dold-ark-011

4. Klicka sedan OK för att stänga dialogerna och alla arbetsblad i arbetsboken har skyddats med samma lösenord.

Notera: Om du vill avskydda alla kalkylblad på en gång behöver du bara klicka Kutools Plus > Avskydda kalkylbladet, och skriv ditt lösenord för att avbryta skyddet.

 Ladda ner och testa gratis Kutools för Excel nu!


Relaterade artiklar:

Hur skyddar jag flera kalkylblad samtidigt i Excel?

Hur ställer jag in ett lösenord för att skydda arbetsboken?

Hur skyddar / låser man VBA-kod i Excel?

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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