Workbook cells will not display figure

[Puggwash63]

My worksheet when protected and Shared will not display figures into certain cells: I have R75, S75, T75, U75 cells merged. I have a button when clicked it will send a required figure to the merged cells, if not protected or Shared, it works perfectly. The button has a Macro to create the figure which is:::::::::Sub ConfirmTen4()
If Range("AA19").Value = "" Then
MsgBox "Select product", vbInformation
Else
Application.ScreenUpdating = False
Dim LastRow As Integer
Dim LastRow2 As Integer
LastRow = ActiveSheet.Range("Z10000").End(xlUp).Row
LastRow2 = ActiveSheet.Range("AD10000").End(xlUp).Row

ActiveSheet.Range("E4:H4").Copy
ActiveSheet.Cells(LastRow + 1, "Z").Select
ActiveSheet.Paste
ActiveSheet.Range("I4").Copy
ActiveSheet.Cells(LastRow + 1, "AD").Select
Selection.PasteSpecial Paste:=xlPasteValues:::::::::: Can you please tell me why the cells when Protected or Shared when the button is clicked do not merge and the figure is not visual and it creates a line on each cell:::::: Many thanks Pugg

 

[Puggwash63]

Is it possible to edit cells when the worksheet is protected and Shared

 

[Michael M]

No, you need to unprotect the sheet first !!
Maybe this

Sub ConfirmTen4()
Dim LastRow As Integer, LastRow2 As Integer
ActiveSheet.Unprotect
    If Range("AA19").Value = "" Then
        MsgBox "Select product", vbInformation
    End If
LastRow = Cells(Rows.Count, "Z").End(xlUp).Row
LastRow2 = Cells(Rows.Count, "AD").End(xlUp).Row
Range("E4:H4").Copy Destination:=Range("Z" & lr + 1)
ActiveSheet.Range("I4").Copy
Range("AD" & lr + 1).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Protect
End Sub

 

[Puggwash63]

That does not do anything when I replaced it with the one on the worksheet.

 

[Michael M]

Try stepping through manually, and see which step doesn't work !!

 

[Puggwash63]

Would it be easier to forward the file so you can see the area I'm querying and let me know what action is needed

Pugg

 

[Puggwash63]

This is the code I have for the sheets so you can see the difference from what you sent me to replace to what is running if I do not protect the sheet or click the Share workbook button: Sub ConfirmTen4()Dim LastRow As Integer, LastRow2 As Integer
ActiveSheet.Unprotect
If Range("AA19").Value = "" Then
MsgBox "Select product", vbInformation
End If
LastRow = Cells(Rows.Count, "Z").End(xlUp).Row
LastRow2 = Cells(Rows.Count, "AD").End(xlUp).Row
Range("E4:H4").Copy Destination:=Range("Z" & lr + 1)
ActiveSheet.Range("I4").Copy
Range("AD" & lr + 1).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Protect
End Sub
Sub ConfirmTen5()


If Range("AI19").Value = "" Then
MsgBox "Select product", vbInformation
Else
Application.ScreenUpdating = False


Dim LastRow As Integer
Dim LastRow2 As Integer


LastRow = ActiveSheet.Range("AH10000").End(xlUp).Row
LastRow2 = ActiveSheet.Range("AL10000").End(xlUp).Row




ActiveSheet.Range("E5:H5").Copy
ActiveSheet.Cells(LastRow + 1, "AH").Select
ActiveSheet.Paste


ActiveSheet.Range("I5").Copy
ActiveSheet.Cells(LastRow + 1, "AL").Select
Selection.PasteSpecial Paste:=xlPasteValues






Application.CutCopyMode = False



ActiveWorkbook.Save
Application.ScreenUpdating = True


End If
End Sub

 

[Michael M]

I note in your code you have a LastRow2, but it isn't used anywhere and I imagine it should be here

ActiveSheet.Range("I5").Copy
ActiveSheet.Cells(LastRow + 1, "AL").Select
Selection.PasteSpecial Paste:=xlPasteValues