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

530

    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. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      138
      3799
    2. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      336
      2944
    3. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      8
      1845
    4. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      5
      1588
    5. Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?

      Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja
      Tv-sarjat
      4
      1069
    6. Mun kaikkialta häviäminen

      Ei liity sinuun. Muista se. ❤️ Mua kiusataan enkä mä enää jaksa.
      Ikävä
      71
      914
    7. Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan

      Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar
      Kaste
      38
      854
    8. Onko teillä

      minkä tyyppisiä seksifantasioita kaivattunne kanssa?
      Ikävä
      44
      754
    9. Kuhmossa rallit alkoi ennen aikojaan

      Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat
      Kuhmo
      22
      698
    10. Inhottaa ajatus siitä

      Miten monia olet pannut.
      Ikävä
      56
      697
    Aihe