Beveiligd blad; cellen kunnen niet met een macro bewerkt worden (foutmelding)

[sph]

Ik heb als voorbeeld een eenvoudig excel bestand met macro`s bijgevoegd.

Bekijk bijlage TEST.xlsm

Probleem:

Ik heb op mijn werk een bestand dat d.m.v. macro`s berekeningen loslaat op bepaalde cellen.
Deze cellen mogen niet met de hand gewijzigd worden, dus zijn deze geblokkeerd, waarna ik het blad beveilig.
Daarna volgt een foutmelding als ik een macro laat lopen.
Dit boots ik na door in het bijgevoegde excel bestand een waarde in een blauw veld in te vullen, gevolgd door + of -.
Hoe voorkom ik dit ook alweer?

 

[zapatr]

Door voordat de macro bewerkingen wil uitvoeren op de bewuste cellen, de beveiliging van het blad weg te halen en erná weer in te stellen.

 

[sph]

De macrobewerking is een knop die vaak gebruikt wordt.
De bladbeveiliging uitzetten betekend dat het excel bestand onbedoelt onbruikbaar wordt.
Ook kost dit veel tijd.
Is er geen manier om cellen d.m.v. macro`s te bewerken MET bladbeveiliging?

 

[zapatr]

De beveiliging uit- en aanzetten moet je natuurlijk (dat spreekt vanzelf dacht ik) in de macro doen.
Zet de macrorecorder aan en voer 1 keer die handeling handmatig uit, dan kun je die daarna in de macro inpassen.

 

[gast0660]

Hoi,
Probeer het eens zo
Beveilig het werkblad met abc
en test

Sub Knop1_Klikken()
Blad1.Unprotect Password:="abc"
Range("B5").Value = Range("B5").Value + Range("B3").Value
Range("B3").Value = ""
Blad1.Protect Password:="abc"
End Sub

 

[Ginger]

Maak gebruik van
.Protect UserInterfaceOnly:=TRUE
In het workbook.open event.

Dan mag het programma dingen die de gebruiker niet mag.

 

[gast0660]

Hoi,
idd Ginger kan ook, maar dan zal het toch zoiets moeten worden

Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="abc", _
UserInterFaceOnly:=True
Next wSheet
End Sub

 

[Ginger]

gast0660, Yep. Ik weet het ff niet zeker en ben nu ook niet in de gelegenheid om dat te testen, maar je zou ff moeten kijken of dat password er nog bij opgegeven moet worden. Volgens mij hoeft dat niet namelijk. Dus beveiligen van de sheet doe je op de normale manier met PW en er voor zorgen dat je code iets kan doe je via het OnOpen event. Wil jij dat ff proberen?

 

[sph]

Werkt bij mij niet.

In workbook open gebeuren gezet:

Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="abc", _
UserInterFaceOnly:=True
Next wSheet
End Sub

Heb bij het beveiligen gekozen voor:
ontgrendelde cellen selecteren
objecten bewerken
scenarios bewerken

De rest staat uitgevinkt.

 

[popipipo]

wSheet.Protect Password:="abc", _

Misschien dat je deze regel moet aanpassen.

 

[sph]

Ben er al achter.
Heb de code in Blad1(Algemeen) aangemaakt.
Thanks allen / opgelost.