muotoilun suojaaminen

opintiellä

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.

7

2452

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Järkyttävä tieto Purrasta

      Purra tapasi nykyisen miehensä täällä. Suomi24:ssä! Tulipa likainen olo. Nyt loppuu tämä roikkuminen tällä palstalla.
      Maailman menoa
      233
      5260
    2. Näin asia on

      Tiedän ettei hän koskaan aio lähestyä minua eikä niin ole koskaan aikonutkaan, eikä lähesty ja enkä minä enää tee sitä k
      Ikävä
      23
      3700
    3. Taas varoitusta lumesta ja jäästä

      Ai kauhea! Vakava säävaroitus Lumi-/jäävaroitus Varsinais-Suomi, Satakunta, Uusimaa, Kanta-Häme, Päijät-Häme, Pirkanmaa,
      Maailman menoa
      18
      2184
    4. Mikseivät toimittajat vaadi Orpoa vastuuseen lupauksistaan

      Missä ne 100.000 uutta työpaikkaa muka ovat? Eivät yhtään missään. Näin sitä Suomessa voi puhua ja luvata mitä sattuu. E
      Maailman menoa
      279
      2123
    5. Aavistan tai oikeastaan

      tiedän, että olet hulluna minuun. Mutta ilman kommunikointia, tällaisenaan tilanne ja kaikki draama ovat mun näkökulmast
      Ikävä
      46
      1378
    6. Mistä erotat onko joku kiinnostunut vai muuten mukava?

      Voi sekaantua yleiseen ystävällisyyteen vai voiko?
      Suhteet
      161
      1249
    7. Poliisi tahtoo pääsyn 4 miljoonan suomalaisen sormenjälkiin.

      https://www.is.fi/digitoday/art-2000011009633.html Tämä sormenjälkiin poliisin pääsy on erittäin tärkeä rikollisten kiin
      Maailman menoa
      128
      1131
    8. Örebro kuolleet lisääntyy.

      Nyt n, 10. Mitähän vielä. Haavoittuneet?. Kuka on ampuja, salaisuus.
      Maailman menoa
      116
      946
    9. Sulla on upeat pakarahalihakset

      todella hyvä muoto...
      Ikävä
      34
      900
    10. Tiistaipäivää pakkastakin on

      Hyvää päivää huomentakin. Olin vähän kaupungilla käymässä 😊❤️🌞❄️☕
      Ikävä
      196
      804
    Aihe