View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Don[_3_] Don[_3_] is offline
external usenet poster
 
Posts: 10
Default 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