VBA Copy values and protect workbook

[Eindhoven_Excel]

Hi,

I am quite new to VBA and enthousiastic about it, but run into a problem.

I am trying to copy two worksheets and create a new workbook. I want to copy just the values of the worksheets and next to that I am trying to protect the new workbook with a password (not able to change values or select cells). In addition I am using the group function and want to be able to still use these in the new workbook. Can anyone help me with a code for this. This was my start:


Sub KopierenTab()
'
' KopierenTab Macro
'
' Sneltoets: Ctrl+Shift+M
'
With ThisWorkbook
.Worksheets("Cijfers totaal").Copy
ActiveSheet.Cells.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlValues
.Worksheets("Cijfers per maand").Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
ActiveSheet.Cells.Copy
ActiveSheet.Range("A1").PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub