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

399

Ää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. Mikaela Nylander: Jos pakkoruotsi poistetaan, niin ruotsin kielen asema romahtaa

      (Nylander on vanha RKP:nen) Mutta niin heikossa vedossa muumiruotsi siis on Suomessa, että vain tekohengityksellä se pys
      Maailman menoa
      65
      2572

    2. Nainen aion pilata elämäsi täysin, opetus sulle, että pelasit väärän ihmisen sydämellä.

      Empatiani sua kohtaan katosi siinä kohtaan, kun teit tietoisen valinnan leikkiä mun sydämellä. Luulet olevas joku älykäs
      Ikävä
      241
      1585

    3. Kaivattusi nimi vol.3

      Kaipaajankin nimi olisi kiva. 🥰
      Ikävä
      94
      1380

    4. 6 vkoa kulunut ilman sua

      …ihme että olen vielä hengissä. 😔 Kyynelillä pessyt lattioita. Rakastan ja odotan sua ikuisesti❤️Projekti jäi kesken jo
      Ikävä
      8
      901

    5. Viestisi kaipaamallesi ihmiselle

      Mitä ajattelet tilanteestanne tänään?
      Ikävä
      65
      882

    6. Jotenkin se harmittaa

      Etten voinut antaa itselleni mahdollisuutta tutustua. Tulit vain liian lähelle ja syvälle kemia oli alusta alkaen liian
      Ikävä
      46
      700

    7. Olen yrittänyt tavoittaa sinut kolmesti

      Elämän aikana. Kahdesti hakenut numeroa ja lähettänyt jollekkin nimisellesi viestin. Kerran aivan summassa keksimääni os
      Ikävä
      2
      652

    8. Haluan kysyä vain yhden asian

      Miksi et koskaan halunnut kohdata minua kasvotusten silloin, kun molemmilla oli tunteita? Kaiken muun olen jo hyväksymäs
      Ikävä
      39
      579

    9. Mies aion pilata elämäsi

      Ole hyvä vaan, olet ansainnut sen.
      Ikävä
      73
      562

    10. Kauneus on katsojan silmissä

      Mitä kaunista sun silmät näkevät?
      Ikävä
      22
      512
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt