Hide Unhide Picture And Cell Content Using CheckBoxes

This example will need code,There are 2 checkboxes.Can I checkbox hide/unhide the picture and the other checkbox hide/unhide the text,Can the picture be a fixed size and always insert exactly like in the attached example.
Can each checkbox say hide/unhide depending on which state the button is in
Jeff

Hi

Can VBA code be used here so that when i check either box it hides or unhides.One checkbox will say Hide Picture when visible and Unhide Picture when not visible...The other checkbox will do the same for the Text

Thanks

Jeff

Paste this in the respective sheet module

Code:

---

Private Sub CheckBox1_Click()

    If Me.CheckBox1.Value = True Then
        Me.CheckBox1.Caption = "Unhide"
        Me.Shapes("WARNING").Visible = msoFalse
    Else
        Me.CheckBox1.Caption = "Hide"
        Me.Shapes("WARNING").Visible = msoTrue
    End If
   
End Sub

Private Sub CheckBox2_Click()

    If Me.CheckBox2.Value = True Then
        Me.CheckBox2.Caption = "Unhide"
        Me.Range("B2").Value = ""
    Else
        Me.CheckBox2.Caption = "Hide"
        Me.Range("B2").Value = "WARNING DO NOT ENTER"
    End If
   
End Sub

---

But curious as to why you want to do this with two checkboxes, instead of one?

Hi

Not sure , but does this attachment help you ?

And what about the other post you posted?

http://www.excelfox.com/forum/f2/hid...eckboxes-1317/

Thank you

Could I request a change....could the code show both the Picture and Text at the same time when selected and hide both the Picture and Text at the same time when selecting to hide

The code is great and appreciated

Apologies for the posts but I keep changing my mind on what I wanted.ExcelFox example is excellent as well

Jeff

To do this with just one checkbox, use this. This is also in response line with the posts at http://www.excelfox.com/forum/f2/che...and-text-1316/

Code:

---

Private Sub CheckBox1_Click()

    If Me.CheckBox1.Value = True Then
        Me.CheckBox1.Caption = "Unhide"
        Me.Shapes("WARNING").Visible = msoFalse
        Me.Range("B2").Value = ""
    Else
        Me.CheckBox1.Caption = "Hide"
        Me.Shapes("WARNING").Visible = msoTrue
        Me.Range("B2").Value = "WARNING DO NOT ENTER"
    End If
   
End Sub

---

I've added a code at http://www.excelfox.com/forum/f2/hid...eckboxes-1317/

Thank you ExcelFox....works a treat

Is there a code I can use to protect the cells involved so that the picture and Text cannot be deleted when visible

or would you recommend a another way to protect

Jeff

I have just merged both the threads

You could protect the sheet while opening the workbook using the UserInterfaceOnly argument. And the VBA code will work as it is, and still not allow users to delete the picture or text. Of course the cells involved, and the pictures will have to have locked property.

e
Excel Fox
Would you have that code to suit the worksheet with the picture and text
Thanks

Just typing this on the fly... watch out for any typ0s

Code:

---

Sub Auto_Open()
Dim wks as worksheet
for each wks in thisworkbook.worksheets
wks.Unprotect PassWord:=""' If there's a password, use it within the double quote
wks.Protect UserInterfaceOnly:=True, Password=""' If there's a password, use it within the double quote
next wks
End Sub

---

If you were just wanting to protect that particular sheet, then use

Code:

---

Sub Auto_Open()
With Worksheets("Particular Sheet Name")
.Unprotect PassWord:=""' If there's a password, use it within the double quote
.Protect UserInterfaceOnly:=True, Password:=""' If there's a password, use it within the double quote
End With
End Sub

---

EDIT: Added a semi-colon to the argument

use the following code but get a error-expected named parameter

Code:

---

Sub Auto_Open()
With Worksheets("sheet1")
.Unprotect Password:="hello" ' If there's a password, use it within the double quote
.Protect UserInterfaceOnly:=True, Password="hello"' If there's a password, use it within the double quote
End With
End Sub

---

I fixed a typo as you suggested so the code does not give error but it still allows me to delete the cell contents and it does not ask for passwords

Thanks

I've made a small correction. Check my previous post.

The code has to be pasted in a code module, and not in the sheet module or workbook module. Also ensure that the cell you're using is locked.