Telefonszámunk: 1-472-0679

Hozzászólások

6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • galantailasz
    Felhasználó

      Remekül működik, köszi! Van viszont egy érdekes jelenség: amikor megnyitom, rendben frissül, de csak akkor jelenik meg a friss adat a charton, ha kézzel rámentettem.
      Egyelőre beírtam a kód végére egy ActiveWorkbook.Save-t.

      galantailasz
      Felhasználó

        +1: a

        Sheets(“mlap1″).Unprotect Password:=””
        Sheets(“mlap2″).Unprotect Password:=””
        Sheets(“mlap3″).Unprotect Password:=””
        Sheets(“mlap4″).Unprotect Password:=””

        helyett hivatkozhatom egyszerre az összes munkalapot, ha az összeset akarom levédeni/unlockolni?

        galantailasz
        Felhasználó

          Remekül működik, köszönöm!

          galantailasz
          Felhasználó

            Szia! Köszönöm a gyors választ!

            A hibaüzenetet más okozta, az adatkapcsolatoknál igazra volt állítva, h megnyitáskor automatikusan frissüljön, ezt átállítva hibaüzenet nélkül lefut a makróval a frissítés. (A várakozást nem igényli, kipróbáltam.)

            Az inputbox nekem itt nem jó, mert olyan felhasználónál kell frissülnie, aki nem ismeri a lapvédelmet feloldó kódot, ezért gondoltam, h teljesen biztonságossá téve, a makróból se legyen kinyerhető. De ha jól értem, erre nincs megoldás, h ott ne jelenítse meg.

            galantailasz
            Felhasználó

              Sziasztok!

              Imrének és Titoknak is köszönöm a segítséget! Igen, így részletesen leírva értem! 🙂

              A kódom most így néz ki, amivel több munkalapot akarok megnyitáskor automatikusan frissíteni majd lapvédelemmel ismét ellátni:

              Private Sub Workbook_Open()
              Sheets(„mlap1″).Unprotect Password:=””
              Sheets(„mlap2″).Unprotect Password:=””
              Sheets(„mlap3″).Unprotect Password:=””
              Sheets(„mlap4″).Unprotect Password:=””
              ActiveWorkbook.RefreshAll
              Sheets(„mlap1″).Protect Password:=””
              Sheets(„mlap2″).Protect Password:=””
              Sheets(„mlap3″).Protect Password:=””
              Sheets(„mlap4″).Protect Password:=””
              End Sub

              Kérdéseim:
              1. Az elv jó, hogy így munkalaponként végigmegyek, feloldom, mindent egy sorral frissítek (minden munkalapon egyszerre) és visszazárom?
              2. Hogyan tudom elérni, hogy a scriptben ne szerepeljen az innen most törölt password, hanem „******” legyen a helyén?
              3. A frissítés végigfut, de a végén így is hibaüzenetet ad, hogy zárolt munkalap nem frissíthető. Ez a hibaüzenet elkerülhető?

              Köszönettel, Laci

              galantailasz
              Felhasználó

                Szia, a munkafüzetben nincs makró, ezt nem értem így, hova kellene beírnom.

              6 bejegyzés megtekintése - 1-6 / 6