Waarom werkt het niet

[longron]

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
:

 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

 

[SjonR]

Wat ik inmiddels heb geleerd is dat de username soms met kleine letters kan worden ingevoerd en het dan niet matched met de invoer die je verwacht.

Dus misschien dat dit helpt:

If UCase(Environ("UserName")) = "RONALDS" Then

 

[longron]

Vrees dat dit niet helpt.

het lijkt erop dat zodra ik Application.CutCopyMode = False of Application.CutCopyMode = true in de routine zet hij niet meer kan plakken ongeacht of ik er wel of niets voor zet zoals environ..

 

[SjonR]

Maar waarop loopt de code fout dan?

Die regel is cruciaal voor de oplossing.

 

[edmoor]

Daarnaast is 1 regel voldoende:

Public Sub blokeer_Kopie()
    Application.CutCopyMode = UCase(Environ("Username")) = "RONALDS"
End Sub

Maar wat probeer je precies te bereiken en op welk moment?

 

[longron]

Hai Edmoor,

de routine ( heel groot woord voor dit ) moet voorkomen dat collega's binnen het bestand de layout verstoren en cellen doorkopieren.
dit om te voorkomen dat er fouten ontstaan.
Ikzelf moet dit wel kunnen.
Vanuit een andere macro wordt de gehele layout opgebouwd waarbij ook veel wordt gekopiereerd.

Hoop da je me begrijpt.

Groetjes
Ronald

 

[edmoor]

Dus als ze naar een ander tabblad gaan wil je dat een eventueel gestarte Knip of kopieer actie wordt uitgeschakeld?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CutCopyMode = UCase(Environ("Username")) = "RONALDS"
End Sub

 

[longron]

Eigenlijk wil ik voorkomen dat ze op welk tabblad dan ook kunnen knippen. plakken en verschuiven.
Alleen ik mag de layout aanpassen en de ook kopieren en plakken.

 

[edmoor]

Dus je hebt al getest wat ik in #7 liet zien?

 

[longron]

Zeker gezien en geprobeert.

gekke is alleen dat ik dan niet kan kopieren. dus niemand meer.

enig idee.

 

[edmoor]

En wat levert dit dan op?

Msgbox UCase(Environ("Username"))

 

[longron]

Dan krijg ik netjes terug " RONALDS "

 

[edmoor]

Het werkt inderdaad niet.
Ik ga eens kijken.

 

[longron]

Top Thanks

 

[edmoor]

Ok, doe het zo:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not UCase(Environ("Username")) = "RONALDS" Then Application.CutCopyMode = False
End Sub

 

[longron]

Yesssss,

top dank je.
dit werkt.

 

[SjonR]

super, wel even op opgelost zetten graag.