Macros code for Protecting and Unprotecting Sheets
Download as PPTX, PDF0 likes77 views
The document provides VBA code examples for common Excel tasks: 1) Code to protect and unprotect a sheet with a password. 2) Code to open multiple files from a folder and display the file names. 3) Code for zooming in and out of a worksheet by incrementally increasing or decreasing the zoom percentage. 4) Code to color the interior of a cell or range of cells.
Macros code for Protecting and Unprotecting Sheets
- 1. CODE FOR PROTECTING & UNPROTECTING SHEET
- 2. Sub Protect_sheet() Dim mypassword As String mypassword = “Insert_Password" Sheet1.Protect Password:=mypassword End Sub CODE TO PROTECT SHEET CODE TO UNPROTECT SHEET
- 3. Sub UnProtect_sheet() Dim mypassword As String mypassword = “Insert_Password" Sheet1.Unprotect Password:=mypassword End Sub CODE TO UNPROTECT SHEET THANKYOU
- 4. CODE TO OPEN MULTIPLE FILES FROM A FOLDER
- 5. Sub multiple_file_path() Dim fso As FileSystemObject Dim fl As File Dim fldr As Scripting.Folder Dim fls As files Dim fldrscripting As Folder Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.GetFolder("C:Documents and SettingsWELCOMEDesktopNew Folder") Set fls = fldr.files For Each fl In fls MsgBox (fl.Name) Workbooks.Open fldr & "" & fl.Name Next fl End Sub CODE TO OPEN MULTIPLE FILES FROM A FOLDER THANKYOU
- 6. CODE FOR ZOOM IN & ZOOM OUT
- 7. Sub MyZoomIn() Dim ZP As Integer ZP = Int(ActiveWindow.Zoom * 1.1) If ZP > 400 Then ZP = 400 ActiveWindow.Zoom = ZP End Sub CODE FOR ZOOM IN CODE FOR ZOOM OUT And then Allocate Shortcut key to it.
- 8. Sub MyZoomOut() Dim ZP As Integer ZP = Int(ActiveWindow.Zoom * 0.9) If ZP < 10 Then ZP = 10 ActiveWindow.Zoom = ZP End Sub CODE FOR ZOOM OUT THANK YOU And then Allocate Shortcut key to it.
- 9. CODE TO COLOR INTERIOR OF CELL
- 10. Sub Color_Interior_Cell() ActiveCell.Interior.ColorIndex = 36 End Sub CODE TO COLOR INTERIOR OF CELL THANK YOU Sub Color_Interior_Cell() Range("A1:A6").Interior.Color = RGB(200,160,35) End Sub OR