VBA change cell value after saving as PDF

[drefiek2]

Hi,
I need a vba button code which when clicked will change cells S4 and S5 to value -1, regardless of the value already in these cells.
The issue I am having is that sometimes S5 is locked (which is determined by cell A1 being TRUE instead of FALSE).
What I need the button to do is first check whether cell A1 says TRUE, if it is then change only cell S4 to -1. If cell A1 says FALSE, then change both cells S4 and S5 to -1.

This new line of code is going right at the end of an existing code which ultimately saves the sheet as a PDF, so I want this new line of code to occur right at the end as a final instruction, after the PDF save.

Thanks in advance.

 

[Joe4]

The issue I am having is that sometimes S5 is locked (which is determined by cell A1 being TRUE instead of FALSE).

Is it then protected (locking without protection doesn't really do anything)?
Assuming it is also protected, is it protected with a password?
We don't need to know the password, we just need to know if there is a password on the protection.

 

[Joe4]

The lines of code you need would look something like this:

'   Unprotect sheet
    ActiveSheet.Unprotect Password:="your password here"
  
'   Change S4 to -1
    Range("S4").Value = -1
  
'   Check value of cell A1
    If Range("A1") = False Then
'       Change S5 to -1
        Range("S5").Value = -1
    End If
  
'   Re-protect sheet
    ActiveSheet.Protect Password:="your password here"

You would obviously replace "your password here" with whatever your password is.
If you have sheet protection WITHOUT a password, just remove the "Password:=..." part from each of the Unprotect/Protect lines.

If the values in cell A1 are the TEXT entries of "True" and "False" instead of the boolean values of TRUE and FALSE, just put double quotes around False so that line of code looks like:

    If Range("A1") = "False" Then

 

[drefiek2]

The lines of code you need would look something like this:

'   Unprotect sheet
    ActiveSheet.Unprotect Password:="your password here"
 
'   Change S4 to -1
    Range("S4").Value = -1
 
'   Check value of cell A1
    If Range("A1") = False Then
'       Change S5 to -1
        Range("S5").Value = -1
    End If
 
'   Re-protect sheet
    ActiveSheet.Protect Password:="your password here"

You would obviously replace "your password here" with whatever your password is.
If you have sheet protection WITHOUT a password, just remove the "Password:=..." part from each of the Unprotect/Protect lines.

If the values in cell A1 are the TEXT entries of "True" and "False" instead of the boolean values of TRUE and FALSE, just put double quotes around False so that line of code looks like:

    If Range("A1") = "False" Then

Thank you, it worked, much appreciated!!!

 

[Joe4]

You are welcome.
Glad I was able to help!