Results 1 to 3 of 3

Thread: [RESOLVED] NewPassword command in Excel VB

  1. #1

    Thread Starter
    Member
    Join Date
    Jan 2006
    Posts
    50

    Resolved [RESOLVED] NewPassword command in Excel VB

    Does 'NewPassword' command have any use in Excel VB?

    My problem is that I have a 'Read-Only' template user form and this form is populated with various bits of data.

    I want to then save the user form with the data to another folder but not as read only.

    My code as it stands now (saving amended form as 'Read-Only') -

    VB Code:
    1. With activeworkbook
    2.              .SaveAs ("S:\Finance\Finance\Form 19 Jan 06")

    I know I can add/remove the password by specifying after file name, but before the password comes FileFormat. Do I have to specify this as well or can I use -

    VB Code:
    1. .SaveAs ("S:\Finance\Finance\Form 19 Jan 06"),"",

    to remove the password.


    Thanks

  2. #2
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709

    Re: NewPassword command in Excel VB

    It should not be saved with a password unless specified. But if it doesnt then use a vbNullstring or "".
    VB Code:
    1. ActiveWorkbook.SaveAs Filename:="C:\Test.xls", Password:="123"
    2.  
    3. 'Or
    4. ActiveWorkbook.SaveAs Filename:="C:\Test.xls", Password:=""
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

  3. #3

    Thread Starter
    Member
    Join Date
    Jan 2006
    Posts
    50

    Re: NewPassword command in Excel VB

    thanks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width