Automatic password goes in Input box..

[VBABEGINER]

Hi All,

for sheet1, I have placed code that on active sheet password msg will prompt.

Here, Im creating sheet1 copy and renaming with the user name who is logged in.

Therefore, in the red colored code, it asking me input box (2 time) to place password, and we dont want to share password with user's.

How do i place automatic password in Input box here.

Dim ShName As String

Worksheets("Sheet1").Visible = True

[COLOR=#ff0000]Sheets("Sheet1").Select[/COLOR]

With ActiveSheet
[COLOR=#ff0000]ShName = .Name & "Copy"[/COLOR]
.Copy After:=Sheets(Worksheets.Count)
End With

 

[VBABEGINER]

Help Appreciated..

 

[Yongle]

A bit early for a bump ...

 

[VBABEGINER]

Ohh, My apologies..I thought this one is off course simple for our Experts.. No worries..

 

[Yongle]

Here, Im creating sheet1 copy and renaming with the user name who is logged in

Is this what you want?

Change 12345 to the correct password for sheet1

- Sheet1 is copied
- new sheet is named UserName
- that sheet is visible and is not protected by password

Sub InsertAndNameSheet()
    Const pWord = "[COLOR=#ff0000]12345[/COLOR]"
    Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)   
    With Sheets(Sheets.Count)
        .Unprotect pWord
        .Visible = True
        .Name = Application.UserName
    End With
End Sub