Workbook Password Protection

Sub ProtectWorkbook()
    Dim password As String
    Dim protectionType As String

    password = InputBox("Enter password for protection:")
    If password = "" Then Exit Sub

    protectionType = InputBox("Protection type: WORKBOOK, SHEET, or BOTH:", "Protection Type")

    Select Case UCase(protectionType)
        Case "WORKBOOK"
            ThisWorkbook.Protect Password:=password, Structure:=True, Windows:=True
            MsgBox "Workbook structure protected!"

        Case "SHEET"
            ActiveSheet.Protect Password:=password, _
                DrawingObjects:=True, _
                Contents:=True, _
                Scenarios:=True, _
                AllowSorting:=True, _
                AllowFiltering:=True, _
                AllowFormattingCells:=False
            MsgBox "Current sheet protected with formatting restrictions!"

        Case "BOTH"
            ' Protect workbook structure
            ThisWorkbook.Protect Password:=password, Structure:=True, Windows:=True

            ' Protect all sheets
            Dim ws As Worksheet
            For Each ws In ThisWorkbook.Worksheets
                ws.Protect Password:=password, _
                    DrawingObjects:=True, _
                    Contents:=True, _
                    Scenarios:=True, _
                    AllowSorting:=True, _
                    AllowFiltering:=True
            Next ws

            MsgBox "Workbook and all sheets protected!"
    End Select
End Sub