How I Can copy data from the VBA coded hidden sheet without making it visible first? Please Help anyone if can

[lovejanu4u]

Source Code:
Private Sub CommandButton1_Click()

If TextBox1.Text = Sheets("Admin").Range("E4") Then

If TextBox2.Text = Sheets("Admin").Range("f4") Then

MsgBox "xxxxx now you can access the file"

Application.Visible = True

ActiveWorkbook.Unprotect ("20051982")

Sheets("Emp Status").Visible = True

Sheets("Emp Data").Visible = False



ActiveWorkbook.Protect Password:="20051982"

Unload Me

Else

MsgBox "Check Your Username or Password"



End If

End If



End Sub




Desitnation:

Sub Button5_Click()


Sheets("EMP Data").Select
Range("A1:AS1500").Select
Selection.Copy

Sheets("Information Data").Select
Range("A4").Select
ActiveSheet.Paste


End Sub


Note: I need code to copy from ("EMP Data") to paste destination sheets("Information Data"). I added restriction for the users but I want user to check the copy of information.

 

[MARK858]

As one line...

Sub Button5_Click()
Sheets("EMP Data").Range("A1:AS1500").Copy Sheets("Information Data").Range("A4")
End Sub

 

[lovejanu4u]

As one line...

Sub Button5_Click()
Sheets("EMP Data").Range("A1:AS1500").Copy Sheets("Information Data").Range("A4")
End Sub

Hello Mark
Greetings!

Thanks for replying mark, but I have restricted (Sheets ("EMP data")) to certain users and now I want them only get the copy but from restricted sheet.

The restricted sheet is not visible.

 

[MARK858]

The visibilty isn't an issue with the code that I posted.

 

[lovejanu4u]

The visibilty isn't an issue with the code that I posted.

Yes I restricted them to access those sheet directly, and I am using this method for getting them only the copy. I applied VBAproject password is that an issue I am confused.

 

[MARK858]

If you want the code to only run for the users then you need to put the code within the Username test (or do a new test in the separate code).
Protection won't work with the code as it doesn't interact with the cells.

VBAproject password is that an issue I am confused.

Shouldn't be

 

[lovejanu4u]

Just you can see the error being notified . How i can clear it.

 

[MARK858]

Are you getting that error with the code that I posted or the first code, I don't get that error with the code that I posted (with the button on the Information Data sheet with EMP Data sheet hidden and protected).

.

 

[MARK858]

Also in Macro security on the Developer tab check to see if you have "Trust access to the VBA Project Object Model" checked.

 

[lovejanu4u]

Mark Thanks for the support and help. Its working now.

I appreciate for your support mark.