具有密码保护功能的Excel Run Macro按钮

Question

My workbook is passwordprotected and consists of unlocked cells for input and ane button for PDF print. Due to the password protection of the sheets the PDF print button doesn't work.

I have tried with the following earlier questions and answers. Yet it says that my entered password is wrong(!)

Macros don't work when sheet is protected. Running macro returns run-time error 1004

Sub ButtonClick()

UnprotectAll

'Some stuff here

ProtectAll

End Sub

Private Const yourPassword As String = "ThePassWord"

Sub UnprotectAll()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Unprotect Password:=yourPassword
    Next sh
End Sub

Sub ProtectAll()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Protect Password:=yourPassword
    Next sh
End Sub

I get the

error "1004".
The password you supplied is not correct.

Answer 1

1. Make sure you use Option Explicit as first line in every module and worksheet code! This ensures you don't run into a not declared local scope variable yourPassword which then is empty.

   I recommend always to activate Option Explicit : In the VBA editor go to Tools › Options › Require Variable Declaration .

2. Make sure you unprotect (manually) all your sheets using your password.

3. Define your new desired password as constant in a module

    Private Const yourPassword As String = "ThePassWord" 

4. Use this constant for your .Protect / .Unprotect

    sh.Protect Password:=yourPassword 

5. Then run your code again.