Create password for permenent access

[Av8tordude]

Is it possible to create a password for a user to have permanent, unrestricted access and not not be prompted for a password again?

 

[dave3009]

Yes if you know their username probably best finding out their Network login.

 

[Scott Huish]

What password are you talking about?

Opening the file, modifying the file, unprotecting the sheet or what?

 

[Av8tordude]

What password are you talking about?

Opening the file, modifying the file, unprotecting the sheet or what?

opening a workbook

 

[dave3009]

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 Sub

Remember to create a lock scenario for Before_Close

KR


Dave

 

[Av8tordude]

Remember to create a lock scenario for Before_Close

KR


Dave

Thank for the code Dave, what do you mean by create a "lock scenario"?

 

[dave3009]

When you close the workbook you'll be wanting to lock to down

So

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    ws.Protect "MyPassword"
Next
End Sub

This way when the user opens and then closes the workbook it is editable only to them

 

[Scott Huish]

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.

 

[Av8tordude]

When you close the workbook you'll be wanting to lock to down

So

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    ws.Protect "MyPassword"
Next
End Sub

This way when the user opens and then closes the workbook it is editable only to them

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?

 

[dave3009]

Is it possible to create a password for a user to have permanent, unrestricted access and not not be prompted for a password again?

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