Dear Sir's,
user form working perfectly okay with specific user and appearing sheet as per code until security warning macro have been disabled (enable content) visible all sheet that i don't want every user to see expect start and only user login name sheet. please help me to solve this problem to show only start sheet when workbook open until user login.
Attached the file for your reference.
Thanks in advance
getting run time error "1004" for below code
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "Start" Then
ws.Visible = xlSheetHidden
End If
Next ws
Application.ScreenUpdating = True
End Sub
Please Login or Register to view this content.
NOTE: As the original poster/owner, only you can mark your thread as SOLVED (Thread Tools above Post #1).
You can say "Thanks" in your thread to everyone who offered to help you.
You can also reward them by clicking * "Add Reputation" under their username on the left.
With Regards, MikeVol.
Dear Sir,
Thank you and I apologize for the delay in responding. If I click on the file to open while some other Excel file is already open, it doesn't work and getting (there are one or more circular reference where a formula to its own cell either directly or indirectly. this migh cause them to calculate incoorectly. attached the image for your reference.
Attachment 892192
A fairly common mistake I see on the forums is setting sheets visibility in the Workbook_BeforeClose procedure. This is not a good place to do it. All I have to do is save the workbook and then close it (without saving), and the wrong worksheets are visible when I reopen the workbook. The right place to set sheets visibility is the Workbook_BeforeSave procedure.
Below is the full set of routines that handle sheet visibility in the ThisWorkbook module.The set is not perfect, but in the vast majority of cases sufficient.Please Login or Register to view this content.
MdYas, by the way I rebuilt the logging process. Take a look at the attachment.
I don't think the cyclic callback error is caused by VBA code. There must be another cause.
Artik
Last edited by Artik; 04-19-2025 at 06:02 PM.
Hello my friend. How you coded your code, so it works, it is your fault!
Change everywhere in the CommandButton1_Click procedure the following
Sheets to ThisWorkbook.Worksheets
well and everywhere where you have in the procedure
ActiveWorkbook change to ThisWorkbook! And you will be happy. Good luck my friend.
In this case, it is not the problem that the MdYas pointed out. Everything works fine if you make the above changes. Check it out of interest.Originally Posted by Artik
Update! Artik, did you run your file as the user indicated above??? Try doing the same thing sequentially. See the screenshot below.
Last edited by MikeVol; 04-19-2025 at 01:48 PM.
Dear Sir,
Thanks, unfortunately getting same error
Dear Sir,
Thank you for your respond itried but getting compile error: Invalid outside procedure
can you please help me to solve this problem
Many thanks in adavce
Gentlemen, the topic of this thread is user login and visibility of relevant sheets. And this is the only issue I was addressing when I saw the wrong answer from a forumer.
Cyclic references are not even close to the topic of this thread rally so the problem with them should be published in a new thread.
By the way, with me there are no messages about cyclic references. I also checked the workbooks with the macro below to make sure.MdYasPlease Login or Register to view this content.We don't know anything about how you improved the code, which is now reporting a compilation error. Attach a file with your corrections.itried but getting compile error: Invalid outside procedure
Artik
OK, managed to reproduce the problem of cyclic appeals. But I still think the topic should be published in a new thread.
The following procedure will display in a new sheet the addresses of all cells in the workbook containing cyclic references and their formulas.ArtikPlease Login or Register to view this content.
Dear Sir,
Thank you again for your help, I've attached the workbook when i changed as informed by Mr.MikeVol getting error or you can replace the code it will be very helpful to me.
Have a good day
Greetings my friend. I refuse to help you further because you have done nothing and have not changed anything in your existing code in the workbook that you provided in the post above. Artik and I have given working options (post #6 and post #11 here that you could apply yourself and your issue would be resolved. Do all the work for me, I do not consider it help. Do it yourself, with your own hands. Good luck my friend.
Last edited by MikeVol; Yesterday at 03:40 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks