[es] - zabrana kopiranja na radnom listu

MilosPitanje
Milos Milosevic
Beograd, Banka

Član broj: 184729
Poruke: 7
*.internet.krstarica.net.

Profil

^{14.06.2008. u 13:23 - pre 192 meseci}

Napravi sam tabele u ekselu, ogranicio unos podataka u celijama, zakljucao odredjene celije, zakljucao ceo sheet medjuti polja koja trebe ada popunjavaju razliciti korisnici i dalje se mogu kopirati a to mi remeti sve formule koje ogranicavaju unos podataka bas u ta polja? Kako oco da prevazdjem?

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: zabrana kopiranja na radnom listu

^{14.06.2008. u 16:52 - pre 192 meseci}

Citat:

MilosPitanje: korisnici i dalje se mogu kopirati a to mi remeti sve formule ?

koliko sam shvatio želiš zabraniti kopiranje sa određenog radnog lista bilo koju nezaključanu ćeliju a to znači i mogućnost selektiranja mišem nezaključane ćelije.

Ako to zabraniš onda korisnici neće moći unositi podatke koje trebaju i smiju.

Vjeruj, i mene to zanima ali mislim da nema mogućnosti osim možda neki Macro koji će zabraniti Copy naredbu a i to se pitam može li ?

pa sačekat ćemo da se jave ostali

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: zabrana kopiranja na radnom listu

^{14.06.2008. u 18:38 - pre 192 meseci}

Tako je Ivek, ako zabrani selektovanje celija da ih ne bi kopirao nece moci ni da unosi vrednosti u njih.
Ali bi mogao da napravi svoju formu koja sluzi za unos i promenu vrednosti, a sve ostalo radi Excelov engine.
No, problem moze da se resi i tako sto cemo iz koda da zabranimo koriscenje precica Ctrl+C, pristup
meniju Edit/Copy, odgovarajucem alatu na Standard paleti alata ali i desni taster misa.

Evo koda koji sam davno pokupio negde i koristio u par navrata.

Code:

Private Sub Workbook_Activate()
     With Application
          .CutCopyMode = False
          .CellDragAndDrop = False
     End With
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
     Cancel = True
     MsgBox "Right click menu deactivated." & vbCrLf & "Cannot copy or ''drag & drop''.", 16, "For this file:"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     With Application
          .OnKey "^c", ""
          .CutCopyMode = False
     End With
End Sub

Private Sub Workbook_Deactivate()
     With Application
          .CellDragAndDrop = True
          .OnKey "^c"
          .CutCopyMode = False
     End With
End Sub

Pozdrav

Odgovor na temu

MilosPitanje
Milos Milosevic
Beograd, Banka

Član broj: 184729
Poruke: 7
*.internet.krstarica.net.

Profil

Re: zabrana kopiranja na radnom listu

^{14.06.2008. u 22:09 - pre 192 meseci}

Svaka cas ovo radi odlicno, ali ostaje jos problem kada celiju posle pojacljivanja krstica razvuces u to slucaju moze i dalje da se kopira.

Odgovor na temu

MilosPitanje
Milos Milosevic
Beograd, Banka

Član broj: 184729
Poruke: 7
*.internet.krstarica.net.

Profil

Re: zabrana kopiranja na radnom listu

^{15.06.2008. u 08:22 - pre 192 meseci}

Ipak je jutro pametnije od veceri ovde je stvar resena...posle jednog optvaranja i zatvaranja fajla vise nije moguce kopiranje.
Hvala timmy!!!

Odgovor na temu