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
417
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
Vesikin maksaa, miksei hengitysilma?
Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial341952Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin
Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras1651890Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä
Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva3801782Mies profiloin sinut
Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.2161248- 921113
Kiantama kartelli
Onko alhaisempaa kuin toimia ensin kartellissa ja lopuksi koittaa pelastaa nahkasa vasikoimalla muut kun jää kiinni? Eip34970- 95765
Kiantama oy
Tämän päivän uutiset.....https://www.is.fi/taloussanomat/art-2000012036470.html.15698Saako 60 v vielä töitä? Arto Nyberg puhuu suoraan elämästä ilman töitä
Arto Nyberg täyttää tänään 60 v. Onnea! Nyberg totuttiin näkemään suoran haastatteluohjelman kapteenina vuodesta toise47665- 32664