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

Sut i osod cyfrinair i amddiffyn taflen gudd yn Excel?

Os oes gennych lyfr gwaith sy'n cynnwys rhai taflenni gwaith cudd pwysig, a pheidiwch â gadael i eraill eu cuddio. Nawr, mae angen i chi osod cyfrinair i amddiffyn y taflenni gwaith cudd yn llwyr, pan fydd defnyddwyr eraill yn eu cuddio, rhaid iddynt nodi'r cyfrinair. A oes gennych unrhyw ffyrdd i ddelio â'r dasg hon yn gyflym ac yn hawdd yn Excel?

Gosodwch gyfrinair i amddiffyn taflenni cudd gyda swyddogaeth VeryHidden

Gosodwch gyfrinair i amddiffyn taflen gudd gyda chod VBA

Amddiffyn nifer o daflenni gwaith ar unwaith gyda Kutools ar gyfer Excel


Gosodwch gyfrinair i amddiffyn taflenni cudd gyda swyddogaeth VeryHidden

Fel rheol, gallwch ddefnyddio'r swyddogaeth VeryHidden i guddio'r taflenni gwaith yn gyntaf, ac yna gosod cyfrinair ar eu cyfer, gwnewch fel y camau canlynol:

1. Agorwch eich llyfr gwaith, a'i ddal Alt + F11allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Yn y Ffenestr Microsoft Visual Basic for Applications, Cliciwch Gweld > Archwiliwr Prosiect a Ffenestr Priodweddau to arddangos eu cwareli.

doc-protect-hidden-pages-01

3. Ac yna yn y Prosiect-VBAProject cwarel, dewiswch y daflen waith rydych chi am ei chuddio, ac yn y Eiddo cwarel, cliciwch y gwymplen o'r gweladwy adran i ddewis xlTaflenGudd opsiwn, gweler y screenshot:

doc-protect-hidden-pages-02

4. Ar ôl gwneud y daflen waith yn gudd iawn, gallwch chi osod cyfrinair i'w gwarchod. Yn y Ffenestr Microsoft Visual Basic for Applications, Cliciwch Mewnosod > Modiwlau i agor modiwl gwag, ac yna cliciwch offer > Priodweddau VBAProject, gweler y screenshot:

doc-protect-hidden-pages-03

5. Yna yn y popped allan Priodweddau Prosiect VBAProject blwch deialog, cliciwch Diogelu tab, ac yna gwirio Prosiect cloi i'w weld blwch, yn olaf, nodwch a chadarnhewch y cyfrinair yn y Cyfrinair i weld eiddo'r prosiect adran, gweler y screenshot:

doc-protect-hidden-pages-04

6. Yna cliciwch OK botwm i adael y dialog hwn, a chau'r Ffenestr Microsoft Visual Basic for Applications.

7. Cadwch y llyfr gwaith fel Llyfr Gwaith Macro-alluogedig Excel fformatio a'i gau i wneud i'r amddiffyniad cyfrinair ddod i rym.

doc-protect-hidden-pages-05

8. Y tro nesaf, pan fyddwch chi'n agor y llyfr gwaith hwn, ac eisiau gwneud i'r taflenni cudd fod yn weladwy, gofynnir i chi nodi cyfrinair. Gweler y screenshot:

doc-protect-hidden-pages-06


Demo: Gosodwch gyfrinair i amddiffyn taflenni cudd


Gosodwch gyfrinair i amddiffyn taflen gudd gyda chod VBA

I osod cyfrinair i amddiffyn y taflenni cudd, gallaf hefyd siarad am god VBA i chi.

1. Cuddiwch un daflen waith rydych chi am ei gwarchod.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

3. Yna dewiswch Llyfr Gwaith hwn o'r chwith Archwiliwr Prosiect, cliciwch ddwywaith arno i agor y Modiwlau, ac yna copïo a gludo gan ddilyn y cod VBA i'r Modiwl gwag:

Cod VBA: Gosod cyfrinair i amddiffyn taflen gudd

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-protect-hidden-pages-07

Nodyn: Yn y cod uchod, Sheet1 y xSheetName = "Taflen1" sgript yw'r enw taflen waith gudd yr ydych am ei amddiffyn, a 123456 yn y Os ymateb = "123456" Yna sgript yw'r cyfrinair a osodwyd gennych ar gyfer y ddalen gudd. Gallwch eu newid i'ch angen.

4. Nawr, pan fyddwch chi am ddangos y ddalen gudd, bydd blwch prydlon yn popio allan i adael i chi nodi'r cyfrinair. A bydd y blwch prydlon hwn yn ymddangos bob tro, pan gliciwch i ddangos y ddalen gudd.

doc-protect-hidden-pages-08


Amddiffyn nifer o daflenni gwaith ar unwaith gyda Kutools ar gyfer Excel

Os ydych chi am amddiffyn nifer o daflenni gwaith dethol neu bob un o lyfrau gwaith ar unwaith, fel rheol, mae angen i chi amddiffyn fesul un yn Excel. Ond, os oes gennych chi Kutools ar gyfer Excel, Gyda'i Taflen Waith Amddiffyn cyfleustodau, gallwch eu hamddiffyn gydag un clic.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Cliciwch Kutools Byd Gwaith > Taflen Waith Amddiffyn, gweler y screenshot:

2. Yn y Taflen Waith Amddiffyn blwch deialog, mae'r holl daflenni gwaith yn y llyfr gwaith wedi'u rhestru yn y blwch rhestr, dewiswch y taflenni gwaith rydych chi am eu gwarchod. Gweler y screenshot:

doc-protect-hidden-pages-010

3. Ac yna cliciwch OK, yn y blwch deialog canlynol, nodwch eich cyfrinair a'i aildeipio eto, yna cliciwch OK, bydd blwch prydlon arall yn galw allan i'ch atgoffa faint o daflenni gwaith sydd wedi'u gwarchod.

doc-protect-hidden-pages-011

4. Yna cliciwch OK i gau'r dialogau, ac mae'r holl daflenni gwaith yn y llyfr gwaith wedi'u gwarchod gyda'r un cyfrinair.

Nodyn: Os ydych chi am amddiffyn yr holl daflenni gwaith ar unwaith, does ond angen i chi glicio Kutools Byd Gwaith > Taflen Waith Amddiffyn, a theipiwch eich cyfrinair i ganslo'r amddiffyniad.

 Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


Erthyglau cysylltiedig:

Sut i amddiffyn nifer o daflenni gwaith ar unwaith yn Excel?

Sut i osod cyfrinair i amddiffyn y llyfr gwaith?

Sut i amddiffyn / cloi cod VBA yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i gwestiwn am eich cod taflen waith wedi'i gyfyngu gan gyfrinair. Fe wnaethoch chi bostio'r cod canlynol sy'n gweithio ....yr hyn rydw i'n edrych amdano yw cod a fydd yn gwneud hyn gyda thaflenni gwaith lluosog a chyfrineiriau lluosog o fewn yr un llyfr gwaith. Ydy hyn yn bosibl? Is Lyfr Gwaith Preifat_SheetActivate(ByVal Sh Fel Gwrthrych) 'Diweddariad 20140925 Dim xSheetName Fel Llinyn xSheetName = "sheet1" Os Application.ActiveSheet.Name = xSheetName Yna Application.EnableEvents = Cais Ffug.ActiveSheet.Visible = Ymateb Ffug xTitleId = "Kuto" Applications For "Kuto" .InputBox("Cyfrinair", xTitleId, "", Math:=2) Os ymateb = " 123456" Yna Application.Sheets(xSheetName).Visible = Gwir Application.Sheets(xSheetName).Dewiswch Diwedd Os Diwedd Os yw Application.Sheets( xSheetName).Visible = Gwir Application.EnableEvents = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi dod o hyd i ateb eto?

Rwy'n cael yr un broblem
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is Gweithlyfr Preifat_Taflen Activate(ByVal Sh Fel Gwrthrych)
Dim xSheetName Fel Llinyn
aSheetName = "taflen1"
bSheetName = "taflen2"
cSheetName = "taflen3"

Os Application.ActiveSheet.Name = aSheetName Yna
Application.EnableEvents = Gau
Application.ActiveSheet.Visible = Gau
xTitleId = "KutoolsforExcel"
ymateb = Application.InputBox("Cyfrinair", xTitleId, "", Math:=2)
Os ymateb = "1234" Yna
Application.Sheets(aSheetName).Visible = Gwir
Application.Sheets(aSheetName).Dewiswch
arall
Application.Sheets(aSheetName).Visible = Gau
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir

Os Application.ActiveSheet.Name = bSheetName Yna
Application.EnableEvents = Gau
Application.ActiveSheet.Visible = Gau
xTitleId = "KutoolsforExcel"
ymateb = Application.InputBox("Cyfrinair", xTitleId, "", Math:=2)
Os ymateb = "2345" Yna
Application.Sheets(bSheetName).Visible = Gwir
Application.Sheets(bSheetName).Dewiswch
arall
Application.Sheets(bSheetName).Visible = Gau
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir

Os Application.ActiveSheet.Name = cSheetName Yna
Application.EnableEvents = Gau
Application.ActiveSheet.Visible = Gau
xTitleId = "KutoolsforExcel"
ymateb = Application.InputBox("Cyfrinair", xTitleId, "", Math:=2)
Os ymateb = "3456" Yna
Application.Sheets(cSheetName).Visible = Gwir
Application.Sheets(cSheetName).Dewiswch
arall
Application.Sheets(cSheetName).Visible = Gau
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is Gweithlyfr Preifat_Taflen Activate(ByVal Sh Fel Gwrthrych)
Dim Enw Dalen Fel Llinyn
Dim bSheetName Fel Llinyn
Dim cSheetName Fel Llinyn
aSheetName = "taflen1"
bSheetName = "taflen2"
cSheetName = "taflen3"

Os Application.ActiveSheet.Name = aSheetName Yna
Application.EnableEvents = Gau
Application.ActiveSheet.Visible = Gau
xTitleId = "KutoolsforExcel"
ymateb = Application.InputBox("Cyfrinair", xTitleId, "", Math:=2)
Os ymateb = "123" Yna
Application.Sheets(aSheetName).Visible = Gwir
Application.Sheets(aSheetName).Dewiswch
arall
Application.Sheets(aSheetName).Visible = Gau
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir

Os Application.ActiveSheet.Name = bSheetName Yna
Application.EnableEvents = Gau
Application.ActiveSheet.Visible = Gau
xTitleId = "KutoolsforExcel"
ymateb = Application.InputBox("Cyfrinair", xTitleId, "", Math:=2)
Os ymateb = "456" Yna
Application.Sheets(bSheetName).Visible = Gwir
Application.Sheets(bSheetName).Dewiswch
arall
Application.Sheets(bSheetName).Visible = Gau
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir

Os Application.ActiveSheet.Name = cSheetName Yna
Application.EnableEvents = Gau
Application.ActiveSheet.Visible = Gau
xTitleId = "KutoolsforExcel"
ymateb = Application.InputBox("Cyfrinair", xTitleId, "", Math:=2)
Os ymateb = "789" Yna
Application.Sheets(cSheetName).Visible = Gwir
Application.Sheets(cSheetName).Dewiswch
arall
Application.Sheets(cSheetName).Visible = Gau
Gorffennwch Os
Gorffennwch Os
Application.EnableEvents = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod, dim ond un cwestiwn sydd gennych. Pan fyddwch chi'n agor y ddalen gofynnir cwestiwn i chi, yna rydych chi'n ei nodi ac mae'r ddalen yn weladwy, ond pan fyddwch chi'n neidio i'r ddalen nesaf ac yn ceisio ail-agor y daflen flaenorol, gofynnir i chi am yr un cyfrinair eto bob tro. Fy nghwestiwn yw a allwch chi osgoi hynny a gwneud i excel ofyn am gyfrinair unwaith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae eich cod yn caniatáu i ddefnyddwyr weld y ddalen cyn belled â'u bod yn dal botwm chwith y llygoden tra bod pwyntydd y llygoden ar y tab. Ceisiwch hwn i gadw'r ddalen yn gudd nes i'r cyfrinair cywir gael ei fewnbynnu: Os ymateb = " 123456 "Yna Application.Sheets(xSheetName).Visible = Gwir Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = Gau[/ b][/b] Diwedd Os Diwedd Os yw Application.EnableEvents = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gain. OS nad yw'r person sy'n agor y daenlen yn galluogi macros (hy VBA) beth sy'n digwydd? Ai hwyaden eistedd yw'r ddalen gudd? Neu a yw'n gwbl amhosibl dod o hyd iddo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, David,
Os byddwch chi'n agor y llyfr gwaith heb alluogi'r macro, dangosir y daflen gudd fel arfer. Yn yr achos hwn, rwy'n argymell ichi gymhwyso'r dull cyntaf ar gyfer datrys y swydd hon.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ciekawa

Mae'n ddrwg gennym, ar hyn o bryd, nid oes ffordd dda o ganslo amddiffyniad y ddalen gudd os byddwch chi'n anghofio'r cyfrinair.

Ond, gallwch wneud cais y Cuddiwch bob dalen gudd nodwedd o Kutools ar gyfer Excel i ddatguddio'r holl ddalennau cudd heb unrhyw gyfrinair.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
Gallwch lawrlwytho Kutools ar gyfer Excel a'i ddefnyddio'n rhydd am 30 diwrnod.
Rhowch gynnig arni. Diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL