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

508

    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
        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. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      93
      7568
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      40
      3622
    3. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      102
      1846
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      24
      1060
    5. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      32
      943
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      27
      911
    7. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      53
      807
    8. Olisinko mä voinut käsittää sut väärin

      Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt
      Ikävä
      31
      732
    9. Tähän vaivaan ei auta kuin kaksi asiaa

      1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄
      Ikävä
      60
      729
    10. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      26
      662
    Aihe