Auteur Topic: Beveiliging (gelezen 2185 keer)

Sunnybat · « **Gepost op:** 14 januari 2026, 08:56:24 »

Hoi,

ik gebruik deze macro voor elke tabblad om de beveiliging eraf te halen
is het mogelijk om deze voor elke tabblad te gebruiken?

Code: [Selecteer]

Sub Opheffen1()
'
' Opheven Macro
'

'
    Sheets("1").Select
    ActiveSheet.Unprotect
End Sub

SoftAid · « **Reactie #1 Gepost op:** 14 januari 2026, 10:46:10 »

sunnybat,

met een lus in je macro:

Code: [Selecteer]

Sub OpheffenAlleBladen()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect
    Next ws
End Sub

Dat zou moeten werken.

SoftAid

RedHead · « **Reactie #2 Gepost op:** 14 januari 2026, 11:06:02 »

Dit sluit ook mooi aan met m'n reactie in je andere draadje over het omzetten van een bereik van formules naar vaste waardes.
Overigens is het goed om te bepalen WAAROM je de beveiliging er af moet halen. Als dat alléén voor het afhandelen van VBA procedures is, dan kan je dat mooier oplossen namelijk met Sheet.Protect UserInterfaceOnly:=TRUE bij het openen van het workbook.

Sunnybat · « **Reactie #3 Gepost op:** 14 januari 2026, 11:49:07 »

@SoftAid

werkt voor alle tabbladen perfect maar is ook zoiets mogelijk om alleen de actieve tabblad waar je in wilt gaan werken met de zelfde macro te doen?

SoftAid · « **Reactie #4 Gepost op:** 14 januari 2026, 13:41:23 »

Hallo Sunnybat,

Vraag is: als je een werlblad automatisch ontgrendeld als je het opent, dan staan na een week of een maand mogelijk alle werkbladen "unprotect". Ik zou dan toch opteren om als je naar een werkblad springt, je de vorige automatisch laat vergrendelen. Met deze macro kan het:

Code: [Selecteer]

Sub AlleenActiefBladVrijgevenSA()
    Dim ws As Worksheet
    Dim actief As Worksheet

    Set actief = ActiveSheet

    ' Actieve blad ontgrendelen
    actief.Unprotect

    ' Alle andere bladen beveiligen
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> actief.Name Then
            ws.Protect
        End If
    Next ws
End Sub

Je kan ook nog tabbladen uitsluiten, deze die je liever "unprotect" laat.

En reageer ook eerst even op de goede raad van RedHead...

Aan jou.

SoftAid

Sunnybat · « **Reactie #5 Gepost op:** 14 januari 2026, 15:10:55 »

@SoftAid

ben nog aan het uitzoeken hoe ik die
Sheet.Protect UserInterfaceOnly:=TRUE moet toepassen die RedHead voorsteld

popipipo · « **Reactie #6 Gepost op:** 14 januari 2026, 15:36:55 »

De beveiliging eraf halen als het werkblad opent komt op het zelfde neer als je deur op slot doen en de sleutel in het slot laten.
Je kunt gewoon naar binnen en doen wat je wilt.

SoftAid · « **Reactie #7 Gepost op:** 14 januari 2026, 15:47:49 »

Citaat van: Sunnybat op 14 januari 2026, 15:10:55

Sheet.Protect UserInterfaceOnly:=TRUE

Zeer goede methode, maar...
Nadeel: deze instelling gaat verloren zodra je het bestand sluit.
Je moet het dus bij elke opening opnieuw instellen.
Je kan een macro in je Workbook VBA sectie zetten, die dat laatste automatisch doet bij het openen van het werkboek. dan moet je dat niet meer handmatig doen. Vraag, gebruik je macro's in dat werkboek?

Willem,
Het is dus niet zoals een sleutel in de deur laten.
De deur zit op slot, Gewone bezoekers kunnen niets, maar de Macro's kunnen automatische taken uitvoeren.
Excel bewaart de instelling UserInterfaceOnly ook niet.
Bij het openen staat die optie standaard uit, ook al is het blad nog steeds beveiligd.
Je kan dit opvangen in een Workbook_open Macro, die je kan beveiligen met een wachtwoord.

SoftAid

RedHead · « **Reactie #8 Gepost op:** 14 januari 2026, 16:14:33 »

Citaat van: Sunnybat op 14 januari 2026, 15:10:55

ben nog aan het uitzoeken hoe ik die
Sheet.Protect UserInterfaceOnly:=TRUE moet toepassen die RedHead voorsteld

Dit plaats je in de Workbook module...

Code: [Selecteer]

Private Sub Workbook_Open()
    Sheets("naam van je sheet").Protect UserInterfaceOnly:=True
End Sub

Bij het openen van het workbook zorgt deze procedure ervoor dat je code alles mag wat een gebruiker niet mag.

SoftAid · « **Reactie #9 Gepost op:** 14 januari 2026, 16:41:32 »

Citaat van: Sunnybat op 14 januari 2026, 11:49:07

@SoftAid

werkt voor alle tabbladen perfect maar is ook zoiets mogelijk om alleen de actieve tabblad waar je in wilt gaan werken met de zelfde macro te doen?

Vooralleer we hier 68 antwoorden halen, antwoord even op de volgende vragen:

WAAROM beveilig je je werkboek, en waartegen? Tegen eigen foute handelingen? Tegen vreemden?
WAAROM, als je het beveiligd, ontgrendel je niet gewoon je hele werkboek als je er aan wilt werken? en sluit het daarna (kan geautomatiseerd worden.

De code van RedHead werkt enkel als je Macro's WEL toestemming wil geven tot het werkboek, jij zelf kan dan nog geen wijzigingen aanbrengen. Dat heeft RedHead ook duidelijk aangegeven met ""Als dat alléén voor het afhandelen van VBA procedures is""

HOE "unprotect je nu je werkblad Blad1 ? Met een macro, OK. Hoe start je die macro?

Geef eens wat meer uitleg, niemand hier is helderziende, en we dwalen verder en verder af van je eenvoudige vraag, waarop je een eenvoudig antwoord kreeg.

Groeten,

SoftAid

Sunnybat · « **Reactie #10 Gepost op:** 15 januari 2026, 07:37:23 »

@SoftAid

het is een werkblad die door iedereen ingevuld kan worden, ook door mensen die niet zo erg goed is met excel
naam,adres,km,en aktie en nog en paar dingen
op elke tabblad heb ik op alle formule cel een compleet tabblad beveiliging opzitten en kunnen ze allemaal de dingen invullen die nodig is
voordat deze doorgestuurd kan worden moet de beveiliging eraf en de tabblad als platte tekst aangeleverd worden
daarom de vraag is het mogelijk om de zelfde macro te gebruiken voor alleen de actieve tabblad? ongeacht in welke tabblad je ook werkt

maar alvast super bedankt

ik heb u formule reeds geprobeerd en volgens mijn is dit de oplossing $_/-\o_$

SoftAid · « **Reactie #11 Gepost op:** 15 januari 2026, 10:16:31 »

Sunnybat,

Citaat van: Sunnybat op 15 januari 2026, 07:37:23

ik heb uw formule reeds geprobeerd en volgens mijn is dit de oplossing

Welke problemen heb je nu nog na testen met die macro?

SoftAid

Sunnybat · « **Reactie #12 Gepost op:** 15 januari 2026, 10:28:17 »

@SoftAid

Helemaal niks
de formule die ik van u heb werkt perfect
eerst had ik voor elke tabblad een macro nu nog drie
super blij $_/-\o_$ $_/-\o_$ $\o/$

Code: [Selecteer]

Sub AlleenActiefBladVrijgevenSA()
    Dim ws As Worksheet
    Dim actief As Worksheet

    Set actief = ActiveSheet

    ' Actieve blad ontgrendelen
    actief.Unprotect

    ' Alle andere bladen beveiligen
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> actief.Name Then
            ws.Protect
        End If
    Next ws
End Sub

SoftAid · « **Reactie #13 Gepost op:** 15 januari 2026, 10:57:00 »

OK, is dit dan afgehandeld?

Als je bijkomende vragen hebt, of aanpassingen wenst, blijf dan in dit topic. Dat vergemakkelijkt het helpen.

Groeten,

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics