Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս տեղադրել գաղտնաբառ 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 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

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

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

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

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

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

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

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

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

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


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

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

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

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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հարց ունեմ ձեր գաղտնաբառով սահմանափակված աշխատանքային թերթիկի կոդի վերաբերյալ: Դուք տեղադրեցիք հետևյալ կոդը, որն աշխատում է… այն, ինչ ես փնտրում եմ, դա կոդ է, որը դա կանի մի քանի աշխատաթերթերով և մի քանի գաղտնաբառերով նույն աշխատանքային գրքում: Սա հնարավո՞ր է: Մասնավոր ենթ աշխատանքային գրքույկ_SheetActivate(ByVal Sh As Object) 'Թարմացնել 20140925 Dim xSheetName որպես տող xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Այնուհետեւ Application.Falseooots =Falpplication. .InputBox("Password", xTitleId, "", Type:=2) If answer = "123456" Այնուհետեւ Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets( xSheetName).Visible = True Application.EnableEvents = True End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռ գտե՞լ եք լուծում:

Ես նույն խնդիրն ունեմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_SheetActivate(ByVal Sh որպես օբյեկտ)
Խոնավեցրեք xSheetName-ը որպես տող
aSheetName = "sheet1"
bSheetName = «sheet2»
cSheetName = «sheet3»

Եթե ​​Application.ActiveSheet.Name = aSheetName Այնուհետեւ
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = «KutoolsforExcel»
պատասխան = Application.InputBox («Գաղտնաբառ», xTitleId, «», Տիպ:=2)
Եթե ​​պատասխան = "1234" Ապա
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Ընտրեք
Ուրիշ
Application.Sheets(aSheetName).Visible = False
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է

Եթե ​​Application.ActiveSheet.Name = bSheetName Այնուհետեւ
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = «KutoolsforExcel»
պատասխան = Application.InputBox («Գաղտնաբառ», xTitleId, «», Տիպ:=2)
Եթե ​​պատասխան = "2345" Ապա
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Ընտրեք
Ուրիշ
Application.Sheets(bSheetName).Visible = False
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է

Եթե ​​Application.ActiveSheet.Name = cSheetName Այնուհետեւ
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = «KutoolsforExcel»
պատասխան = Application.InputBox («Գաղտնաբառ», xTitleId, «», Տիպ:=2)
Եթե ​​պատասխան = "3456" Ապա
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Ընտրեք
Ուրիշ
Application.Sheets(cSheetName).Visible = False
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթաօրենսդրական աշխատանքային գրքույկ_SheetActivate(ByVal Sh որպես օբյեկտ)
Մթնեցրեք aSheetName-ը որպես տող
Dim bSheetName-ը որպես տող
Պղտորել cSheetName-ը որպես տող
aSheetName = "sheet1"
bSheetName = «sheet2»
cSheetName = «sheet3»

Եթե ​​Application.ActiveSheet.Name = aSheetName Այնուհետեւ
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = «KutoolsforExcel»
պատասխան = Application.InputBox («Գաղտնաբառ», xTitleId, «», Տիպ:=2)
Եթե ​​պատասխան = "123" Ապա
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Ընտրեք
Ուրիշ
Application.Sheets(aSheetName).Visible = False
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է

Եթե ​​Application.ActiveSheet.Name = bSheetName Այնուհետեւ
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = «KutoolsforExcel»
պատասխան = Application.InputBox («Գաղտնաբառ», xTitleId, «», Տիպ:=2)
Եթե ​​պատասխան = "456" Ապա
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Ընտրեք
Ուրիշ
Application.Sheets(bSheetName).Visible = False
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է

Եթե ​​Application.ActiveSheet.Name = cSheetName Այնուհետեւ
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = «KutoolsforExcel»
պատասխան = Application.InputBox («Գաղտնաբառ», xTitleId, «», Տիպ:=2)
Եթե ​​պատասխան = "789" Ապա
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Ընտրեք
Ուրիշ
Application.Sheets(cSheetName).Visible = False
Վերջ: Եթե
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդի համար, միայն մեկ հարց ունեք: Երբ բացում եք թերթիկը, ձեզ հարցնում են, այնուհետև մուտքագրում եք այն և թերթիկը տեսանելի է, բայց երբ անցնում եք հաջորդ թերթին և փորձում նորից բացել նախորդ թերթիկը, ձեզանից ամեն անգամ նորից նույն գաղտնաբառը է խնդրում: Հարցս այն է, որ կարո՞ղ ես շրջանցել դա և ստիպել Excel-ին մեկ անգամ գաղտնաբառ խնդրել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր կոդը թույլ է տալիս օգտվողներին դիտել թերթիկը այնքան ժամանակ, քանի դեռ նրանք պահում են մկնիկի ձախ կոճակը, քանի դեռ մկնիկի ցուցիչը ներդիրում է: Փորձեք սա՝ թերթիկը թաքցված պահելու համար, մինչև մուտքագրվի ճիշտ գաղտնաբառը. If answer = "123456" Այնուհետեւ 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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա էլեգանտ է: ԵԹԵ աղյուսակը բացող անձը չի միացնում մակրոները (այսինքն VBA), ի՞նչ է տեղի ունենում: Թաքնված սավանը նստած բադ է: Կամ միանգամայն անհնար է գտնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դավիթ,
Եթե ​​աշխատանքային գիրքը բացում եք առանց մակրո միացնելու, թաքնված թերթիկը կցուցադրվի որպես սովորական: Այս դեպքում խորհուրդ եմ տալիս կիրառել այս գործը լուծելու առաջին մեթոդը։
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło անել տեսողական հիմնական կատակով w ukrytym arkuszu?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, սիեկավա

Ներեցեք, ներկա պահին գաղտնաբառի մոռանալու դեպքում թաքնված թերթի պաշտպանությունը չեղարկելու լավ միջոց չկա:

Բայց դուք կարող եք կիրառել Թաքցնել բոլոր թաքնված թերթերը առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ բացելու բոլոր թաքնված թերթերն առանց որևէ գաղտնաբառի:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
Դուք կարող եք բեռնել Excel- ի համար նախատեսված գործիքներ և ազատորեն օգտագործել 30 օր։
Խնդրում ենք փորձել: Շնորհակալություն!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից