SUOJAUS

Täh2

Miten saan suojattua asiakirjan että sitä ei voi tallentaa ilman salasanaa. Tarkoitus olisi että asiakirjaa voi mukata ja tulostaa mutta ei tallentaa.

2

96

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vaihda salasana sopivaksi.
      thisWorkbook moduuliin...

      Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      Dim salasana As String
      If Not InputBox("Anna salasana tallennukseen", "Salasanalla tallennus") = "kunde" Then
      MsgBox "salasana väärä, et voi tallentaa!", vbInformation
      Cancel = True
      Else

      End If

      End Sub

      Keep EXCELing
      @Kunde

    • herra nro 26

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?

      Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.
      Maailman menoa
      275
      3888
    2. Riikka jytkytti naftan hinnan jo yli 2,3 euroon

      Sannan aikaan esimerkiksi dieseliä selvästi kalliimpaa bensaakin sai 1,3 eurolla. https://www.is.fi/autot/art-200001188
      Maailman menoa
      73
      3486
    3. Vasemmiston feministinaiset puolustavat islamia

      mikä on täysin järjenvastaista, mutta eihän femakoilla paljon järkeä olekkaan, leijuvat siellä omassa kuplassaan. Myös
      Maailman menoa
      145
      2496
    4. Ei se halua mitään!!

      Arkailija koko tyyppi!
      Ikävä
      56
      2276
    5. Jätän tähän viesti kaivatullesi

      jos jotain jäänyt sanomatta. 👇
      Ikävä
      154
      1892
    6. Olet kyllä erittäin huono yhdistelemään pisteitä.

      Etkä vain sinä vaan kaikki teilläpäin.
      Ikävä
      34
      1697
    7. Onko jo liian "vanha" vai mitä mieltä olet? 57-v. saa raakaa tekstiä tv:ssä

      The Summit Suomi tv-ohjelmassa 57-vuotiaan Maritan jaksamista kyseenalaistettiin iän takia. Onko tässä iässä jo liian "v
      50 plus
      30
      1278
    8. Etkö sitten itse

      ole koskaan ylittänyt rajaa?
      Ikävä
      33
      1255
    9. Mitä järkeä iskeä

      Varattua ja yrittää saada sitä eroamaan
      Ikävä
      48
      1159
    10. Uskotko että vielä

      Kohtaisimme?
      Ikävä
      23
      1146
    Aihe