muotoilun suojaaminen

Mene "tools" -valikkon ja valitse "protection" ja siitä "protect sheet"

(työkalut, suojaus... )

Siellä aukeavasta valikosta valitset vaan mitä saa ja mitä ei saa tehdä ja painat OK.

Ei onnistu pelkkien viivojen ja värien lukitseminen sieltä...

Tuolla kysyjällä taitaa olla sama tarkoitus (engl.) ja saa siihen vastaukseksi "yksinkertaisen" näköisen makron.
https://superuser.com/questions/392507/prevent-excel-2010-user-from-pasting-formatting-into-cell

Moduliin:
Sub Paste()
    If ThisWorkbook.Name = ActiveWorkbook.Name Then
        Selection.PasteSpecial Paste:=xlPasteFormulas
    Else
        Selection.PasteSpecial Paste:=xlPasteAll
    End If
End Sub

Kyseisen sivun moduliin:
Private Sub Worksheet_Activate()
Application.MacroOptions Macro:="Paste", Description:="", ShortcutKey:="v"
End Sub

Private Sub Worksheet_Deactivate()
Application.MacroOptions Macro:="Paste", Description:="", ShortcutKey:=""
End Sub

Sivun moduliin tuleva Worksheet_Activate-makro kytkee k.o. sivulle tultaessa Paste-makron näppäinyhdistelmään Ctrl v. Toinen palauttaa toiminnan normaaliksi sivulta poistuttaessa, mutta se ei toimi mentäessä toiseen työkirjaan. Sen takia Paste-makron ehto rajoittaa poikkeavan toiminnan vain k.o. työkirjaan. Kopiointi muulla tavoin kuin käyttämällä Ctrl v toimii ennallaan.

Edellä olleen linkin viritys on monipuolisempi, mutta ei sekään kokonaan estä muotoilujen muuttamista.

Kaikki mitä voi tehdä liitä komennolla...
muotoile sopivaksi
suojattavan taulukon moduuliin...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vikasuoritus As String
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Range("A1:C10"), Target) Is Nothing Then
vikasuoritus = Application.CommandBars("Standard").Controls("&Undo").List(1)
If Left(vikasuoritus, 5) = "Paste" Then
Application.Undo
Selection.PasteSpecial Paste:=xlPasteFormulas 'Formulas are pasted.
'Selection.PasteSpecial Paste:=xlPasteValues 'Values are pasted.
'Selection.PasteSpecial Paste:=xlPasteAllExceptBorders 'Everything except borders will be pasted.
'Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats 'Everything will be pasted and conditional formats will be merged.
'Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme ' Everything will be pasted using the source theme.
'Selection.PasteSpecial Paste:=xlPasteColumnWidths 'Copied column width is pasted.
'Selection.PasteSpecial Paste:=xlPasteComments ' Comments are pasted.
'Selection.PasteSpecial Paste:=xlPasteFormats 'Copied source format is pasted.
'Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats 'Formulas and Number formats are pasted. 'Everything except borders will be pasted.
'Selection.PasteSpecial Paste:=xlPasteValidation 'Validations are pasted.
'Selection.PasteSpecial Paste:=xlPasteAll 'Everything will be pasted.
'Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats 'Values and Number formats are pasted.
End If
End If
Application.EnableEvents = True
End Sub

Keep EXCEling
@Kunde