Tallenna nimellä pois

en osaa

Moi Gurut

Kuka osaa neuvoa, miten saan VBA:lla excel valikosta tallennaNimellä / Save As valinnan pois.
Tarkoitus on että tiedostoa käyttävän on pakko tallentaa asiakirja luomallani macro painikkeella.

7

529

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • gurut
      • original

        Kiitos linkistä, auttaa eteenpäin.
        Nyt olisi saatava työkirjan käyttäjä hyväksymään macrot, eli pakottaa ottamaan macrot käyttöön, muuten toi edellinen ei ole aukoton.


      • gurut
        original kirjoitti:

        Kiitos linkistä, auttaa eteenpäin.
        Nyt olisi saatava työkirjan käyttäjä hyväksymään macrot, eli pakottaa ottamaan macrot käyttöön, muuten toi edellinen ei ole aukoton.

        niin jatketaan vielä hieman.

        Ao. koodi piilottaa kaikki muut paitsi yhden sheetin, sekä näyttää varoituksen jos makroja ei ole aktivoitu.
        Makrojahan ei voi aktivoida etänä, vaan käyttäjän täytyy hyväksyä niiden suoritus.

        http://www.dotxls.com/excel-security/28/how-to-make-a-user-enable-excel-macros


      • original kirjoitti:

        Kiitos linkistä, auttaa eteenpäin.
        Nyt olisi saatava työkirjan käyttäjä hyväksymään macrot, eli pakottaa ottamaan macrot käyttöön, muuten toi edellinen ei ole aukoton.

        Ainahan käyttäjä voi ajaa toiselta työkirjalta makron ja tehdä mitä vaan sun työkirjallesi jos ohjelmointitaitoa riittää...
        No asiaan.
        Makrojen suojaustasoa voit muuttaa alhaiseksi,jolloin makrojen hyväksyntää ei kysellä tai sitten teet makron, joka tekee seuraavaa
        1. Suljettaessa tai tallennettaessa piilotetaan kaikki taulukot paitsi yksi ns. pääsivu. Tälle sivulle infoa, jolla kerrot, että käyttäjän on otettava makrot käyttöön käynnistämällä työkirja uudelleen.
        2. Jos käyttäjä ei hyväksy makroja avataan excel ja vain pääsivu näkyy...
        3.Jos hyväksyy makrot niin toimii normaalisti. Käytä Excelin xlVeryHidden ominaisuutta piilottaessasi taulukot, jolloin niitä ei saa näkyviin menun kautta
        Keep Exceling :-)


      • kunde kirjoitti:

        Ainahan käyttäjä voi ajaa toiselta työkirjalta makron ja tehdä mitä vaan sun työkirjallesi jos ohjelmointitaitoa riittää...
        No asiaan.
        Makrojen suojaustasoa voit muuttaa alhaiseksi,jolloin makrojen hyväksyntää ei kysellä tai sitten teet makron, joka tekee seuraavaa
        1. Suljettaessa tai tallennettaessa piilotetaan kaikki taulukot paitsi yksi ns. pääsivu. Tälle sivulle infoa, jolla kerrot, että käyttäjän on otettava makrot käyttöön käynnistämällä työkirja uudelleen.
        2. Jos käyttäjä ei hyväksy makroja avataan excel ja vain pääsivu näkyy...
        3.Jos hyväksyy makrot niin toimii normaalisti. Käytä Excelin xlVeryHidden ominaisuutta piilottaessasi taulukot, jolloin niitä ei saa näkyviin menun kautta
        Keep Exceling :-)

        oli koneella probleemia ja ei pystynyt lähettämään viestiä ja edellinen onkin jo kertonut samat jutut sillä aikaa...


      • original
        kunde kirjoitti:

        oli koneella probleemia ja ei pystynyt lähettämään viestiä ja edellinen onkin jo kertonut samat jutut sillä aikaa...

        jaksatko vielä neuvoa.
        Miten voin yhdistää noi molempien linkkien vbat.
        siten että Sheet6 on varoitus sivu


      • original kirjoitti:

        jaksatko vielä neuvoa.
        Miten voin yhdistää noi molempien linkkien vbat.
        siten että Sheet6 on varoitus sivu

        en ole tarkistanut originaalikoodin toimivuutta...

        Private Const dsWarningSheet As String = "sheet6" 'Enter name of the Entry/Warning Page

           Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean,
        Cancel as Boolean)
        For Each ds In ActiveWorkbook.Sheets
        If LCase(dsWarningSheet) = LCase(ds.Name) Then
        ds.Visible = True
        Else
        ds.Visible = xlVeryHidden
        End If
        Next

        If SaveAsUI = True Then Cancel = True

        End Sub

           Private Sub Workbook_SheetSelectionChange(ByVal ds As Object, ByVal Target As Excel.Range)
        If LCase(ds.Name) = LCase(dsWarningSheet) Then
        For Each ds In ActiveWorkbook.Sheets
        ds.Visible = True
        Next
        ActiveSheet.Visible = xlVeryHidden
        End If
        End Sub

           Private Sub workbook_open()
        Sheets(dsWarningSheet).Select
        For Each ds In ActiveWorkbook.Sheets
        ds.Visible = True
        Next
        ActiveSheet.Visible = xlVeryHidden
        End Sub


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

    Luetuimmat keskustelut

    1. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      37
      11665
    2. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      32
      4609
    3. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      246
      2792
    4. Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

      Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
      Maailman menoa
      138
      2529
    5. Kuvaile kaivattusi

      ulkonäkö. Asiattomatkin kommentit saa laittaa. -🏚️
      Ikävä
      99
      1537
    6. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      8
      1005
    7. Et olisi niin epävarma,

      olisit varmempi, ihastuisin suhun enemmän...
      Ikävä
      82
      800
    8. 40 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke

      Jokin mättää. Eläkettä ei pidä maksaa lainkaan mamuille jos työhistoriaa ei ole vähintään 10 vuotta takana.
      Maailman menoa
      201
      771
    9. Puualan yrittäjä

      Kuka mahtaa olla? Eikö tuhkaa saa levittää metsään?
      Kauhava
      10
      698
    10. En luota sinuun

      en edelleenkään yhtään tiedä oletko lintu vai kala vai kalavale. Ja ilmeisesti haluat pitää sen niin, syitä voi vain arv
      Ikävä
      59
      683
    Aihe