Apsaugome "Excel" failus ar lapus taip, kad kiti naudotojai ar gavėjai negalėtų atlikti jokių pakeitimų. Tačiau kartais pasitaiko ypatingų atvejų. Mums gali prireikti bendrinti savo failą su redagavimo leidimu, nekeičiant formulės langelių. Dėl formulės pakeitimų negausime norimo išvesties. Taigi, parodysime, kaip apsaugoti "Excel" lapo formulę, bet leisti įvesti.

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį, kad galėtumėte atlikti pratimus skaitydami šį straipsnį.

2 metodai, kaip apsaugoti formulę "Excel" programoje, bet leisti įvesti duomenis

Aptarsime du metodus, kuriuose aprašoma, kaip apsaugoti formules "Excel" leidžianti įvesti duomenis. Vienas iš jų yra VBA Makro.

Turime duomenų rinkinį, kuriame yra darbuotojų vardai ir pavardės su jų atlyginimais ir išlaidomis. Dabar įveskite atlyginimus ir išlaidas ir apskaičiuokite sutaupytas lėšas. Negalime paliesti sutaupytų lėšų stulpelio.

Įterpus reikšmes į Atlyginimas ir Išlaidos stulpelyje, išsaugojimą gauname automatiškai.

Taip pat paliksime keletą tuščių langelių. Kai ateis nauji žmonės, įrašysime jų informaciją ir nustatysime santaupas. Be formulės langelių Taupymas stulpelį, kiti stulpeliai išliks redaguojami.

1. Apsaugokite tik formulės ląsteles

Galime apsaugoti langelius su formulėmis, leidžiančiomis įvesti duomenis. Pirmiausia užrakinkite langelius su formulėmis ir tada apsaugokite lapą. Atlikite toliau nurodytus veiksmus, kad gautumėte išsamesnės informacijos.

Žingsniai:

• Pirmiausia atrakinsime visas ląsteles. Tam paspauskite Ctrl+A norėdami pasirinkti visą darbalapį.

• Tada eikite į Formuoti ląsteles langą paspausdami Ctrl+1 .
• Panaikinkite žymėjimą Užrakinta parinktį iš Apsauga Galiausiai paspauskite GERAI mygtuką.

• Dabar darbalapyje nėra užrakinto langelio.

• Paspauskite F5 mygtuką ir įveskite Eiti į langas.
• Pasirinkite Specialus mygtuką iš to lango.

• Pasirinkite Formulės iš Pereiti į specialią langą. Tada paspauskite GERAI .

• Čia pažymėtos visos ląstelės, kuriose yra formulių.

• Vėl įveskite Formuoti ląsteles langas.
• Dabar patikrinkite Užrakinta parinktį ir paspauskite GERAI .

Dabar ląstelės, kuriose yra formulių, yra užrakintos.

• Eikite į Peržiūrėkite skirtukas.
• Spustelėkite Apsaugos lapas parinktį iš Apsaugoti grupė.

• Mes gausime Apsaugos lapas . Čia galėsite pasirinkti apsaugą slaptažodžiu.
• Taip pat naudotojui rodomas leidžiamų parinkčių sąrašas. Patikriname pirmąsias dvi parinktis, tada spaudžiame GERAI .

• Dabar mūsų darbas baigtas. Elementus galime įvesti į bet kurią ląstelę be formulės langelių. Pavyzdžiui, įvedame Allisa svetainėje Ląstelė B9 .

• Tačiau jei norime įvesti duomenis į formulės langelius, gausime įspėjimą. Čia spustelėjome Ląstelė E7 ir rodomas įspėjimas.

2. Naudokite "Excel" VBA kodas, skirtas apsaugoti formulių langelius ir leisti įvesti duomenis į kitus langelius

Šiame skyriuje naudosime VBA kodą, kuris apsaugos formulės langelius ir leis redaguoti kitus langelius.

Žingsniai:

• Eikite į Lapo pavadinimas kiekvieno lapo apačioje.
• Paspauskite dešinįjį pelės klavišą. Pasirinkite Peržiūrėti kodą iš Kontekstinis meniu .

• Mes įeiname į VBA langas. Pasirinkite Modulis parinktį iš Įdėkite skirtukas.

• Tai yra VBA modulis. Parašysime VBA kodą rasite čia.

• Dabar nukopijuokite ir įklijuokite VBA kodas modulyje.

 Option Explicit Sub Protect_Formula_Cells() Dim pass As String, w_sheet As Worksheet Dim f_cells As Range pass = "123" Set w_sheet = ActiveSheet w_sheet.Unprotect pass On Error Resume Next Set f_cells = w_sheet.Cells.SpecialCells(xlCellTypeFormulas) If f_cells Is Nothing Then Exit Sub w_sheet.Cells.Locked = False f_cells.Locked = True w_sheet.ProtectEnd Sub 

• Po to paspauskite F5 paleisti kodą.

Sėkmingai užrakinome formulės ląsteles.

• Galime įvesti duomenis bet kuriose ląstelėse, o ne formulės ląstelėse. Ląstelė B10 .