beveiliging

[Tamara27]

beste,

Ik heb een uitgebreide excelmap met meerde werkbladen en macro's.

Blad 1 - doet dienst als invoerblad voor gegevens
Blad 2 - maakt een massa aan berekeningen, maar ziet er niet bepaald netjes uit. Hoeft ook niet, want dit blad is verborgen voor de gebruiker. Het doet eigenlijk enkel dienst als tussenstap.
Blad 3 - toont alle resultaten op een nette manier.

Graag zou ik blad 2 en 3 beveiligen aangezien hier veel formules opstaan.

Blad 3 echter, bevat een aantal commandbuttons die macro's laten runnen (bijv: verbergen van kolommen afhankelijk van de waarde in de bovenste cel).
Mijn commandbuttons kan ik perfect toestaan dat ze worden gebruikt, en de gebruikers kunnen cellen ook selecteren. Ik stuit telkens op het probleem dat mijn macro's niet gerund worden als het werkblad beveiligd is.

macro's zijn allemaal gelijkaardig, en zien er als volgt uit:

Private Sub ToggleButtonCoef_Click()
    If ToggleButtonCoef.Value = True Then
        Rows("20:340").Select
        Selection.EntireRow.Hidden = False
        Range("A19").Select

    Else
        Rows("20:340").Select
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.EntireRow.Hidden = True
        ActiveWindow.SmallScroll Down:=-21
        Range("A19").Select
    End If
End Sub

Is er een andere manier om dit te omzeilen?

De gebruiker moet cellen kunnen selecteren en commandbuttons kunnen inklikken. Verder geen specifieke acties noodzakelijk.


Alvast bedankt!
Tamara

 

[ExcelAmateur]

Kijk eens bij de link,
https://www.helpmij.nl/forum/showthread.php/353745-beveiligdblad?p=2291163&highlight=Werken+een+beveiligdblad#post2291163

 

[Conseclusie]

Je macro wordt waarschijnlijk wél gerund, maar levert een foutmelding op omdat deze bewerkingen wil uitvoeren op beveiligde cellen. Laat je macro daarom eerst de beveiliging opheffen en aan het eind de beveiliging weer activeren.
En die Select in je macro is niet nodig, gewoon:

Rows("20:340").EntireRow.Hidden = False

 

[edmoor]

Ik denk dat dit voldoende is:

Private Sub ToggleButtonCoef_Click()
    ActiveSheet.Unprotect "JeWAchtwoord"
    Rows("20:340").EntireRow.Hidden = ToggleButtonCoef.Value
    ActiveSheet.Protect "JeWAchtwoord"
End Sub

 

[loek010]

Of probeer onderstaande code in thisworkbook

Private Sub Workbook_Open()
	Dim wSheetName As Worksheet
	For Each wSheetName In Worksheets
		wSheetName.Protect Password:="Secret", UserInterFaceOnly:=True, AllowFiltering:=True
		Next wSheetname
End Sub

 

[Tamara27]

Bedankt voor alle hulp!!

ActiveSheet.Unprotect "JeWAchtwoord"

ik had er gewoon niet eens aan gedacht...