Found a new use for this old code utalizing application.filesearch. Trouble is this function is not available in MS Word 2007. Quick 500 Points for a resolution.
Public Sub UnprotectBatch()
' Created 01/05/2004
' RESULT: Files found in the search are Unprotected
flocation = InputBox("Enter full path for the files to unprotect.", "Batch Unprotection")
If flocation = "" Then Exit Sub
Application.ScreenUpdating = False
Set fs = Application.FileSearch
.LookIn = flocation
.SearchSubFolders = False
.FileName = "*.doc"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
On Error Resume Next
MsgBox "There are no MS Word files found in the location specified."
The canonical version of this article is on my web site here:
A companion presentation is available here:
The System Center Operations Manager 2012, known as SCOM, is a part of the Microsoft system center product that provides the user with infrastructure monitoring and application performance monitoring.
Windows or UNIX/LinuxNetwo…
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels.
Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the
Monte Carlo …