Beste,
ik wil in een excel bestand via VBA bepalen dat ik wel cellen mag kopieren en plakken maar andere niet.
Dus afhankelijk van loginnaam
ik gebruik hiervoor
:
Deze routine wordt aangeroepen vanaf
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Het werkt niet.
Hoe moet ik dit invliegen?
thanks
ik wil in een excel bestand via VBA bepalen dat ik wel cellen mag kopieren en plakken maar andere niet.
Dus afhankelijk van loginnaam
ik gebruik hiervoor
:
Code:
Public Sub blokeer_Kopie()
'Application.CutCopyMode = False
'MsgBox Environ("UserName")
If Environ("UserName") = "RonaldS" Then
Application.CutCopyMode = True
Else
Application.CutCopyMode = False
End If
On Error Resume Next
On Error GoTo 0
End Sub
Deze routine wordt aangeroepen vanaf
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Het werkt niet.
Hoe moet ik dit invliegen?
thanks