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:
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
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:
Code:
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