in de Macro beveoliging er af halen en terug zetten

[BartPA]

Beste,

Ik heb op dit forum wat proberen na te doen maar het lukt niet .
wanneer ik op de voorziende macro knop duw werkt het maar als ik de werkmap beveiliging inschakel krijg ik een foutmelding.
en als ik foutopsporing duw duid hij de lijn aan die ik heb onderstreept ?
de bedoeling is de beveiliging uitschakelen wanneer ik op de makroknop duw en wanneer dit uitgevoerd is de map terug te beveiligen .
het tapblad moet een copie worden met een andere naam (vorige shift) vorige kopie wordt verwijderd .

Sub Macro1()
'
' Macro1 Macro
' nieuwe shift
'


'

ActiveSheet.Unprotect Password:="2272"
CarryOn = MsgBox("Wil je zeker nieuwe shift starten?", vbYesNo)
If CarryOn = vbYes Then


'put rest of code here





ActiveWindow.SmallScroll Down:=0
Sheets("huidige shift").Select
Sheets("huidige shift").Copy Before:=Sheets(2)
Sheets("vorige shift").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("huidige shift (2)").Select
Sheets("huidige shift (2)").Name = "vorige shift"
Range("C5:E5").Select
Sheets("huidige shift").Select
Range("C5:E5").Select
ActiveCell.FormulaR1C1 = ""
Range("H5:J5").Select
ActiveCell.FormulaR1C1 = ""
Range("C3:J3").Select
ActiveCell.FormulaR1C1 = ""
Range("C18:J18").Select

End If
ActiveSheet.Protect Password:="2272", _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

iemand een idee wat ik fout doe ?

 

[edmoor]

Welkom bij Helpmij

Even het volgende:
Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.
Daarnaast is het goed gebruik een voorbeeld document te plaatsen.
Klik ook eens op de link in mijn handtekening en lees het stukje over Gebruik Code tags.