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

538

    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. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      38
      4496
    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      52
      2409
    3. Kun kohtaat jotain ainutlaatuista

      ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö
      Ikävä
      48
      1452
    4. Minkälaisessa asunnossa

      haluaisit kaivattusi kanssa asua?
      Ikävä
      93
      1288
    5. Ei tämä enää tervettä oo

      Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.
      Ikävä
      28
      1257
    6. Mua ahdistaa

      Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi
      Ikävä
      38
      1188
    7. Perämoottoreiden huolto melkoisen kallista

      Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä
      Savonlinna
      54
      1159
    8. Jenkkilahkojen kastekaava

      Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan
      Kaste
      139
      994
    9. Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!

      Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin
      Kaste
      161
      975
    10. Mikä siinä on että sinkku yrittää varattua?

      Siis ihan aina yrittävät muiden puolisoita.
      Sinkut
      60
      931
    Aihe