Beveiliging aan en uitzetten mbv Macro

[Roel123]

Hoi,

Ik heb een Excel bestand waar ik dmv een knop een rij wil laten toevoegen. Het bestand is beveiligd met een wachtwoord. Ik heb de onderstaande VBA code gebruikt:

Sub Add_new_line()
'
' Add_new_line Macro
' Macro recorded 12-11-2007 by
'

'
ActiveSheet.Unprotect Password:="1234"
Rows("30:30").Select
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub[/SIZE]

Nu wil ik ook dat hetzelfde wachtwoord wordt gebruikt om het bestand weer te beveiligen. Ik heb "Password:=1234" al toegevoegd tussen "Protect" en "DrawingObjects" maar dat lukte niet. Heeft iemand een oplossing?

Alvast bedankt!

Groeten,

Roel

 

[tilpi]

ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True

Zou toch moeten lukken

Mvg

Piet

 

[Roel123]

Opgelost!

Piet,

Dank voor je antwoord, het zat hem in de komma tussen het wachtwoord en Drawing!

Groeten,

Roel

ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True

Zou toch moeten lukken

Mvg

Piet

 

[Wigi]

Dan vragen we jou nog de vraag op opgelost te zetten aub.

 

[Wigi]

Roel vraagt mij via mail hoe de vraag op opgelost moet komen.

Roel, klik rechts onderaan op de pagina. Daar staat ergens de status van de vraag - opgelost of niet opgelost.

PS: hoe heb je dat dan bij je eerste vraag gedaan?