Function GetVersion As String Dim verNo As Integer verNo = VBA.Val(Application.Version) Select Case verNo Case 8: GetVersion = 'Excel 97' Case 9: GetVersion = 'Excel 2000' Case 10: GetVersion = 'Excel 2002' Case 11: GetVersion = 'Excel 2003' Case 12: GetVersion = 'Excel 2007' Case 14: GetVersion = 'Excel 2010' Case 15: GetVersion = 'Excel 2013' Case 16: GetVersion = 'Excel 2016' Case Else: GetVersion= 'Excel Unknown Version” End Select End Function. Step 1, Open Excel. If you're working on a current project, you'll want to save it before continuing. You'll be able to open the program from your Start Menu.Step 2, Click the File tab. You'll see this on the left side of the menu that's above your editing space.Step 3, Click Account. You'll see this near the bottom of the menu on the left side of your screen. You'll click Help if you see that instead. You should see the 'Version' listing under the 'About Excel' button next to a question.
- Versions Of Excel
- How To Check Excel Version 2010
- How To Check Excel Version 2010 Con Nombres
- Microsoft Excel Version
- How To Check Excel Version
A drop down list allows you to enter data into an Excel spreadsheet from a preset list of entries. This can be done to make data entry easier or to limit the number of acceptable choices.
If you’re using Office for Mac, open one of the Office programs, such as Word, and click on the Word (or Excel, PowerPoint, etc.) menu. How to install excel on my computer. Select “About Word”. The About Word (or Excel, PowerPoint, etc.) dialog box displays, listing the current version number and the build number. If you see Version 15.x, you’re using Office for Mac 2016. In Excel 2010 and later, when you open a workbook that was created in Excel 97-2003, it is automatically opened in Compatibility Mode, and you see Compatibility Mode in square brackets next to the file name in the Excel title bar. The file format of compatibility mode. To check your version of Office, do the following: Open any Office 2010 application, such as Word or Excel. Choose File Help. Under Click-to-Run Product Updates, note the version number that is listed. If the version number matches the most current version, you're up to date. If not, you can manually update to get the latest version of Office 2010.
Please note: To create a drop down list the file type needs to be .xlsx. If your file does not end with .xlsx: How to save screenshot on computer.
- Select the ‘File’ menu then ‘Save As’
Versions Of Excel
- Ensure that the ‘Save as type’ is ‘Excel Workbook (*.xlsx)’ and save the document.
The following instructions detail how to create a drop down list in Excel 2010:
- Select a new sheet (e.g. ‘Sheet2′) and enter in your drop down list options
- Go back to your original sheet (e.g. ‘Sheet1′) and select the fields you need to be a drop down list field
- Select the ‘Data’ ribbon from the top menu then ‘Data Validation’
- Under ‘Allow’ select ‘List’
- Click on the icon next to ‘Source’
- Navigation to your list (e.g. Sheet2), select the list and click on the icon again
- Select ‘OK’ to save the changes
In the good old days, it was easy to check the application version in Office with VBA. You just used a little test of Val(Application.Version) to return the number. 12 was Office 2007, 14 was Office 2010, 15 was Office 2013, and 16 was Office 2016. But then Office 365 came out, and 2019, and things fell apart.
Conducting a check of the application version in Modern Office is not as straight forward. From Office 2016 onwards, Microsoft has not revved the Application.Version number - they all show as 16.0 - giving you no way to differentiate between versions. (Bastien discusses this in a blog post a few months ago.) But worse, while he focuses on 2016 vs 2019, there is also no way to test between these and Office 365 subscription versions. As there are now things that work differently for Office 365 than the perpetual licenses, this is another potential problem for developers.
This past week I ran into a scenario where I needed to do exactly this. I needed to find a way to programatically enumerate whether a user is running Office 2016, Office 2019 or Office 365, as I had to do something different in each case.
How To Check Excel Version 2010
After doing a little digging, I finally found a registry key that seems to appear in Office 2019 and Office 365, but does not exist in Office 2016. So that was good news. And even better, that key holds values like 'O365ProPlusRetail' vs 'Office2019ProfessionalPlus'. While I haven't tested with other SKUs, this would seem to indicate a pattern I hope we can rely on.
Given that, I've pulled together this function. It's purpose is fairly simple: Test the application and see if it is a perpetual license or a subscription install, and return the version number. So anyone with Office 365 installed should receive 365 as a return, otherwise you'll get a four digit number representing the version you have installed.
Function AppVersion() As Long
'Test the Office application version
'Written by Ken Puls (www.excelguru.ca)
'Test the Office application version
'Written by Ken Puls (www.excelguru.ca)
Dim registryObject As Object
Dim rootDirectory As String
Dim keyPath As String
Dim arrEntryNames As Variant
Dim arrValueTypes As Variant
Dim x As Long
Dim rootDirectory As String
Dim keyPath As String
Dim arrEntryNames As Variant
Dim arrValueTypes As Variant
Dim x As Long
Select Case Val(Application.Version)
Case Is = 16
'Check for existence of Licensing key
keyPath = 'SoftwareMicrosoftOffice' & CStr(Application.Version) & 'CommonLicensingLicensingNext'
rootDirectory = '.'
Set registryObject = GetObject('winmgmts:{impersonationLevel=impersonate}!' & rootDirectory & 'rootdefault:StdRegProv')
registryObject.EnumValues &H80000001, keyPath, arrEntryNames, arrValueTypes
'Check for existence of Licensing key
keyPath = 'SoftwareMicrosoftOffice' & CStr(Application.Version) & 'CommonLicensingLicensingNext'
rootDirectory = '.'
Set registryObject = GetObject('winmgmts:{impersonationLevel=impersonate}!' & rootDirectory & 'rootdefault:StdRegProv')
registryObject.EnumValues &H80000001, keyPath, arrEntryNames, arrValueTypes
How To Check Excel Version 2010 Con Nombres
On Error GoTo ErrorExit
For x = 0 To UBound(arrEntryNames)
If InStr(arrEntryNames(x), '365') > 0 Then
AppVersion = 365
Exit Function
End If
If InStr(arrEntryNames(x), '2019') > 0 Then
AppVersion = 2019
Exit Function
End If
Next x
For x = 0 To UBound(arrEntryNames)
If InStr(arrEntryNames(x), '365') > 0 Then
AppVersion = 365
Exit Function
End If
If InStr(arrEntryNames(x), '2019') > 0 Then
AppVersion = 2019
Exit Function
End If
Next x
Case Is = 15
AppVersion = 2013
Case Is = 14
AppVersion = 2010
Case Is = 12
AppVersion = 2007
Case Else
'Too old to bother with
AppVersion = 0
End Select
AppVersion = 2013
Case Is = 14
AppVersion = 2010
Case Is = 12
AppVersion = 2007
Case Else
'Too old to bother with
AppVersion = 0
End Select
Exit Function
ErrorExit:
'Version 16, but no licensing key. Must be Office 2016
AppVersion = 2016
'Version 16, but no licensing key. Must be Office 2016
AppVersion = 2016
End Function
If you'd prefer to just download a workbook with the code in it, here you go.
I'd love it if people could give this a try and see if it returns correctly based on the versions of Excel you're running, particularly if you have a flavor of Office 365 or Excel 2019.
Microsoft Excel Version
Let me know how it goes!
How To Check Excel Version
EDIT: I have made a small change to the code and sample file in case 'O365' is not at the beginning of the registry key. This should pick it up no matter where in the key the 365 term shows up. I am starting to wonder if this key is only present for Insiders. So if you do test, please let us know what channel you are on in addition to whether or not it works!