Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս սահմանել գաղտնաբառեր՝ Excel-ում օգտատերերի անհատական ​​աշխատաթերթերը պաշտպանելու համար:

Excel-ում դուք կարող եք տարբեր գաղտնաբառեր սահմանել տարբեր թերթերի համար, սա նշանակում է, որ մեկ օգտատեր կարող է փոփոխություններ կատարել մեկ աշխատաթերթում՝ օգտագործելով մեկ գաղտնաբառ, իսկ մյուսը կարող է օգտագործել այլ գաղտնաբառ՝ մեկ այլ աշխատաթերթում փոփոխություններ կատարելու համար: Բայց, երբեմն, դուք պարզապես ցանկանում եք, որ յուրաքանչյուր օգտվող կարողանա դիտել և մուտք գործել իր սեփական թերթիկը: Հնարավո՞ր է դա լուծել Excel-ում:


Յուրաքանչյուր աշխատաթերթ առանձին-առանձին պաշտպանելու և օգտատերերի կողմից աշխատաթերթերի մուտքը սահմանափակելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը.

1. Բացեք նոր աշխատանքային գիրք և ստեղծեք նոր թերթ, որը կոչվում է «Հիմնական», տես սքրինշոթը.

2, Հետո, սեղմեք Alt + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը ձախից Projectրագիր-VBAP նախագիծ պատուհան՝ դատարկ կոդի մոդուլ բացելու համար, այնուհետև պատճենեք և տեղադրեք հետևյալ VBA կոդը կոդի պատուհանում, տես սքրինշոթը.

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

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

3. Այնուհետև դրեք կուրսորը վերջում Մասնավոր ենթագիրք_Բաց() սցենար և սեղմել F5 այս կոդը գործարկելու բանալին: Այժմ, բացված հուշման վանդակում, մուտքագրեք օգտվողի անունը, որը ցանկանում եք ստեղծել այս օգտվողի համար թերթիկ, տես սքրինշոթը.

4, Եվ հետո, կտտացրեք OK կոճակը, հետևյալ հուշման վանդակում մուտքագրեք գաղտնաբառ այս թերթիկը պաշտպանելու համար, տես սքրինշոթը.

5, Անցեք կտտացնելով OK կոճակը, և միանգամից ստեղծվում է օգտվողի անունով նոր թերթիկ, և դուք կարող եք տվյալ օգտվողի համար ստեղծել ըստ անհրաժեշտության: Տեսեք սքրինշոթը՝

6. Կրկնեք վերը նշված քայլը 3 – քայլ 5՝ մեկ առ մեկ այլ թերթեր ստեղծելու համար, որոնք ցանկանում եք օգտագործել:

7. Թերթերը ստեղծելուց հետո պահեք ընթացիկ աշխատանքային գիրքը՝ սեղմելով Ֆայլ > Պահել As., Մեջ Պահել As երկխոսության տուփ, նշեք ֆայլի անունը և ընտրեք Excel մակրոներով աշխատունակ գիրք (* .xlsm) ձեւաչափից Պահել որպես տիպ բացվող ցուցակ, տես նկարի նկարը.

8. Այնուհետև սեղմեք Պահպանել կոճակը՝ այս ֆայլը պահպանելու համար:

9. Այնուհետև փակեք աշխատանքային գրքույկը և նորից բացեք այն, այնուհետև սեղմեք Միացնել բովանդակությունը Կոդն ակտիվացնելու համար բանաձևի տողի վերևում տե՛ս սքրինշոթը.

10. Այժմ կհայտնվի հուշման տուփ, որը հիշեցնում է, որ մուտքագրեք օգտվողի անունը և գաղտնաբառը՝ որոշակի օգտվողի կողմից հատուկ թերթիկը բացելու համար:

11. Ի վերջո, այս աշխատանքային գիրքը այլ օգտվողներին ուղարկելիս պետք է օգտվողին ուղարկեք օգտվողի անունը և գաղտնաբառը: Նրանք բացելու և խմբագրելու են միայն իրենց սեփական թերթերը, և այլ աշխատանքային թերթիկներ տեսնելու թույլտվություն չունեն:


  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...
kte էջանիշը 201905
  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would you then allow for an admin user to see all of those password protected sheets?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations