Av8tordude
Well-known Member
- Joined
- Oct 13, 2007
- Messages
- 1,075
- Office Version
- 2019
- Platform
- Windows
Is it possible to create a password for a user to have permanent, unrestricted access and not not be prompted for a password again?
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Create password for permenent access
- Thread starter Av8tordude
- Start date
Scott Huish
MrExcel MVP
- Joined
- Mar 17, 2004
- Messages
- 20,695
- Office Version
- 365
- Platform
- Windows
What password are you talking about?
Opening the file, modifying the file, unprotecting the sheet or what?
Opening the file, modifying the file, unprotecting the sheet or what?
Upvote
0
Av8tordude
Well-known Member
- Joined
- Oct 13, 2007
- Messages
- 1,075
- Office Version
- 2019
- Platform
- Windows
opening a workbook
Upvote
0
dave3009
Well-known Member
- Joined
- Jun 23, 2006
- Messages
- 7,147
- Office Version
- 365
- 2021
- Platform
- Windows
- Mobile
- Web
Code:
Private Sub Workbook_Open()
If Environ("Username") <> "Dave" Then Exit Sub
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Unprotect "MyPassword"
Next
End SubRemember to create a lock scenario for Before_Close
KR
Dave
Upvote
0
Av8tordude
Well-known Member
- Joined
- Oct 13, 2007
- Messages
- 1,075
- Office Version
- 2019
- Platform
- Windows
Thank for the code Dave, what do you mean by create a "lock scenario"?
Upvote
0
dave3009
Well-known Member
- Joined
- Jun 23, 2006
- Messages
- 7,147
- Office Version
- 365
- 2021
- Platform
- Windows
- Mobile
- Web
When you close the workbook you'll be wanting to lock to down
So
This way when the user opens and then closes the workbook it is editable only to them
So
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Protect "MyPassword"
Next
End SubThis way when the user opens and then closes the workbook it is editable only to them
Upvote
0
Scott Huish
MrExcel MVP
- Joined
- Mar 17, 2004
- Messages
- 20,695
- Office Version
- 365
- Platform
- Windows
dave3009:
How would that code run if the workbook isn't open yet, and the op isn't looking to unprotect sheets.
I think the op is asking how to create a file open password but give certain users a way to open the file without entering the password.
How would that code run if the workbook isn't open yet, and the op isn't looking to unprotect sheets.
I think the op is asking how to create a file open password but give certain users a way to open the file without entering the password.
Last edited:
Upvote
0
Av8tordude
Well-known Member
- Joined
- Oct 13, 2007
- Messages
- 1,075
- Office Version
- 2019
- Platform
- Windows
Thank you again Dave. This poses a unique question. I have a code that allows users to a trial version of a workbook. Upon expiration, the User is promted for a password for unrestricted access. If the user does not want purchase the workbook, the user deletes the workbook. If the user purchase the workbook, than they enter the purchased password to never be prompted for a password again. I'm not sure, haven't tried to incorporate these codes, but would these code work with what I'm trying to do?
Upvote
0
dave3009
Well-known Member
- Joined
- Jun 23, 2006
- Messages
- 7,147
- Office Version
- 365
- 2021
- Platform
- Windows
- Mobile
- Web
Hi HOTPEPPER
I will not argue a case but it seems like the OP wants a particular user to be able to open a workbook then have unrestricted access.
By unlocking by Username then locking the user has unrestricted access
If I got the wrong end of the stick I am very sorry,
KR
Dave
Upvote
0
