Voorwaardelijke opmaak vergrendelen

[jammi]

Beste,

Is er een mogelijkheid om cellen met een voorwaardelijke opmaak te vergrendelen.
Als er een cel gekopieerd word buiten een gebied met voorwaardelijke opmaak, en dit in het veld geplakt wordt binnen het gebied is de voorwaardelijke opmaak verstoord.
In mijn voorbeeld is cel G12 verstoord.

Heeft hier iemand een oplossing voor?

Gr Peter

 

[JEC.]

Je zou deze achter je werkblad kunnen zetten

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D6:L20")) Is Nothing Then Application.CutCopyMode = False
End Sub

 

[jammi]

Dit is inderdaad een oplossing, maar is het ook mogelijk dat er wel getallen in geplakt kunnen worden
Dit omdat er soms grote getallen met lettercombinaties gekopieerd worden uit andere cellen of een PDF bestand.
Maar door het kopiëren verandert de voorwaardelijke opmaak.

Alvast bedankt
Peter

 

[jammi]

Is het ook mogelijk dat er alleen tekst in het gebied wordt geplakt, dus zonder opmaak.
Dat het dus niet mogelijk is het format te wijzigen van de desbetreffende cellen

 

[JEC.]

Probeer deze eens:

Achter je werkblad:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D6:L20")) Is Nothing Then
  Cancel = True
  MsgBox "Rechtermuisknop is in dit gebied uitgeschakeld, plakken doe je met control + v", vbOKOnly, "Let op"
End If
End Sub

Deze achter een module: (koppel deze macro aan sneltoets control + v)

Sub Plakwaarden()
ActiveCell.PasteSpecial xlPasteValues
End Sub

 

[jammi]

Hallo JVEER

De bescherming lukt maar ik zie alleen dat de sneltoets control + v niet werkt, ik heb deze achter de sneltoets geplaatst.
De waarde wordt niet als waarde geplakt?

Alvast bedankt

 

[JEC.]

Ik kan niet in je bestand terugvinden dat je macro hebt gekoppeld aan cntrl v.

Ontwikkelaars --> macro's --> Plakwaarden --> opties en dan een "v" in het vak zetten (kleine letter)

 

[jammi]

Hallo JVeer.

Bedankt het werkt inderdaad nu zoals het zou moeten werken.
Nogmaals bedankt.

 

[JEC.]

Mooizo:thumb: