Macro's uitvoeren in meerder beveiligde werkbladen

[boome]

Ik heb een werkblad met macro's dat volledig beveilgid is.
Bij het uitvoeren van de macro's dient de beveiliging dan ook opgeven te worden.

Ik had al de volgende code in gebruik die ik onder het onderdeel ThisWorkbook heb opgenomen

Private Sub Workbook_Open()

'zorgen dat macro uitgevoerd kan worden in een beveiligd werkblad
'daarna wordt de beveiliging met de juiste opties opnieuw ingesteld

Sheets("PRL").Protect _
Password:="K9iL3uxBNBX", _
UserInterfaceOnly:=True, _
AllowFiltering:=True, _
AllowFormattingColumns:=True
End sub

Dit werk zoals het hoort bij het uitvoeren van een invoerformulier dat gevens wegschrijft naar het blad PRL.

Er is echter ook 2 macro's die een kopieeractie uitvoeren naar 2 andere bladen die ook beveiligd zijn.

Ik heb daarvoor de voogaande code aangevuld met het de volgende code

Sheets("gewonnen Proj").Protect _
Password:="test", _
UserInterfaceOnly:=True, _
AllowFiltering:=True, _
AllowFormattingColumns:=True

Sheets("verloren Proj").Protect _
Password:="test", _
UserInterfaceOnly:=True, _
AllowFiltering:=True, _
AllowFormattingColumns:=True

Alleen lijkt het opheffen van de beveiliging van deze 2 werkbladen niet te werken want ik krijg een foutmelding dat er niets weggeschreven kan worden omwille van schrijfbeveiliging.

De vraag is dus hoe ik de beveiliging van meerdere werkbladen kan opheffen tijdens het uitvoeren van een macro

Gunter

 

[Cobbe]

Hef de beveiliging op in de 2 macro's en beveilig weer in de zelfde handeling.
Dus in de schrijfopdracht hef je de protectie op en bij beëindigen van de schrijfactie zet je de grendel er weer op.

 

[boome]

Zo had ik het nog niet bekeken, maar het is alleszins een logische oplossing.
Ik was het weeral veel te ver aan het zoeken.
Ik ga het dadelijk proberen.

Maar wat ik me dan toch afvraag is waarom de code in ThisWorkbook wel werkt bij het opslaan van de ingevoerde gegevens in het invuformulier maar niet bij de andere macro's.
Of is dat nu een dwaze vraag.

Alvast bedankt voor de hulp

 

[burk71]

Rijen verwijderen in beveiligd werkblad

Beste Forum lezers,

Ik heb een beveigd werkblad met daarin macro's die werken. Echter wil ik wel dat er rijen kunnen worden verwijderd uit en bepaald werkblad.

onderstaande VBA formule gebruik ik nu.

Sheets("Eindbrief huidige situatie").Protect _
Password:="test", _
UserInterfaceOnly:=True, _
AllowFiltering:=True, _
AllowFormattingColumns:=True


enige idee wat ik hierbij kan zetten dat in dit blad ook rijen mogen worden verwijderd?

:shocked: