[EXCEL] Hoe userinput disablen?

[k0ewl]

Hoi,

het programma wat ik gemaakt heb is nu af op 1 ding na. Dat is als mensen macro niet aan hebben staan. Dan wil ik graag dat of ze niets meer in kunnen vullen en/of verwijderen. of alle tabbladen behalve 1 moeten hidden worden.

heeft iemand een idee hoe dit moet?

[F_J_K]

Verberg (of beveilig met wachtwoord) alle tabbladen bij afsluiten en maak ze weer zichtbaar (cq. hef de beveilging op) bij openen. Beide prima te doen met een scriptje bij de Open() en BeforeClose() events.

Het is natuurlijk maar een pseudo-beveiliging aangezien men dat altijd nog met de hand kan unhiden.

[k0ewl]

In ons geval kan dat niet omdat wij de stuctuur hebben beveiligd. Dan werkt de hide functie niet.

We gebruiken de userinterfaceonly functie om op de achtergrond wel de macro uit te kunnen voeren, maar we willen ook de namen van de werkbladen beveiligen. Daarom gebruiken we de structuurbeveiliging (werkmap beveiliging).

Hoe moeten we deze beide beveiligingen uitvoeren tegelijkertijd?

[onkl]

In je code:
stuctuurbeveiliging uitzetten
bladen verbergen
structuurbeveiliging weer aanzetten.

Visual Basic:

Sub Macro1()
    Dim bestand As Workbook
    Dim blad As Worksheet
    Set bestand = ActiveWorkbook
    Set blad = bestand.ActiveSheet
    bestand.Unprotect Password:=pw
    Application.DisplayAlerts = False
    blad.Visible = xlSheetHidden 'of xlVeryHidden
    bestand.Protect Password:=pw, Structure:=True, Windows:=True
    Application.DisplayAlerts = True
End Sub