This post may contain affiliate links. Please read my disclosure for more info:

Workbook VBA properties and actions

VBA Code Snippets

VBA Code Snippets

Working with workbooks is one of the most common actions when writing VBA code.  The following is a reference guide to for finding the right syntax.

Contents:

 

Referencing workbooks by name

'Reference a workbook by name
Workbooks("WorkbookName.xlsx").[other properties/actions]

 

Referencing workbooks by their status

'Reference the workbook in which the VBA code is
ThisWorkbook.[other properties/actions]

'Reference the active workbook
ActiveWorkbook.[other properties/actions]

 

Referencing workbooks by when they were opened

'Referencing the first workbook opened
Workbooks(1).[other properties/actions]

'Referencing the second workbook opened
Workbooks(2).[other properties/actions]

'Referencing the last workbook opened
Workbooks(Workbooks.Count).[other properties/actions]

 

Assign a workbook to a variable

'Assign a workbook to a variable
Dim Wk as Workbook
Set Wk = Workbooks("WorkbookName.xlsx")

 

Create new workbooks

'Create a new workbook
Workbooks.Add

'Assign a new workbook to a variable
Dim Wk as Workbook
Set Wk = Workbooks.Add

 

Opening workbooks

'Open a workbook
Workbooks.Open ("C:\FilePath\WorkbookName.xlsx")

'Open a workbook as read-only
Workbooks.Open ("C:\FilePath\WorkbookName.xlsx", ReadOnly:=True)

 

Counting the open workbooks

'Counting the open workbooks
Workbooks.Count

 

Saving workbooks

'Save a workbook
Workbooks("WorkbookName.xlsx").Save

'Save a workbook with a new name
Workbooks("WorkbookName.xlsx").SaveAs "C:\FilePath\NewWorkbookName.xlsx"

'Save a copy of the workbook
Workbooks("WorkbookName.xlsx").SaveCopyAs "C:\FilePath\NewWorkbookName.xlsx"

 

Protect & Unprotect workbooks

'Protect workbook without password
Workbooks("WorkbookName.xlsx").Protect

'Unprotect workbook without password
Workbooks("WorkbookName.xlsx").Unprotect

'Protect workbook with password
Workbooks("WorkbookName.xlsx").Protect "Password"

'Unprotect workbook with password
Workbooks("WorkbookName.xlsx").Unprotect "Password"

 

Closing workbooks

'Close without saving changes
Workbooks("WorkbookName.xlsx").Close False

'Close and save changes
Workbooks("WorkbookName.xlsx").Close True

 

Using the active workbook

'Activate a workbook
Workbooks("WorkbookName.xlsx").Activate

Save

Leave a Reply

Your email address will not be published. Required fields are marked *