Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set Folder permission by macro
Hi Jon-jon,
This isn't easy to do through code. One way is to find a third-party component that allows you to do it more easily. Another is to do it yourself with the ADsSecurity.DLL component from MS: http://support.microsoft.com/default...b;en-us;279682 But the best way IMO, if you can do it, is to set the necessary permissions on a container folder, then any folder you create under that should inherit the same security settings. -- Regards, Jake Marx MS MVP - Excel JON-JON wrote: Dear Expert, I created a macro that will create a folder that will be the container for our monthly report. Is it possible to set the folders permission using macro. I am using Office XP, OS XP and I am member of a domain (user-level access). TIA Jon-jon Sub PL01_SetupFolder() RepDate = LastMonEnd() MkDir "C:\Report\" & Format(RepDate, "mmm yy") MkDir "C:\Report\" & Format(RepDate, "mmm yy") & "\DIVISION 1 " & Format(RepDate, "mmm yy") MkDir "C:\Report\" & Format(RepDate, "mmm yy") & "\DIVISION 2 " & Format(RepDate, "mmm yy") End Sub Function LastMonEnd() As Date Dim MonthNum As Integer RepMonNum = Month(Now()) - 1 Select Case RepMonNum Case 2 LastMonEnd = DateSerial(Year(Now()), Month(Now()) - 1, 28) Case 4, 6, 9, 11 LastMonEnd = DateSerial(Year(Now()), Month(Now()) - 1, 30) Case 0 LastMonEnd = DateSerial(Year(Now()) - 1, 12, 31) Case Else LastMonEnd = DateSerial(Year(Now()), Month(Now()) - 1, 31) End Select End Function |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
folder permissions with a macro | Excel Discussion (Misc queries) | |||
Macro creating folder and files automatically, without permission. | Excel Discussion (Misc queries) | |||
Copy a folder by macro | Excel Discussion (Misc queries) | |||
Changing Macro Folder | Excel Discussion (Misc queries) | |||
Set Folder permission by macro | Excel Programming |