Екцел вам омогућава да заштитите своје Екцел радне свеске од промена. Овај водич ће вам показати како заштитити или уклонити заштиту структуре радне свеске помоћу ВБА.
Заштита ВБА радне свеске
ВБА заштита радне свеске вам омогућава да закључате структуру радне свеске. Када је радна свеска заштићена, корисници неће моћи да додају, бришу, скривају / откривају или штите / уклањају заштиту радних листова. Ако правите модел, вероватно желите да укључите заштиту радне свеске како бисте спречили кориснике (или вас!) Од случајног брисања радних листова.
УнПротецт Воркбоок ВБА
Да бисте уклонили заштиту радне свеске, једноставно користите следећи ред кода:
| 1 | Радне свеске („Књига1“). Уклоните заштиту |
Напомена: овај код ће радити само ако је радна свеска заштићена без лозинку. Ако је заштићена лозинком, морате је унијети и да бисте је уклонили са заштите:
Уклоните заштиту радне свеске са лозинком
Ова линија кода ће уклонити заштиту радне свеске заштићене лозинком:
| 1 | Радне свеске ("Књига1"). Уклони заштиту лозинке: = "лозинка" |
или можете изоставити лозинку: =
| 1 | Радне свеске ("Књига1"). Уклоните заштиту са "лозинке" |
Уклоните заштиту ове радне свеске
Овај код ће уклонити заштиту ове радне књиге (ова радна свеска је радна свеска у којој је ускладиштен текући код. Никада се неће променити).
| 1 | ТхисВоркбоок.Унпротецт |
или уклоните заштиту ове радне књиге лозинком:
| 1 | ТхисВоркбоок.Унпротецт "пассворд" |
УнПротецт АцтивеВоркбоок
Овај код ће уклонити заштиту АцтивеВорбоок -а.
| 1 | АцтивеВоркбоок.Унпротецт |
или уклоните заштиту АцтивеВоркбоок -а лозинком:
| 1 | АцтивеВоркбоок.Унпротецт "пассворд" |
Уклоните заштиту са свих отворених радних свезака
Овај код ће уклонити заштиту са свих отворених радних свезака:
| 12345678 | Суб УнпротецтАллОпенВоркбоокс ()Дим вб Као радна свескаЗа сваку вб у радним свескамавб.УнпротецтНект вбЕнд Суб |
УнПротецт Воркбоок - Без познавања лозинке
Ако морате да уклоните заштиту радне свеске без познавања лозинке, постоји неколико додатака који ће вам помоћи. Препоручио бих Риббон Цоммандер.
Уклоните заштиту са свих листова у радној свесци
Након уклањања заштите радне свеске, можда ћете желети и да уклоните заштиту са свих листова у радној свесци. Ево поступка који ће уклонити заштиту са свих листова:
| 12345678 | Суб УнПротецтВоркбоокАндАллСхеетс ()Дим вс Ас ВорксхеетАцтивеВоркбоок.УнпротецтЗа сваки вс у радним листовимавс.УнпротецтСледећиЕнд Суб |
Заштитите радну свеску
Можете заштитити структуре радне свеске на исти начин на који уклањате заштиту.
Заштитите радну свеску без лозинке
Ова линија кода штити радну свеску (без лозинке)
| 1 | Радне свеске („Књига1“). Заштитите |
Напомена: Често ћу примењивати заштиту радне свеске без лозинки, једноставно ради спречавања случајно измене радних свезака.
Заштитите радну свеску лозинком
Овај код ће заштитити структуру радне свеске (лозинком)
| 1 | Радне свеске ("Књига1"). Заштитите "лозинку" |
или:
| 1 | Радне свеске ("Књига1"). Заштитите лозинку: = "лозинка" |
Екцел датотека заштићена лозинком
Уместо заштите радне свеске, можда ћете желети да заштитите читаву Екцел датотеку лозинком. Да бисте то урадили користећи ВБА, Сачувај као радну свеску са лозинком:
| 1 | Радне свеске („Књига1“). Сачувај као „лозинку“ |
Примери радне свеске Заштита / Уклањање заштите
Откријте све радне листове у заштићеној радној свесци
Ова процедура ће уклонити заштиту радне свеске, сакрити све радне листове и поново заштитити радну свеску
| 12345678910 | Под УнпротецтВБ_Унхиде_Алл_Схеетс ()Дим вс Ас ВорксхеетАцтивеВоркбоок.УнпротецтЗа сваки вс у радним листовимавс.Висибле = клСхеетВисиблеСледећиАцтивеВоркбоок.ПротецтЕнд Суб |
Заштитите радну свеску и све листове
Ова процедура ће заштитити све радне листове у радној свесци, а затим заштитити радну свеску:
| 1234567891011 | Суб ПротецтВБ_Протецт_Алл_Схеетс ()Дим вс Ас ВорксхеетАцтивеВоркбоок.УнпротецтЗа сваки вс у радним листовимавс.ПротецтСледећиАцтивеВоркбоок.ПротецтЕнд Суб |
Можете додати и заштиту лозинком:
| 1234567891011 | Суб ПротецтВБ_Протецт_Алл_Схеетс_Псврд ()Дим вс Ас ВорксхеетАцтивеВоркбоок.Унпротецт "пассворд"За сваки вс у радним листовимавс.Заштити "лозинку"СледећиАцтивеВоркбоок.Заштитите "лозинку"Енд Суб |
