kako zabraniti unos formule

[ pile_naucnik @ 14.07.2011. 09:40 ] @

U excel fajlu imam više radnih listova, gde su određene ćelije zaključane.
S obzirom da se taj excel fajl puni podacima iz više takvih fajlova gde mi se sve automatski sabira, a zatim iz tog zbirnog fajla u wordu vučem hiperlink i na taj način prebacujem podatke u word, interesuje me kako korisnicima da onemogućim da unose formulu (odnosno znak jednakosti) u ćelije.

Ovo mi je potrebno iz razloga što korisnici u svojim excel fajlovima sabiraju podatke, npr po danima i onda ih kopiraju i ubace u excel fajl koji meni šalju. Ja te fajlove smeštam u isti direktorijum i u jednom fajlu (zbirni) vučem podatke iz više excel fajlova i sabiram ih.
Poroblem se javlja, kada u nekom od tih ecxel fajlova imam link prema drugim exel fajlovima.
Ne znam da li sam bio jasan, ali da sumiram, želim da korisnicima onemogućim unos formule u ćeliju.
Hvala

[ Ivek33 @ 14.07.2011. 11:22 ] @

Citat:

pile_naucnik: interesuje me kako korisnicima da onemogućim da unose formulu (odnosno znak jednakosti) u ćelije.

Pogledaj link Kako zabraniti upis formule u Excelu
Vodi računa da zaštitiš Sheet ako treba da netko ne ukloni restrikciju

[ pile_naucnik @ 14.07.2011. 17:46 ] @

Hvala na odgovorima.
Primenio sam to sto ste napisali i radi, ali samo kada pokusam da unesem neku formulu.
Kada iz drugog sheet-a kopiram formulu, sa paste vrednost se unosi u celiju.
Ipak sam morao da problem resim pomocu VBA.

Svejedno, hvala puno na odgovoirima, i u njima sam naucio nesto novo!!!

[ Ivek33 @ 14.07.2011. 22:37 ] @

Citat:

pile_naucnik: Ipak sam morao da problem resim pomocu VBA.

Bilo bi lijepo od tebe da onda radi drugih čitalaca teme napišeš kako si riješio problem.
pozz

[ pile_naucnik @ 15.07.2011. 13:23 ] @

Code:

Private Sub cmdLogickaKontrola_Click()

    Sheet2.Range("J13:M13").Select
    Selection.Copy
    nalepiSpecial

    Sheet2.Range("P13:R13").Select
    Selection.Copy
    nalepiSpecial

   Sheet6.Select

    Sheet6.Range("F11:F29").Select
    Selection.Copy
    nalepiSpecial

    Sheet2.Activate
    Range("J13").Select

End Sub

Function nalepiSpecial()
    Selection.pasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
End Function

Evo kako sam resio. Morao sam iz koda da selektujem ćelije u više različitih opsega, jer su mi neke ćelije zaključane (u njima se nalaze formule koje želim da ostanu netaknute).
Kada sam sve završio, palo mi je na pamet da sam mogao to i drugačije, odnosno moga sam da prvo izvršim proveru da li je ćelija zaključana, pa ako nije onda da se izvrši kod, a ako jeste da se preskoči.
I to ću uraditi kada budem imao vremena, pa ću postaviti ovde.

[ Ivek33 @ 15.07.2011. 15:54 ] @

OK riješio si ,
u principu vidim tek sada smisao teme i što želiš (nadam se).
Ako želiš spriječiti pogreške od strane korisnika koji ti šalju files, zašto ne napraviš jedan pripremljen, obrađen i zaključan file (npr: workbook AAA.xls kao template) koji će vući podatke iz neke "XYZ.xls template" workbook koju korisnik popunjava (a naveo si da popunjavaju neke podatke).
Kada popuni sve podatke u XYZ.xls prebaci se na AAA.xls koji će povući sve potrebne podatke iz popunjavane workbook i klikne na button za macro koji sve podatke (formule) u dotičnom sheetu jednostavno pretvori u vrijednosti i snimi pod nekim novim nazivom AAA-2.xls. Tako obrađen file pošalje tebi i time si dobio neku sigurnost.

BTW: ne vidim razloga što ne bi workbook (koja je read only) koju popunjava korisnik zaključao (a ostavio otključane ćelije samo one koju treba popuniti korisnik?)
Kada je popuni snimi pod novim imenom i pošalje tebi.

No dobro ovo su samo moja razmišljanja povodom mojih pretpostavki

pozdrav

[ pile_naucnik @ 15.07.2011. 19:20 ] @

Moj workbook vuče podatke od 10 korisnika i ima 15 sheet-ova, isto kao i korisnički.
Na korisničkim fajlovima imam VBA kod, koji mi je obavezan jer se klikom na cmd vrši logička provera unetih podataka, uglavnom unakrsno iz više tabela.
Tako da mi nisu problem samo pogrešni unosi, već i dobro uneti podaci, koji logični nisu dobri.
Btw, dešava mi se da mi moja zbirna tabela ponekad u nekoliko ćelija ne sabere ništa. Znam koji korisnici mogu biti problem, ali ne znam šta je u pitanju.
Njihove ćelije ostanu nepopunjene, kada stanem na njih ništa se ne vidi, ali nešto ipak u njima ima, jer nakon što upišem nulu u njihovoj ćeliji (tabeli), u mojoj zbirnoj se saberu svi podaci?

[ Ivek33 @ 16.07.2011. 08:12 ] @

Citat:

pile_naucnik: Njihove ćelije ostanu nepopunjene, kada stanem na njih ništa se ne vidi, ali nešto ipak u njima ima, jer nakon što upišem nulu u njihovoj ćeliji (tabeli), u mojoj zbirnoj se saberu svi podaci?

Ja mislim da je onda problem u tvojoj zbirnoj tablici

nadam se da ćeš riješiti problem
pozz

[ lukarim @ 29.10.2011. 18:36 ] @

U modul lista gdje se ne smiju pisati formule unesi, nisam mnogo provjeravao ali moralo bi raditi
važno je da se znak jednako(=) može upisati

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = False Then Exit Sub
Target = ""
End Sub
www.croexcel.com