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

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

Լռելյայնորեն, տեղադրված օբյեկտները, ինչպիսիք են ձևերը, տեքստի տուփերը, չեն կարող խմբագրվել աշխատանքային թերթը պաշտպանելուց հետո: Եթե ​​Ձեզ անհրաժեշտ է խմբագրել օբյեկտները պաշտպանված աշխատանքային թերթում, խնդրում ենք փորձել սույն հոդվածի մեթոդները:

Թույլատրեք խմբագրել օբյեկտները պաշտպանված աշխատաթերթում ՝ ստուգելով Խմբագրել օբյեկտները տարբերակը
VBA կոդով թույլ տվեք խմբագրել օբյեկտները պաշտպանված աշխատաթերթում

Թույլատրեք խմբագրել օբյեկտները պաշտպանված աշխատաթերթում ՝ ստուգելով Խմբագրել օբյեկտները տարբերակը

Խնդրում ենք ստուգել Խմբագրել օբյեկտները տարբերակը `թույլ տալով խմբագրել օբյեկտները նախքան աշխատանքային թերթը պաշտպանելը: Խնդրում եմ արեք հետևյալ կերպ.

1: սեղմեք տեսություն > Պաշտպանեք Թերթիկը.

2. Մեջ Պաշտպանեք Թերթիկը երկխոսության տուփ, նշեք գաղտնաբառի կոճակը Գաղտնաբառը թերթը չպաշտպանելու համար տուփը և ստուգել Խմբագրել օբյեկտները տուփը Այս աշխատաթերթի բոլոր օգտվողներին Թույլատրել տուփը, այնուհետև կտտացնել OK կոճակ Հաստատեք ձեր գաղտնաբառը ՝ Հաստատել գաղտնաբառը երկխոսության տուփ: Տեսեք,

Այժմ աշխատանքային թերթը պաշտպանված է, և այս պաշտպանված աշխատաթերթի բոլոր օբյեկտները խմբագրելի են:

VBA կոդով թույլ տվեք խմբագրել օբյեկտները պաշտպանված աշխատաթերթում

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

1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը ձախում Նախագիծ պատուհան Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Այս աշխատանքային գիրքը (ծածկագիր) պատուհան.

VBA կոդ. Թույլատրեք խմբագրել օբյեկտները պաշտպանված աշխատաթերթում

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

ՆշումԿոդում, Sheet3- ը պաշտպանված աշխատանքային թերթն է, որը պարունակում է այն օբյեկտները, որոնք դուք պետք է խմբագրեք: Իսկ «123» թիվը պաշտպանված թերթի գաղտնաբառն է: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

3. Սեղմեք F5 Կոդը գործարկելու ստեղները, և այս պաշտպանված աշխատաթերթի բոլոր օբյեկտները անմիջապես խմբագրվում են:

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

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

🤖 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 (1)
No ratings yet. Be the first to rate!
Vanessa
Vanessa
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations