Protect worksheet and prompt for a password using macro

[MISS_AJAZ]

Hi all,

Can someone help me please. I need 2 macros:

1. Protect the current worksheet only, and prompt me for a password.

2. Protect the whole workbook (so that sheets cannot be rearranged) and prompt me for a password.

Thanks

 

[Gavin T]

This should do it.

Sub AddPasswords()

    Dim sSheetPass As String
    Dim sBookPass  As String

    sSheetPass = InputBox("What is the new password for the sheet?")
    sBookPass = InputBox("What is the new password for the workbook?")

    ActiveSheet.Protect Password:=sSheetPass
    ThisWorkbook.Protect Password:=sBookPass

End Sub

 

[MISS_AJAZ]

AWESOME BANG ON!! THANKS

 

[Gavin T]

Thanks for the enthusiastic feedback.