Unhide, Unprotect, Enter Password
 

Hi,

I think this is probably fairly simply and I thought it would have
recorded when I recorded the macro but it didn't.

I have to have the macro unhide a worksheet, unprotect it, enter the
password, paste some data, re-protect it, and re-enter the pssword
twice to confirm, all without addditional user input because the user
will not know the password.

When I recorded this is what I got but it is prompting for the
password. After lines 2 and 11 are where I need some type of auto
password entry .

Sheets("Ledger").Visible = True
ActiveSheet.Unprotect
Sheets("Clerk Entry").Select
Cells.Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-10
Sheets("Ledger").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveWindow.SelectedSheets.Visible = False
Sheets("PS 3083").Select
Range("A1:AO1").Select

Unhide, Unprotect, Enter Password
 

Don,

You don't need to make the sheet visible to write to it and there's no need
to select either. So your code can be abbreviated to this. Change "MyPass" to
your password

Sheets("Ledger").Unprotect PassWord:="MyPass"
Sheets("Clerk Entry").UsedRange.Copy _
Destination:=Sheets("Ledger").Range("A1")
Application.CutCopyMode = False
Sheets("Ledger").Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, PassWord:="MyPass"

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Don" wrote:

Hi,

I think this is probably fairly simply and I thought it would have
recorded when I recorded the macro but it didn't.

I have to have the macro unhide a worksheet, unprotect it, enter the
password, paste some data, re-protect it, and re-enter the pssword
twice to confirm, all without addditional user input because the user
will not know the password.

When I recorded this is what I got but it is prompting for the
password. After lines 2 and 11 are where I need some type of auto
password entry .

Sheets("Ledger").Visible = True
ActiveSheet.Unprotect
Sheets("Clerk Entry").Select
Cells.Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-10
Sheets("Ledger").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveWindow.SelectedSheets.Visible = False
Sheets("PS 3083").Select
Range("A1:AO1").Select
.

Unhide, Unprotect, Enter Password
 

'Here is your code with proper protection password callouts:

With Sheets("Ledger")
.Visible = True
.Unprotect Password:= "MyPassword"
Sheets("Clerk Entry").Cells.Copy
.Cells.Select
.Paste
Application.CutCopyMode = False
.Protect Password:= "MyPassword", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
.Visible = False
End With
Sheets("PS 3083").Range("A1:AO1").Select



--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Don" wrote:

Hi,

I think this is probably fairly simply and I thought it would have
recorded when I recorded the macro but it didn't.

I have to have the macro unhide a worksheet, unprotect it, enter the
password, paste some data, re-protect it, and re-enter the pssword
twice to confirm, all without addditional user input because the user
will not know the password.

When I recorded this is what I got but it is prompting for the
password. After lines 2 and 11 are where I need some type of auto
password entry .

Sheets("Ledger").Visible = True
ActiveSheet.Unprotect
Sheets("Clerk Entry").Select
Cells.Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-10
Sheets("Ledger").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveWindow.SelectedSheets.Visible = False
Sheets("PS 3083").Select
Range("A1:AO1").Select
.