Ինչպե՞ս տեղադրել գաղտնաբառ Excel- ում թաքնված թերթը պաշտպանելու համար:

Եթե ունեք աշխատանքային գրքույկ, որը պարունակում է կարևոր թաքնված աշխատանքային թերթեր, և թույլ մի տվեք, որ մյուսները դրանք թաքցնեն: Այժմ թաքնված աշխատանքային թերթերն ամբողջությամբ պաշտպանելու համար անհրաժեշտ է գաղտնաբառ սահմանել, երբ այլ օգտվողներ դրանք թաքցնեն, նրանք պետք է մուտքագրեն գաղտնաբառը: Excel- ում այս գործը արագ և հեշտությամբ լուծելու որևէ եղանակ ունեք:

Սահմանեք գաղտնաբառ ՝ VeryHidden գործառույթով թաքնված թերթերը պաշտպանելու համար

Սահմանեք գաղտնաբառ ՝ VBA կոդով թաքնված թերթը պաշտպանելու համար

Միանգամից պաշտպանեք բազմաթիվ աշխատաթերթեր Excel- ի համար Kutools- ի միջոցով

Սահմանեք գաղտնաբառ ՝ VeryHidden գործառույթով թաքնված թերթերը պաշտպանելու համար

Սովորաբար, դուք կարող եք օգտագործել VeryHidden գործառույթը ՝ նախ աշխատաթերթերը թաքցնելու համար, իսկ հետո գաղտնաբառ սահմանելու համար, կատարեք հետևյալ քայլերը.

1, Բացեք ձեր աշխատանքային գիրքը և պահեք այն Alt + F11բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանՀամար Դիտել > Project Explorer և Հատկություններ Պատուհան to ցուցադրել նրանց սալերը:

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -01

3. Եվ հետո ՝ Projectրագիր-VBAP նախագիծ պատուհանը, ընտրեք այն աշխատանքային թերթը, որը ցանկանում եք թաքցնել, և այն Հատկություններ պատուհանից, կտտացրեք բացվող ցուցակին ՝ Տեսանելի բաժին ընտրելու համար xlSheet Շատ Թաքնված տարբերակը, տես նկարի նկարը.

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -02

4, Աշխատաթերթը շատ թաքնված դարձնելուց հետո այն պաշտպանելու համար կարող եք գաղտնաբառ տեղադրել: Մեջ Microsoft Visual Basic հավելվածների համար պատուհանՀամար Տեղադրել > Մոդուլներ դատարկ մոդուլ բացելու համար, ապա կտտացնել Գործիքներ > VBAProject Հատկություններ, տես նկարի նկարը.

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -03

5, Հետո դուրս եկավ VBAProject- Propertրագրի հատկությունները երկխոսության վանդակում, սեղմեք Պաշտպանություն եւ ապա ստուգեք Կողպեք նախագիծը դիտելու համար վանդակում, վերջապես, մուտքագրեք և հաստատեք գաղտնաբառը կոճակում Passwordրագրի հատկությունները դիտելու գաղտնաբառ բաժին, տես նկարի նկարը.

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -04

6. Այնուհետեւ կտտացրեք OK կոճակը ՝ այս երկխոսությունից դուրս գալու և փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան:

7, Պահպանեք աշխատանքային գրքույկը որպես Excel մակրոներով աշխատունակ գիրք ձևաչափեք և փակեք այն ՝ գաղտնաբառի պաշտպանությունն ուժի մեջ մտնելու համար:

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -05

8, Հաջորդ անգամ, երբ բացեք այս աշխատանքային գիրքը և ցանկանում եք շատ թաքնված թերթերը տեսանելի դարձնել, ձեզանից խնդրում են գաղտնաբառ մուտքագրել: Տեսեք,

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -06

Դեմո. Սահմանեք գաղտնաբառ ՝ թաքնված թերթերը պաշտպանելու համար

Սահմանեք գաղտնաբառ ՝ VBA կոդով թաքնված թերթը պաշտպանելու համար

Թաքնված թերթերը պաշտպանելու համար գաղտնաբառ դնելու համար ես կարող եմ խոսել նաև ձեզ համար VBA կոդի մասին:

1, Թաքցրեք մեկ աշխատանքային թերթ, որը ցանկանում եք պաշտպանել:

2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3. Այնուհետեւ ընտրեք Այս գործառույթը ձախից Project Explorer, կրկնակի կտտացրեք այն `բացելու համար Մոդուլներև ապա պատճենեք և կպցրեք հետևյալ VBA կոդը ՝ դատարկ Մոդուլի մեջ.

VBA կոդ. Թաքնված թերթը պաշտպանելու համար սահմանեք գաղտնաբառ

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

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -07

ՆշումՎերոհիշյալ ծածկագրում Sheet1 որ xSheetName = "Թերթ 1" սցենարը թաքնված աշխատաթերթի անունն է, որը ցանկանում եք պաշտպանել, և 123456 է Եթե պատասխան = "123456" Ապա սցենարը ծածկագիրն է, որը դուք դրել եք թաքնված թերթի համար: Կարող եք դրանք փոխել ըստ ձեր կարիքի:

4, Այժմ, երբ ուզում եք ցույց տալ թաքնված թերթիկը, կհայտնվի հուշման տուփ, որը թույլ կտա մուտքագրել գաղտնաբառը: Եվ այս հուշման վանդակը կհայտնվի ամեն անգամ, երբ կտտացրեք ՝ թաքնված թերթիկը ցույց տալու համար:

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -08

Միանգամից պաշտպանեք բազմաթիվ աշխատաթերթեր Excel- ի համար Kutools- ի միջոցով

Եթե ցանկանում եք միանգամից պաշտպանել աշխատանքային գրքի բազմաթիվ ընտրված կամ բոլոր աշխատաթերթերը, սովորաբար, Excel- ում պետք է ձեռքով մեկ առ մեկ պաշտպանել: Բայց եթե ունեք Excel- ի համար նախատեսված գործիքներԻր Պաշտպանեք աշխատանքային թերթը օգտակար, դուք կարող եք պաշտպանել դրանք մեկ հպումով:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար.

Անցեք Ներբեռնում
30 օրվա անվճար փորձարկում Ձեռք բերել
PayPal / MyCommerce

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1: Սեղմեք Kutools Plus > Պաշտպանեք աշխատանքային թերթը, տես նկարի նկարը.

2, Մեջ Պաշտպանեք աշխատանքային թերթը երկխոսության տուփ, աշխատանքային գրքի բոլոր աշխատանքային թերթերը նշված են ցուցակի վանդակում, ընտրեք այն աշխատաթերթերը, որոնք ցանկանում եք պաշտպանել: Տեսեք,

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -010

3. Եվ այնուհետեւ կտտացրեք OKհետևյալ երկխոսության դաշտում մուտքագրեք ձեր գաղտնաբառը և նորից մուտքագրեք այն, ապա կտտացրեք OK, դուրս կգա մեկ այլ արագ տուփ ՝ հիշեցնելու համար, թե քանի թերթ է պաշտպանված:

փաստաթուղթ-պաշտպանել-թաքնված թերթիկները -011

4. Այնուհետեւ կտտացրեք OK երկխոսությունները փակելու համար, և աշխատանքային գրքում բոլոր աշխատաթերթերը պաշտպանված են նույն գաղտնաբառով:

Նշում: Եթե ցանկանում եք միանգամից պաշտպանել բոլոր աշխատանքային թերթերը, պարզապես անհրաժեշտ է սեղմել Kutools Plus > Չպաշտպանել աշխատանքային թերթըև մուտքագրեք ձեր գաղտնաբառը ՝ պաշտպանությունը չեղարկելու համար:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս Excel- ում միանգամից պաշտպանել բազմաթիվ աշխատանքային թերթեր:

Ինչպե՞ս գաղտնաբառ սահմանել աշխատանքային գիրքը պաշտպանելու համար:

Ինչպե՞ս պաշտպանել / կողպել VBA կոդը Excel- ում:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում \| Ստեղծեք ծածկագիր \| Ստեղծեք հատուկ բանաձևեր \| Վերլուծել տվյալները և ստեղծել գծապատկերներ \| Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները \| Deleteնջել դատարկ շարքերը \| Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի \| Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup \| Բազմակի արժեք VLookup \| VLookup բազմաթիվ թերթերում \| Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը \| Կախված բացվող ցուցակ \| Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ \| Տեղափոխել սյունակները \| Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը \| Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում \| Դիզայնի տեսք \| Մեծ Formula Bar \| Աշխատանքային գրքույկի և թերթիկների կառավարիչ \| Ռեսուրսների գրադարան (Ավտոմատ տեքստ) \| Ամսաթիվ ընտրող \| Միավորել աշխատանքային թերթերը \| Գաղտնագրել/գաղտնազերծել բջիջները \| Ուղարկեք նամակներ ըստ ցանկի \| Սուպեր զտիչ \| Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու: 12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...) \| 50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...) \| 40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...) \| 19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...) \| 12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...) \| 7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...) \| ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Կարդալ ավելին... Անվճար ներբեռնում...

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...

Comments (10)

No ratings yet. Be the first to rate!

ciekawa

about 1 year ago

#40007

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?

skyyang ciekawa

about 1 year ago

#40090

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!

Report

David

about 4 years ago

#30539

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?

skyyang David

about 4 years ago

#30540

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!

Report

Jeremy

about 7 years ago

#18498

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

Darren

about 7 years ago

#17884

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

Severin Darren

about 6 years ago

#17885

This comment was minimized by the moderator on the site

Found a solution yet?

I am having the same problem

Rexamillian Severin

about 6 years ago

#17887

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

Report

Tomas Rexamillian

about 5 years ago

#17888

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?

Rexamillian Severin

about 6 years ago

#17886

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

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում \| Ստեղծեք ծածկագիր \| Ստեղծեք հատուկ բանաձևեր \| Վերլուծել տվյալները և ստեղծել գծապատկերներ \| Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները \| Deleteնջել դատարկ շարքերը \| Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի \| Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup \| Բազմակի արժեք VLookup \| VLookup բազմաթիվ թերթերում \| Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը \| Կախված բացվող ցուցակ \| Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ \| Տեղափոխել սյունակները \| Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը \| Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում \| Դիզայնի տեսք \| Մեծ Formula Bar \| Աշխատանքային գրքույկի և թերթիկների կառավարիչ \| Ռեսուրսների գրադարան (Ավտոմատ տեքստ) \| Ամսաթիվ ընտրող \| Միավորել աշխատանքային թերթերը \| Գաղտնագրել/գաղտնազերծել բջիջները \| Ուղարկեք նամակներ ըստ ցանկի \| Սուպեր զտիչ \| Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու: 12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...) \| 50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...) \| 40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...) \| 19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...) \| 12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...) \| 7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...) \| ... եւ ավելին

changelog

Առանձնահատկությունների ձեռնարկներ

Օգնություն ստանալ?