Opmaak ECHT beveiligen en vastzetten

[rvisser1988]

Goedendag,

Als ik opmaak (lettertype en grootte) tegen bewerken beveilig via Controleren > Blad beveiligen, kan ik evengoed nog iets plakken met een totaal andere opmaak.
De Excelsheet wordt hierdoor onoverzichtelijk.

Is er een oplossing om bijvoorbeeld puur en alleen Arial 10 in te mogen voeren en te plakken? (wel na beveiligen, gezien deze optie sowieso geactiveerd is.)

Natuurlijk is er plakken speciaal, maar er werken ook mensen met de sheet die digibeet zijn. Ook is er waarschijnlijk via instellingen per computer te zeggen dat de opmaak standaard moet zijn, maar onze werkcomputers worden elke dag gereset naar de basisinstellingen.

Ik hoor het graag,

Bij voorbaat dank,

Rick

 

[Cobbe]

Zet zoiets in Thisworkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 With Selection.Font
        .Name = "Arial"
        .Size = 10
 End With
End Sub

 

[rvisser1988]

Zet zoiets in Thisworkbook:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 With Selection.Font
        .Name = "Arial"
        .Size = 10
 End With
End Sub

Fantastisch!!!!

Hij kan wel nog anders plakken, maar als je nogmaals over de cel heengaat, wordt ie Arial 10! (dit is zeker niet op te lossen?)

Erg bedankt!

 

[Cobbe]

Je kan het bereik afbakenen en deze testen:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 With ActiveSheet.Range("A1:Z35").Font
        .Name = "Arial"
        .Size = 10
 End With
End Sub

 

[jkpieterse]

Alternatief....

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sPasteTxt As String
    If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1033 Then
        sPasteTxt = "*Paste*"
    Else
        sPasteTxt = "*Plak*"
    End If
    If Application.CommandBars("Worksheet menu bar").FindControl(ID:=128, recursive:=True).Caption Like sPasteTxt Then
        Application.Undo
        ActiveCell.Activate
        ActiveCell.PasteSpecial xlPasteValues
    End If
End Sub