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

412

Ää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. Nato kaatamassa Petterin haaveileman Tunnin junan?

      Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,
      Maailman menoa
      69
      4977

    2. Puoluebarometri: Marinin hallituksella 7 parasta mittaustulosta

      Orpon hallitusta pitää huonona 2/3 kansalaisista, joka on aika hyvin linjassa hallituspuolueiden yhteenlasketun kannatuk
      Maailman menoa
      34
      3768

    3. Donald Trump pääsi samalle listalle Sanna Marinin kanssa

      Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/5937699
      Maailman menoa
      24
      3369

    4. Vieläkö olet

      Rakastunut minuun? Minä sinuun
      Ikävä
      81
      2367

    5. Ei siinä kauan

      Menisi jos olisimme kahden
      Ikävä
      24
      1899

    6. Tekeekö hän

      Tekeekö hän sinut h*lluksi ja millä tavalla? Uusi yritys, kun edellinen aloitus poistettiin.
      Ikävä
      27
      1581

    7. Laine voitti oikeudessa

      Onnea Savonlinna! Laine voitti oikeudessa kuten arvelinkin ja lieköhän palaa valtaisuimelleen?
      Savonlinna
      40
      1532

    8. Grahn-laasonen taas todisti millaista porukkaa

      kokoomusloiset ovat...työttömät jäävät kuulemma kotiin nukkumaan kun naapuri lähtee töihin...eikös taannoin kokoomuslois
      Maailman menoa
      333
      1499

    9. Puistotyöntekijät

      Miksi ei siivoojia näy. Näin hyvät ilmat. Voisi kerätä roskat. Onko rahat loppu. 🤔🤔🤔
      Ähtäri
      14
      1463

    10. Onko kaivatullasi iso ego? Entä sinulla?

      Vaikuttaako jommankumman ego jotenkin siihen, että ette voi lähentyä?
      Ikävä
      33
      1330
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt