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: 1 month, 1 week 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: 1 month, 2 weeks 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.