Swaraprastharam- Abhogi

1. MSS- Manjudai Putti

A short, but stormy swirl of Kalpanaswaras by MSS in her rendition of the Annamarcharya Krithi "Manjudai putti" in the ragam Abhogi

 1. dSdm-gmgr-s,rg

2. m,grg-m,grg-srgm-grrsrgm

3.  Sarvalaghu

     m,md-

    m,mgmd,d,-

    ddddmm,m-

    ggmgmddmgrg,g,,,-

    rgmgrs,-

    srgmgrs,-

    ss,s,rgmgrs-

    rgmddmmggrssrgm,-

    gmddmgrgmddmdS-

   d,SRGMMGRSdS-

    GRRSSddmmggrrssd,srgm

Macro to unprotect multiple workbooks in a Folder

Object of the Macro:

Multiple excel workbooks are in a folder.

Each workbook is protected by a password.

I want to get them unprotected using a the password and get them pooled into a folder.

Code:

 

 

Sub Hell3()

    Dim WB As Workbook

    Dim xFd As FileDialog

    Dim xFdItem As Variant

    Dim xFileName As String

    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)

 

    If xFd.Show = -1 Then

        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator

        xFileName = Dir(xFdItem & "*.xls*")

        MkDir xFdItem & "\Password Removed Files"

        Do While xFileName <> ""

            Set WB = Workbooks.Open((xFdItem & xFileName), Password:="pass")

 

                WB.SaveAs Filename:=xFdItem & "Password Removed Files\" & xFileName, FileFormat:=51, Password:="", WriteResPassword:="", _

                ReadOnlyRecommended:=False, CreateBackup:=False

 

                WB.Close True

             xFileName = Dir

        Loop

    End If

 End Sub

Note: 

Ensure to replace the word "pass" with your actual password in the code

 

 

Ind AS 2- Inventories

My posts on Ind- AS 2- Inventories in Linkedin:

Part 1

Part 2

Part 3

Part 4