[ MilosPitanje @ 14.06.2008. 13:23 ] @
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?
[ Ivek33 @ 14.06.2008. 16:52 ] @
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
[ timmy @ 14.06.2008. 18:38 ] @
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
[ MilosPitanje @ 14.06.2008. 22:09 ] @
Svaka cas ovo radi odlicno, ali ostaje jos problem kada celiju posle pojacljivanja krstica razvuces u to slucaju moze i dalje da se kopira.
[ MilosPitanje @ 15.06.2008. 08:22 ] @
Ipak je jutro pametnije od veceri ovde je stvar resena...posle jednog optvaranja i zatvaranja fajla vise nije moguce kopiranje.
Hvala timmy!!!