Merge/Unmerge Cells in a Protected Sheet

[Yazzay]

Hello everyone,

I have an excel sheet where I have some cells protected, unfortunately I can't merge/unmerge cells while the sheet is protected. So, I have written this VBA code

Sub MergeCells()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "Password"
    Selection.Merge
    ActiveSheet.Protect "Password"
    Application.ScreenUpdating = True
End Sub

and this one

Sub UnMergeCells()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect "Password"
    Selection.UnMerge
    ActiveSheet.Protect "Password"
    Application.ScreenUpdating = True
End Sub

My question is, I choose certain settings when applying the protection (like, allowing the users to insert rows, format cells etc.), the problem is, when I run the macro, these settings are removed.
Is there away to fix this? Like to run the macro and merge/unmerge cells and still have the protection settings the same?

Thanks in advance.

 

[MARK858]

Record yourself setting the protection then use that code to replace

ActiveSheet.Protect "Password"

You will have to add in the password so it will look something like

ActiveSheet.Protect Password:="Password", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        UserInterfaceOnly:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
        AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
        AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
        AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False

 

[Yazzay]

Record yourself setting the protection then use that code to replace

ActiveSheet.Protect "Password"

You will have to add in the password so it will look something like

ActiveSheet.Protect Password:="Password", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        UserInterfaceOnly:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
        AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
        AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
        AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False

Thank you that solved it!