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

2629

    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
    • 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. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      45
      3141
    2. Kova karman laki

      Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko
      Hindulaisuus
      508
      1917
    3. Päivieni piristys, missä olet?

      Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei
      Ikävä
      17
      1900
    4. Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia

      jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si
      Maailman menoa
      78
      1690
    5. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      18
      1502
    6. Jos sinä olisit pyrkimässä elämääni takaisin

      Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo
      Tunteet
      43
      1388
    7. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      26
      1322
    8. Millainen kaivattusi luonne on?

      Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?
      Ikävä
      90
      1319
    9. Helena ja Mikko Koivun ero jatkuu edelleen ja loppua ei näy.

      Voi eikä, miksi menee noin vaikeaksi avioero ja sopua ei tää ex- pari vaan saa.
      Kotimaiset julkkisjuorut
      116
      1157
    10. UPM suunnittelee paperintuotannon lopettamista LPR:ssa

      Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa
      Lappeenranta
      110
      1123
    Aihe