VB koodi suojattu salanalla uuteen taulukkoon?

amateuri

Eli, minulla on VB koodin pätkä joka tallentaa taulukon eri nimelle. Taulukkoni koodi on suojattu salasanalla, mutta kun koodi tallentaa taulukon uudelle nimelle niin salasana suojaus ei pysy mukana. Vaan uuden taulukon koodia pääsee katselemaan ongelmitta. Saanko määriteltyä jonnekkin salasanan myös uudelle luodulle taulukolle?

Eli itse tallennus tapahtuu tällaisella koodin pätkällä:

Sheets(Array("1", "2", "3", "4")).Copy
ActiveWorkbook.SaveAs Filename:="C:\" & Vuosi & "_" & Kuukausi & "_" & Päivä & "_" & Tiedostonimi ".xls"
ActiveWorkbook.Close

1

400

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      ei oikein onnaa fiksusti ilman APIa, mutta testailin SendKeys komennoilla kikkailla ja toimii se silläkin ihan jees ;-)


      Excelissä Tools/Macro/Security Trusted Publisher välilehdeltä pitää laittaa ruksi kohtaan Trust Access to Visual Basic Project

      ja originaalissa pitää olla viittaus VBA puolella referenssiin Microsoft Visual Basic for Applications Extensibility 5.3
      moduuliin...

      Sub TallennaSanasanalla()
      päivä = 25
      kuukausi = 11
      vuosi = 2008
      tiedostonimi = "b"
      Sheets(Array("1", "2", "3")).Copy
      With Application

      .VBE.CommandBars("Menu Bar").Controls("Tools") _
      .Controls("VBAProject Properties...").Execute

      .SendKeys "^{TAB}"

      .SendKeys "{ }"

      .SendKeys "{TAB}" & "kunde"

      .SendKeys "{TAB}" & "kunde"

      .SendKeys "{TAB}"

      .SendKeys "{ENTER}"
      End With
      ActiveWorkbook.SaveAs Filename:="C:\" & vuosi & "_" & kuukausi & "_" & päivä & "_" & tiedostonimi & ".xls"
      ActiveWorkbook.Close
      End Sub

      Keep Excelling
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois

      Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait
      Maailman menoa
      22
      3027

    2. Tykkäsin rakas

      Tuottaa sulle nautintoa❤️🔥olet paras ja nautin itsekkin suunnattomasti
      Suhteet
      39
      2617

    3. Mies mä oon ihan helppo

      Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...
      Ikävä
      38
      1483

    4. Hyvää iltaa!

      Mikä on päivän viisaus?
      Ikävä
      84
      1350

    5. Olet onnellinen sinkku

      Näin se on nähtävä.
      Ikävä
      63
      1251

    6. Mies olen aika erakko nykyään

      Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä
      Tunteet
      40
      999

    7. Lavroville taitaa olla jo ikkuna raollaan?

      Lavrovin syytä välttää korkeita paikkoja ja ikkunoiden läheisyyttä.Ettei vain keikahda ikkunasta pihalle.
      Maailman menoa
      125
      903

    8. Haittaako jos

      kaivattusi käy tosi usein pissalla ja/tai kakalla?
      Ikävä
      32
      806

    9. Ylen johdon hulppeat bonukset alkavat taas

      Suora kopio Iltalehdestä: "Asiasta kertoo Iltalehdelle Ylen hallituksen puheenjohtaja Matti Apunen. Mitä tulospalkkioi
      Yle
      28
      656

    10. Skenaario

      Elämä ja kuolema ovat merkillisin nyytti olevaisuutta. Mutta kun kumpaakaan ei ole, syntyy lapsuksia, joita korjaamaan
      Sinkut
      59
      621
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt