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