VBA poner contraseña a carpetas y archivos

Como hacer un programa que agregue clave y contraseña a carpetas y archivos.