Voinko mitenkään suojata muotoilun excel-taulukossa niin, että kun kopioi tietoja solusta toiseen, "taulukkopohja" jää ennalleen? Tiedän että voi kopioida vain pelkän tekstin tai kaavan, mutta taulukkoa käyttävät muutkin, ja tämä tahtoo unohtua.
Kiitos avusta.
muotoilun suojaaminen
opintiellä
7
2693
Vastaukset
- A.O.
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.- Opintiellä
Tarkoitukseni on että pohjana oleva taulukko toimisi ikäänkuin lomakkeena, jonka värit viivat, fontit yms. säilyisivät muuttumattomina, vaikka muut ihmiset täyttävätkin tietoja siihen.
Antamallasi vihjeellä, en kuitenkaan onnistunut.
Voiko ohjettasi täsmentää? - A.O.
Opintiellä kirjoitti:
Tarkoitukseni on että pohjana oleva taulukko toimisi ikäänkuin lomakkeena, jonka värit viivat, fontit yms. säilyisivät muuttumattomina, vaikka muut ihmiset täyttävätkin tietoja siihen.
Antamallasi vihjeellä, en kuitenkaan onnistunut.
Voiko ohjettasi täsmentää?Kyllä se onnistuu.
Ekaks värittelet ja muotoilet asiakirjan. Sitten klikkaat aktiivisiksi kaikki ne solut joita muutkin saa muutella (pidä ctrl alhaalla ja klikkaile). Sitten painat hiiren 2. näppäintä ja valitset 'Format Cells' (muotoile solu) siellä valitset 'protection´(suojaus) ja otat ruksin pois 'locked' (lukittu) kohdasta. Tämän jälkeen teet sen edellisen ohjeen mukaan. Nyt kaikki muut solut on suojattuja paitsi äsken määritellyt joita voi edelleen muokata.
- Jaakkoz
Ei onnistu pelkkien viivojen ja värien lukitseminen sieltä...
- makroakehiin
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 - Tämmöinen
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. - Kundepuu
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Päivi Räsänen vs. Abbas Bahmanpour
(Bahmanpour on imaami Helsingissä) Syyttäjä siis jahtaa edelleen Räsästä tämän H-puheista, joissa hän on ilmeisesti vaa1245191Demokratian uhka: Perussuomalaiset ja polarisoiva "me ja muut" -ajattelu
Laurence Rees varoittaa, kuinka demokratian heikkeneminen ja autoritaaristen liikkeiden nousu voidaan liittää "me ja muu1814915"Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana
Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste693369Palkansaajan oikeus nauttia työuransa hedelmistä
Työeläkejärjestelmä on verrattavissa pyramidihuijaukseen, jossa alemmat tasot, eli nykyiset palkansaajat, toimivat maksa1072966Monella äärivasemmistolaisella C-paperit armeijasta
Kuinka kävisi sodan tullen noille? Puolustusvoimat huomauttaa, että C-luokituksen saaneiden sijoittumisesta sodan aikan242282Onko rajojen kiinnipitäminen ihmisoikeuksien vastaista?
Maahanmuutosta puhutaan usein niin kuin kyse olisi vain numeroista ja rajoista. Kyse on kumminkin ihmisistä, jotka halua2361712- 991279
Toivottavasti odotat minua
Koitan järjestellä asiani niin, että voin olla kanssasi. On valtava ikävä sinua.771261Huomenta naiselle
Toivottavasti tiedät, etten ole koskaan tuntenut ketään kohtaan näin voimakkaasti. Olen tietenkin meistä epävarma silti.74990Hurraa! Oon vihdoin vapaa J:stä
Poistin numerosi, poistin chattimme. En halua sua enää enkä odota sulta mitään.96927