Normally Excel, kan du bruke VeryHidden funksjon for å skjule regnearkene først, og deretter sette et passord for dem, kan du gjøre som følgende fremgangsmåte:
1. Åpne arbeidsboken, og hold Alt + F11keys å åpne Microsoft Visual Basic for Applications vinduet.
2. I Microsoft Visual Basic for Applications-vinduet, klikker du på Vis > Prosjekt Explorer og Properties-vinduet til å vise sine ruter.
Tre. Og så i Prosjekt-VBAProject panelet velger regnearket du ønsker å skjule, og i Properties panelet, klikker du på rullegardinlisten fra Visible delen for å velge xlSheetVeryHidden alternativ, se skjermbilde:
4. Når du har gjort regnearket veryhidden, kan du sette et passord for å beskytte den. I Microsoft Visual Basic for Applications-vinduet, klikker du Sett > Modulen for å åpne en tom modul, og klikk deretter Verktøy > VBAProject Properties, se skjermbilde:
5. Så i det spratt ut VBAProject-Project Properties dialogboksen, klikker kategorien Protection og deretter sjekke Lås prosjekt for visning boks, endelig, gå inn og bekreft passordet i Passord for å vise prosjektegenskaper delen, se skjermbilde:
6. Klikk deretter på OK-knappen for å gå ut av denne dialogen, og lukk Microsoft Visual Basic for Applications vinduet.
7. Lagre arbeidsbok som Excel Macro-Enabled arbeidsbok format og lukke den for å gjøre den passordbeskyttelse trer i kraft. Neste gang, når du åpner denne arbeidsboken, og ønsker å gjøre veryhidden ark være synlig, blir du bedt om å skrive inn et passord.
Angi passord for å beskytte skjulte ark med VBA-kode
Slik angir et passord for å beskytte de skjulte ark, kan jeg også snakke om en VBA koden for deg.
1. Skjule ett regneark som du ønsker å beskytte.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Deretter velger Thisworkbook fra venstre Prosjekt Utforsker dobbeltklikk for å åpne modulen, og deretter kopiere og lime inn følgende VBA-kode i det tomme Module:
VBA-kode: Angi passord for å beskytte skjulte ark
Private Sub Workbook_SheetActivate (ByVal sh As Object) 'Oppdater 20140925Dim xSheetName Som StringxSheetName = "Ark1" Hvis Application.ActiveSheet.Name = xSheetName Så Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" svar = Application.InputBox ("passord", xTitleId, "", Type: = 2) Hvis respons = "123456" Så Application.Sheets (xSheetName) .Visible = true Application.Sheets (xSheetName) .Velg End IfEnd IfApplication.Sheets (xSheetName) .Visible = TrueApplication.EnableEvents = TrueEnd Sub
Merk: I koden ovenfor, Ark1 av xSheetName = "Ark1" script er den skjulte regnearket navn som du ønsker å beskytte, og 123 456 i Hvis svaret = "123456" Da manuset er passordet som du angir for den skjulte ark. Du kan endre dem til dine behov.
4. Nå, når du ønsker å vise den skjulte ark, vil en rask boks sprette ut for å la deg angi passordet. Og denne meldingen boks vises hver gang, når du klikker for å vise den skjulte ark.
Beskytt flere regneark samtidig med Kutools for Excel
Hvis du ønsker å beskytte flere valgte eller alle regnearkene av en arbeidsbok på en gang, som normalt, må du beskytte en etter en manuelt i Excel. Men, hvis du har Kutools for Excel, med sin Protect regneark verktøyet, du kan beskytte dem med ett klikk
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Klikk Enterprise > Beskytt regneark, se skjermbilde:
to. I Protect dialog Regneark boksen, blir alle regnearkene i arbeidsboken oppført i listeboksen, velger regnearkene som du ønsker å beskytte. Se skjermbilde:
tre. Og klikk deretter på OK i denne dialogboksen, må oppgi passord og gjentar det igjen, og klikk OK, en annen rask boks vil komme ut for å minne deg på hvor mange regneark har blitt beskyttet.
4. Klikk deretter på OK for å lukke dialogene, og alle regnearkene i arbeidsboken har blitt beskyttet med samme passord
Merk:
Hvis du ønsker å oppheve alle regnearkene på en gang, du trenger bare å klikke Enterprise >. Opphev regneark, og skriv inn passordet ditt for å oppheve beskyttelsen.
Gratis Last ned Kutools for Excel Nå
Hvis du ønsker å beskytte flere valgte eller alle regnearkene av en arbeidsbok på en gang, som normalt, må du beskytte en etter en manuelt i Excel. Men, hvis du har Kutools for Excel, med sin Protect regneark verktøyet, du kan beskytte dem med ett klikk
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Klikk Enterprise > Beskytt regneark, se skjermbilde:
to. I Protect dialog Regneark boksen, blir alle regnearkene i arbeidsboken oppført i listeboksen, velger regnearkene som du ønsker å beskytte. Se skjermbilde:
tre. Og klikk deretter på OK i denne dialogboksen, må oppgi passord og gjentar det igjen, og klikk OK, en annen rask boks vil komme ut for å minne deg på hvor mange regneark har blitt beskyttet.
4. Klikk deretter på OK for å lukke dialogene, og alle regnearkene i arbeidsboken har blitt beskyttet med samme passord
Merk:
Hvis du ønsker å oppheve alle regnearkene på en gang, du trenger bare å klikke Enterprise >. Opphev regneark, og skriv inn passordet ditt for å oppheve beskyttelsen.
Gratis Last ned Kutools for Excel Nå