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

525

Äänestä

    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

      • kunde
        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
        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

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. S-kauppa nosti hintoja, K-kauppa laski

      Elintarvikkeiden arvonlisävero laski vuodenvaihteessa 13,5 prosenttiin. S-kauppa siirsi alennuksen suoraan katteisiin pi
      Maailman menoa
      191
      7858

    2. Hiihtäjä Vilma Nissisen kommentit aiheutti paniikkia

      ja hernettä vedettiin nenään. Nissinen kertoi torstaina haastattelussa, kun häneltä kysyttiin, että tykkääkö hän hiihtä
      Maailman menoa
      142
      5375

    3. Vasemmistoliiton Minja Koskela ihailee suunnattomasti Maduroa

      Minjan mukaan Suomen hallituksen pitäisi tuomita vasemmistodiktaattorin ja huumelordin tuominen oikeuden eteen. https:/
      Maailman menoa
      141
      4301

    4. Perussuomalaisten Jani Mäkelä ihailee suunnattomasti Maduroa

      Janin mukaan Suomen hallituksen pitäisi tuomita diktaattorin ja huumelordin tuominen oikeuden eteen.
      Maailman menoa
      4
      3499

    5. Huuto yltyy persujen piirissä Venezuelan johdosta.

      Kohta kakofonia yltyy kun persut tajuavat mitä Venezuelassa tapahtui. Von den Leydenki jo kipuilee kuten persut EU:ssa y
      Maailman menoa
      73
      2877

    6. Vasemmistolaiset venäjämieliset kitisee jenkkien iskusta Venezuelaan

      kuten teki Yle-ykkösen uutisetkin eilen, ja avuksi haettiin taas vasemmistoproffa Koskenniemi paasaamaan - vanha kääpä.
      Maailman menoa
      17
      2637

    7. Persuilla paniikki, kun diktaattorit yksi kerrallaan kaatuvat

      Hallapersut halusivat sivarineidostaan sotilasjuntan komentajan Suomeen, jotta persuaatteen mukaiset puhdistukset olisi
      Maailman menoa
      11
      2553

    8. Koska mennään retkeilemään?

      pusi pusi 😗
      Ikävä
      282
      2479

    9. Nyt ottaa persua pattiin: sähköauto joulukuun myydyin

      🤣 prööt prööt pakoputkellaan pörisevää persua ottaa nyt saamaristi pattiin, kun paristoilla kulkeva sähköauto on noussu
      Maailman menoa
      147
      2400

    10. Yhdysvaltain hyökkäys Venezuelaan on YK:n peruskirjan mukaan laiton hyökkäyssota

      Oman sävynsä tähän tuo vielä se, että hyökkäys kohdistettiin nimenomaan valtiojohtoa vastaan. Toki, kun tavoitteena on v
      Maailman menoa
      578
      2202
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt