Hi, I want to offer the user the option of protecting the workbook, the think
is I need to save his password and the selections of the protection dialog
box:

Application.Dialogs(28).Show

how to save the password and the:
..AllowDeletingColumns
..AllowDeletingRows
..AllowFiltering
..AllowFormattingCells
..AllowFormattingColumns
..AllowFormattingRows
.AllowInsertingColumns
.AllowInsertingHyperlinks
.AllowInsertingRows
..AllowSorting
..AllowUsingPivotTables

TIA