Verhinderen dat tabbladen verwijderd worden

[wieter]

In het bijgevoegde bestand, worden de bijgemaakte tabbladen, automatisch beveiligd tegen wijzigingen, door een wachtwoord(123).
Echter deze bladen kunnen nog altijd ongestoord door onbevoegden verwijderd worden.
Ik probeerde in de code een regel bij te voegen in de vorm van:

Sheets(s).Delete = False

Maar dat lukt me niet.
De bedoeling is, dat wanneer een blad is bijgemaakt, het niet zomaar kan verwijderd worden.
Misschien hulp van iemand?

 

[edmoor]

Probeer dit eens:
http://www.mrexcel.com/forum/excel-questions/18552-how-prevent-worksheet-being-deleted.html

 

[wieter]

Het was makkelijker op te lossen dan ik dacht.
Gewoon in het lint: "Werkmap beveiligen" met wachtwoord.
Of met vba in WorkBook_Open()
Bedankt Ed voor de info.

 

[wieter]

Te vroeg gejuicht.
Ik dacht het opgelost te hebben met:

Private Sub Workbook_Open()
ActiveWorkbook.Protect "123", Structure:=True, Windows:=False
UserForm1.Show
End Sub

En dat werkt ook, zolang er geen nieuw werkblad moet bijgemaakt worden.
Dan zou de beveiliging er even weer af moeten.
En dat lukt dan niet met de instructie:

ActiveWorkbook.Unprotect "123"

Bij de code achter de Knop te zetten.

 

[wieter]

Opgelost, ook bij knop 2 moet de protect instructie staan.