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
VB koodi suojattu salanalla uuteen taulukkoon?
1
362
Vastaukset
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ä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1252295En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1031357Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3191079Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1041057- 1091051
Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.86929On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44700Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252689Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33670- 50664