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?
zabrana kopiranja na radnom listu
Zaključano
Zakačeno
Citat:
MilosPitanje: korisnici i dalje se mogu kopirati a to mi remeti sve formule ?
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
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.
Pozdrav
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
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
Svaka cas ovo radi odlicno, ali ostaje jos problem kada celiju posle pojacljivanja krstica razvuces u to slucaju moze i dalje da se kopira.
Ipak je jutro pametnije od veceri ovde je stvar resena...posle jednog optvaranja i zatvaranja fajla vise nije moguce kopiranje.
Hvala timmy!!!
Hvala timmy!!!