Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
PSW for Macro & Codes
Peter,
What you gave me is the final part. What I need is to add a password in the code so that the user cannot unprotect the sheets. Then I will use the function you described to hide the password in the code. Thanks Alex "Peter Beach" wrote in message ... Hi Alex, If by PSW you mean "password", go to the Project Explorer (normally docked to the left-hand side of the screen) and right click with the mouse on the VBA Project item and select Properties. A window will pop up, go to the Protection Tab and set your password and enable protection. HTH Peter Beach <snip I want to add a PSW to avoid that the users do mistakes or changes in the WS What is the code I can use to add the PSW and where shall I place it? My intention is to use the VBA project properties to hide the PSW. Thank you Alex |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
PSW for Macro & Codes
Hi Alex,
The password is hidden by XL. You enter your own choice of password and unless the user knows the password they won't be able to unprotect the code. They will still be able to use the workbook, but they just won't have access to the VBA code. Am I misunderstanding something? BTW be aware that these passwords are relatively easily cracked by commercial products. Regards, Peter Beach "Metallo" wrote in message ... Peter, What you gave me is the final part. What I need is to add a password in the code so that the user cannot unprotect the sheets. Then I will use the function you described to hide the password in the code. Thanks Alex "Peter Beach" wrote in message ... Hi Alex, If by PSW you mean "password", go to the Project Explorer (normally docked to the left-hand side of the screen) and right click with the mouse on the VBA Project item and select Properties. A window will pop up, go to the Protection Tab and set your password and enable protection. HTH Peter Beach <snip I want to add a PSW to avoid that the users do mistakes or changes in the WS What is the code I can use to add the PSW and where shall I place it? My intention is to use the VBA project properties to hide the PSW. Thank you Alex |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
PSW for Macro & Codes
Peter,
Yes, you misunderstood. read my following mail, please. I need to protect the sheets first with a password and then use vba to hide it. Alex "Peter Beach" wrote in message ... Hi Alex, The password is hidden by XL. You enter your own choice of password and unless the user knows the password they won't be able to unprotect the code. They will still be able to use the workbook, but they just won't have access to the VBA code. Am I misunderstanding something? BTW be aware that these passwords are relatively easily cracked by commercial products. Regards, Peter Beach "Metallo" wrote in message ... Peter, What you gave me is the final part. What I need is to add a password in the code so that the user cannot unprotect the sheets. Then I will use the function you described to hide the password in the code. Thanks Alex "Peter Beach" wrote in message ... Hi Alex, If by PSW you mean "password", go to the Project Explorer (normally docked to the left-hand side of the screen) and right click with the mouse on the VBA Project item and select Properties. A window will pop up, go to the Protection Tab and set your password and enable protection. HTH Peter Beach <snip I want to add a PSW to avoid that the users do mistakes or changes in the WS What is the code I can use to add the PSW and where shall I place it? My intention is to use the VBA project properties to hide the PSW. Thank you Alex |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
PSW for Macro & Codes
Hi Alex,
On my systems (XL2k and XL XP) the first optional argument for the .Protect method of the worksheet is the password. e.g. Sub A() Dim WS As Worksheet Set WS = ThisWorkbook.Worksheets(1) WS.Protect "password" End Sub Regards, Peter Beach "Metallo" wrote in message ... Peter, Yes, you misunderstood. read my following mail, please. I need to protect the sheets first with a password and then use vba to hide it. Alex "Peter Beach" wrote in message ... Hi Alex, The password is hidden by XL. You enter your own choice of password and unless the user knows the password they won't be able to unprotect the code. They will still be able to use the workbook, but they just won't have access to the VBA code. Am I misunderstanding something? BTW be aware that these passwords are relatively easily cracked by commercial products. Regards, Peter Beach "Metallo" wrote in message ... Peter, What you gave me is the final part. What I need is to add a password in the code so that the user cannot unprotect the sheets. Then I will use the function you described to hide the password in the code. Thanks Alex "Peter Beach" wrote in message ... Hi Alex, If by PSW you mean "password", go to the Project Explorer (normally docked to the left-hand side of the screen) and right click with the mouse on the VBA Project item and select Properties. A window will pop up, go to the Protection Tab and set your password and enable protection. HTH Peter Beach <snip I want to add a PSW to avoid that the users do mistakes or changes in the WS What is the code I can use to add the PSW and where shall I place it? My intention is to use the VBA project properties to hide the PSW. Thank you Alex |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
PSW for Macro & Codes
Peter,
I think is better that I enclose the formatting macro as well. The macro as it is now, unprotects and protects again in order to apply the formatting. So my questions are two: 1) Where do I place the password in the code? (enclosed in my previous message) 1) Where do I place the password in the macro? (below) Sub EasyProjectPrint() ' ' EasyProjectPrint Macro ' Macro recorded 27/06/2004 by bepaldo ' ' Application.ScreenUpdating = False Sheets("2003").Unprotect Sheets("Reduction Target 2004").Unprotect Sheets("2004 Target").Unprotect Sheets("2004 Act").Unprotect Sheets("2004 Comp to 2003").Unprotect Sheets("2004 Comp to 2003_ Volume Only").Unprotect Sheets("Diff of 2004 Comp, to 2003").Unprotect Sheets("Diff of 2004 Comp, to 2004 Tgt ").Unprotect Sheets("Diff of 2004 Comp_VO, to 2003").Unprotect Sheets("Diff 2004 Comp_VO, to 2004 Tgt").Unprotect ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("2003", "Reduction Target 2004", "2004 Target", "2004 Act", _ "2004 Comp to 2003", "2004 Comp to 2003_ Volume Only", _ "Diff of 2004 Comp, to 2003", "Diff of 2004 Comp, to 2004 Tgt ", _ "Diff of 2004 Comp_VO, to 2003", "Diff 2004 Comp_VO, to 2004 Tgt")).Select Sheets("2003").Activate Range("A9:AD47").Select Selection.Interior.ColorIndex = 2 Range("A45:AD47").Select Range("AD47").Activate Selection.Font.ColorIndex = 0 Range("J6:J8").Select ActiveWindow.SmallScroll ToRight:=16 Range("J6:J8,X6:X8,AB6:AB8,AD6:AD8").Select Range("AD6").Activate Selection.Font.ColorIndex = 2 Range("A41:AD41,A35:AD35,A29:AD29").Select Range("AD29").Activate ActiveWindow.SmallScroll Down:=-12 Range("A41:AD41,A35:AD35,A29:AD29,A23:AD23,A17:AD1 7").Select Range("AD17").Activate ActiveWindow.SmallScroll Down:=-5 Range("A41:AD41,A35:AD35,A29:AD29,A23:AD23,A17:AD1 7,A11:AD11").Select Range("A11").Activate Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 16 End With Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 16 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 16 End With Range("AD9:AD47,AB9:AB47,X9:X47").Select Range("X9").Activate ActiveWindow.SmallScroll ToRight:=-17 Range("AD9:AD47,AB9:AB47,X9:X47,J9:J47").Select Range("J47").Activate With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid .PatternColorIndex = 17 End With ActiveWindow.SmallScroll Down:=-25 ActiveWindow.SmallScroll ToRight:=-20 Range("A1").Select Sheets("2003").Select ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets("2003").Protect Sheets("Reduction Target 2004").Protect Sheets("2004 Target").Protect Sheets("2004 Act").Protect Sheets("2004 Comp to 2003").Protect Sheets("2004 Comp to 2003_ Volume Only").Protect Sheets("Diff of 2004 Comp, to 2003").Protect Sheets("Diff of 2004 Comp, to 2004 Tgt ").Protect Sheets("Diff of 2004 Comp_VO, to 2003").Protect Sheets("Diff 2004 Comp_VO, to 2004 Tgt").Protect Application.ScreenUpdating = True End Sub Sub MonitorView() ' ' MonitorView Macro ' Macro recorded 27/06/2004 by bepaldo ' ' Application.ScreenUpdating = False Sheets("2003").Unprotect Sheets("Reduction Target 2004").Unprotect Sheets("2004 Target").Unprotect Sheets("2004 Act").Unprotect Sheets("2004 Comp to 2003").Unprotect Sheets("2004 Comp to 2003_ Volume Only").Unprotect Sheets("Diff of 2004 Comp, to 2003").Unprotect Sheets("Diff of 2004 Comp, to 2004 Tgt ").Unprotect Sheets("Diff of 2004 Comp_VO, to 2003").Unprotect Sheets("Diff 2004 Comp_VO, to 2004 Tgt").Unprotect ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets(Array("2003", "Reduction Target 2004", "2004 Target", "2004 Act", _ "2004 Comp to 2003", "2004 Comp to 2003_ Volume Only", _ "Diff of 2004 Comp, to 2003", "Diff of 2004 Comp, to 2004 Tgt ", _ "Diff of 2004 Comp_VO, to 2003", "Diff 2004 Comp_VO, to 2004 Tgt")).Select Sheets("2003").Activate ActiveWindow.SmallScroll ToRight:=18 ActiveWindow.SmallScroll Down:=21 Range("A9:AD47").Select Range("AD47").Activate Selection.Interior.ColorIndex = 15 Range("A11:AD11,A17:AD17,A23:AD23,A29:AD29").Selec t Range("AD29").Activate ActiveWindow.SmallScroll Down:=16 Range("A11:AD11,A17:AD17,A23:AD23,A29:AD29,A35:AD3 5,A41:AD41").Select Range("AD41").Activate Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 16 End With Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 2 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 16 End With ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 21 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 18 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 9 Range("J9:J47").Select ActiveWindow.SmallScroll ToRight:=15 Range("J9:J47,X9:X47,AB9:AB47,AD9:AD47").Select Range("AD47").Activate With Selection.Interior .ColorIndex = 48 .Pattern = xlSolid .PatternColorIndex = 17 End With Range("AD6:AD8,AB6:AB8,X6:X8").Select Range("X6").Activate ActiveWindow.SmallScroll ToRight:=-15 Range("AD6:AD8,AB6:AB8,X6:X8,J6:J8").Select Range("J6").Activate Selection.Font.ColorIndex = 6 ActiveWindow.SmallScroll Down:=25 Range("A45:AD47").Select Selection.Font.ColorIndex = 5 ActiveWindow.SmallScroll Down:=-25 ActiveWindow.SmallScroll ToRight:=-20 Range("A1").Select Sheets("2003").Select ActiveWindow.ScrollWorkbookTabs Position:=xlFirst Sheets("2003").Protect Sheets("Reduction Target 2004").Protect Sheets("2004 Target").Protect Sheets("2004 Act").Protect Sheets("2004 Comp to 2003").Protect Sheets("2004 Comp to 2003_ Volume Only").Protect Sheets("Diff of 2004 Comp, to 2003").Protect Sheets("Diff of 2004 Comp, to 2004 Tgt ").Protect Sheets("Diff of 2004 Comp_VO, to 2003").Protect Sheets("Diff 2004 Comp_VO, to 2004 Tgt").Protect Application.ScreenUpdating = True End Sub "Metallo" wrote in message ... Peter, What you gave me is the final part. What I need is to add a password in the code so that the user cannot unprotect the sheets. Then I will use the function you described to hide the password in the code. Thanks Alex "Peter Beach" wrote in message ... Hi Alex, If by PSW you mean "password", go to the Project Explorer (normally docked to the left-hand side of the screen) and right click with the mouse on the VBA Project item and select Properties. A window will pop up, go to the Protection Tab and set your password and enable protection. HTH Peter Beach <snip I want to add a PSW to avoid that the users do mistakes or changes in the WS What is the code I can use to add the PSW and where shall I place it? My intention is to use the VBA project properties to hide the PSW. Thank you Alex |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro codes | Excel Discussion (Misc queries) | |||
Need some macro codes | Excel Discussion (Misc queries) | |||
codes, codes, codes... | Excel Discussion (Misc queries) | |||
Help with codes please!! | Excel Discussion (Misc queries) | |||
hiding macro codes upon protecting the worksheet | Excel Discussion (Misc queries) |