VBAのバージョン管理

＞これを楽に行なう方法はありませんでしょうか？？

アクティブなブックのモジュールを任意のフォルダ以下にブック名フォルダを作成して一括書き出しを行うプログラムです。
他人が作った物の改変等を行っているので、バックアップ目的に使っています。


Sub Module書出()
' VBA モジュールの書き出し
Dim Project, objxl As Object
Dim DirName As String
Const Path As String = "C:\tmp\"

MkDir Path
For Each objxl In Application.Workbooks
DirName = Path & Left(objxl.Name, Len(objxl.Name) - 4) & "\"
MkDir DirName
For Each Project In objxl.VBProject.VBComponents
Project.Export DirName & Project.Name & ".bas"
Next
Next
End Sub

参考までに。

ExcelのVBAで書かれたツール類をメンテしていますが、
ソースコードはVBAのエディタからテキストファイル(.cls)としてエクスポートしたものを
Subversionで管理しています。
2本立てになってはしまいますが、何もないよりは
マシなので妥協しています。