2 būdai, kaip išvengti „Excel“ lapo ištrynimo

Kaip apsaugoti „Excel“ darbalapį nuo ištrynimo? Ieškote būdo, kaip išvengti lakštų ištrynimo, tačiau leidžiant juos paslėpti ar pertvarkyti? Šioje mokymo programoje parodysime 2 būdus, kaip apsaugoti konkretų arba visus lapus nuo ištrynimo programoje „Excel 2016/2013/2010/2007“.

Patarimai:Jei norite apsaugoti Excel failą (.XLS, .XLSX) nuo netyčinio ištrynimo, išbandykite programą Protect My Folders, kuri gali užrakinti bet kokius aplankus ar failus slaptažodžiu.

1 būdas: apsaugokite visą darbaknygės struktūrą slaptažodžiu

SUSIJĘS:8 patikrinti būdai, kaip pataisyti „Excel“ rastą neįskaitomą turinį

1. Atidarykite „Excel“ darbaknygę. pasirinkite "Apžvalgajuostelės meniu ir spustelėkiteApsaugokite darbo knygą“ iš pakeitimų grupės.

   

2. Atsidaro dialogo langas Apsaugoti struktūrą ir langą. Įsitikinkite, kadStruktūraparinktis pažymėta. Įveskite slaptažodį ir spustelėkiteGerai.

   

3. Iš naujo įveskite slaptažodį ir spustelėkiteGerai.
4. Dabar visi jūsų darbaknygės lapai yra apsaugoti. Nebegalite įterpti, ištrinti, pervardyti, perkelti, kopijuoti, slėpti ar nebeslėpti darbalapių.

2 būdas: apsaugokite konkretų lapą nuo ištrynimo naudojant VBA

Jei tiesiog norite neleisti vartotojams ištrinti konkretaus jūsų nurodyto lapo, išbandykite šį sprendimą. Tai man nepriekaištingai veikia naudojant „Excel 2016“ bandomąją darbaknygę.

1. Dešiniuoju pelės mygtuku spustelėkite bet kurį lapo skirtuką ir pasirinkiteŽiūrėti kodąiš iškylančio meniu. Tai atidarys „Visual Basic“ redaktorių (ALT + F11).

   

2. Kairėje pamatysite darbalapių sąrašą. Dukart spustelėkite kiekvieną lapą, kurį norite apsaugoti nuo ištrynimo, nukopijuokite ir įklijuokite šį kodą į didelę baltą sritį dešinėje.

   Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "UnprotectBook"
End Sub

   

3. Dešiniuoju pelės mygtuku spustelėkite„Microsoft Excel“ objektaikairėje pasirinkiteĮterpti->Modulis.

   

4. Dukart spustelėkite naujai sukurtą modulį kairėje. Nukopijuokite ir įklijuokite šį kodą dešinėje srityje.

   Sub UnprotectBook()
ThisWorkbook.Unprotect
End Sub

   

5. SpustelėkiteIšsaugotiir baigta. Jei naudojate darbaknygę be makrokomandų, gausite įspėjamąjį pranešimą „Šios funkcijos negali būti išsaugotos darbaknygėje be makrokomandų“. SpustelėkiteNr.

   

6. ĮIšsaugoti kaipdialogo lange pasirinkite „„Excel“ makrokomandos įgalinta darbaknygė (*.xlsm)“ ir spustelėkiteIšsaugoti.

   

7. Kai pamatysite iššokantį pranešimą „Būkite atsargūs! Kai kuriose dokumento dalyse gali būti asmeninės informacijos, kurios dokumentų inspektorius negali pašalinti“, spustelėkiteGerai.

   

8. Uždarykite visus atidarytus langus. Atidarykite .xlsm failą programoje Excel, dešiniuoju pelės mygtuku spustelėkite apsaugoto lapo skirtuką ir pasirinkiteIštrinti, spustelėkite kitą kartąIštrintikad patvirtintumėte, pamatysite gedimo pranešimą: Darbaknygė apsaugota ir jos pakeisti negalima.

   

9. Tai viskas.