U ovom ćemo članku koristiti događaj promjene radnog lista za zaštitu ćelija koje sadrže formule.
Sirovi podaci sastoje se od podataka o prodaji zaposlenika, koji uključuju bifuraciju po mjesecima i godinama.
Želimo saznati ukupnu prodaju po mjesecima, kao i po godinama.
Koristili smo funkciju zbroja za izračun ukupne prodaje na mjesečnoj i godišnjoj osnovi. Događaj promjene radnog lista koristi se za zaštitu ćelija koje sadrže formule. Kada pokušamo urediti ćeliju koja sadrži formulu, dobit ćemo skočnu poruku koja kaže da se vrijednost ćelije ne može promijeniti.
Objašnjenje koda
rng.HasFormula
HasFormula metoda vratit će True ako ćelija sadrži formulu. U suprotnom će vratiti False.
ActiveSheet.Protect
Gornji kôd koristi se za zaštitu ćelije.
Bilješka: Ćelija će biti zaštićena samo ako je zaključana. Prije nego što zaštitite ćeliju, morate je zaključati.
ActiveSheet.Unprotect
Gornji kôd koristi se za uklanjanje zaštite ćelije.
Molimo slijedite dolje za kôd
'Dodajte donji kod u modul radnog lista Opcija Eksplicitna privatna pod -radna tabla_SelectionChange (ByVal cilj kao raspon) Dim rng as Range Za svaki rng u Target.Cells Ako je rng.HasFormula Zatim ActiveSheet.Protect Ostalo ActiveSheet.Unprotect End If Next rng End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte
