Telefonszámunk: 1-472-0679

Munkalapok védelme makróval

Kezdőlap Fórumok Excel témák Munkalapok védelme makróval

4 bejegyzés megtekintése - 1-4 / 4
  • Szerző
    Bejegyzés
  • #8463
    Problems
    Felhasználó

      Sziasztok!

      Egy kis segítséged szeretnék kérni. Adott egy Excel fájl, amiben 4 munkalap van. Szeretném mind a 4-et levédeni úgy, hogy a szűrés és az oszlopok csoportosítása (nyitás/zárás) lehetősége megmaradjon. VBA-ban próbálkoztam az alábbi kóddal, de csak 1 munkalapot tudtam így levédeni, a többin nem működött, illetve a szűrést nem tudom hogyan kellene beleírnom.
      Köszi előre is a segítséget.

      Private Sub Workbook_Open()

      With Worksheets()

      .Protect Password:=””, Userinterfaceonly:=True

      .EnableOutlining = True

      End With

      End Sub

      • A témakör módosításra került: 3 years, 7 months telt el-horvimi.
      #8466
      horvimi
      Adminisztrátor

        Szia!

        Ha lapvédelmet kapcsolsz, akkor a sor és oszlop csoportosításról le kell mondanod, az autoszűrő használatáról viszont nem.
        Ha bekapcsolod a lapvédelmet (pl. Munkalap neve jobb klikk -> lapvédelem…), akkor feljön egy ablak, aminek az alsó részében azok a a műveletek vannak felsorolva, amiket a védelem ellenére mégis lehet csinálni. A vége felé ott az „Autoszűrő használata”, csak be kel pipálni.

        Kipróbáltam, a többi művelet közül egyik sem engedélyezi a sor és oszlop csoportosítást.

        Viszont a már meglévő csoportok ki-be csukogatását lehet engedélyezni

        A fenti kód pedig azért nem jó, mert jelszóval védeni/feloldani egyszerre csak egy munkalapot lehet.
        Erre szoktunk ciklust írni, ami végigmegy minden munkalapon.
        Valami ilyesmi kellene:

        Private Sub Workbook_Open()
        Dim s As Worksheet
        
            For Each s In Sheets
                s.Protect Password:="Demo", AllowFiltering:=True, userinterfaceonly:=True
                s.EnableOutlining = True
            Next
        
        End Sub

        Imre

        • A hozzászólás módosításra került: 3 years, 7 months telt el-horvimi.
        #8468
        korczk
        Felhasználó

          Sziasztok!

          Hm… Volt ehhez a témához egy hozzászólásom az Imiéhez kissé hasonló, amely egyszerűen eltűnt az éterben, miután kicsit (kivételesen engedte a szerkesztést a rendszer) átszerkesztem. Valamit rosszul csinálok?? 🙁

          Kálmán

          #8471
          korczk
          Felhasználó

            A Protect paramétereiről itt kaphatsz bővebb felvilágosítást:
            https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet.protect

          4 bejegyzés megtekintése - 1-4 / 4
          • Be kell jelentkezni a hozzászóláshoz.