COMPLETELY Disable Protected View in Excel 2010

I am currently running Excel 2010 Standard. In our environment we have an AS400 that can create Excel files (97-2003 format) that earlier versions of Excel would open without an issue. With Excel 2010 I am unable to open the file, even though
I've unchecked all of the Protected View settings. Is there anyway to disable all of the protected view options from ever running? I understand it's a security thing, but it is causing more issues in my environment than preventing.

Yes I know I was in protected view. It's pretty obvious when you're in there. I even turned off DEP just to make sure it wasn't intefering. Just for your edification I've included links to three screenshots. One showing protected
view, COMPLETELY turned off, followed by a screenshot of a file being BLOCKED by PROTECTED VIEW, then followed up with what shows on the details page.
http://www.visionsrealm.us/images/proview/ProtectedView.jpg
http://www.visionsrealm.us/images/proview/ProtectedView2.jpg
http://www.visionsrealm.us/images/proview/ProtectedView3.jpg
Before you ask I have saved the file from my email to a folder within my documents. So not only was it removed from email, to prevent the issue of opening in protected view because it was from Outlook. But I also made sure that it was in a trusted
location.
Now tell me, if it is COMPLETELY turned off, why is my file being BLOCKED?
Like my question said before, where else do I need to go to COMPLETELY disable protected view.

Similar Messages

Performance issues when using Smart View and Excel 2010

Hello, we are experiencing very slow retrieval times when using Smart View and Excel 2010. Currently on v.11.1.3.00 and moved over from Excel 2003 in the last quarter. The same spreadsheets in 2010 (recreated) are running much slower than they used to in 2003 and I was wondering if anyone else out there has experienced similar problems?
It looks like there is some background caching going on as when you copy and paste the contents into a new file and retrieve it is better.....initially. The size of the files are generally less than 2mb and there aren't an expecially large number of subcubes requested so I am at a loss to explain or alleviate the issues.
Any advice / tips on how to optimise the performance would be greatly appreciated.
Thanks,
Nick

Hi Nick,
Office 2010 (32 bit) only is supported.
Also check these documents:
Refresh in Smart View 11.1.2.1 is Slow with MS Office 2010. (Doc ID 1362557.1)
Smart View Refresh Returns Zeros (Doc ID 758892.1)
Internet Explorer (IE7, IE8 and IE9) Recommended Settings for Oracle Hyperion Products (Doc ID 820892.1)
Thank you,
Charles Babu J
Edited by: CJX on Nov 15, 2011 12:21 PM

How To Turn OFF Protected View In Office 2010 Using GPO

How To Turn OFF Protected View In Office 2010 Using GPO

The Protected View settings are specific to each application in Office.
Install the Office 2010 Administrative Template files (ADM, ADMX/ADML) and Office Customization Tool
(http://www.microsoft.com/en-us/download/details.aspx?id=18968 ) first, and then adjust the settings for each applications with the reference to below article:
http://msdn.microsoft.com/en-us/library/ff400327(v=office.14).aspx
The settings are under: Microsoft $PRODUCT 2010->$PRODUCT Options->Security->Trust Center->Protected View

Excel 2013 registry entry for removing the protected view in excel.

Hi All
I am having Office 2013 on my machine. I wanted to remove protected view from my excell which is showing up when I convert pdf to excell using total pdf converter. The protected view is in red color mode. When I tried searching for the same on the net I
found a registry customization for the excel to overcome the issue.
HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\FileValidation with “EnableOnLoad”=dword:00000000
I tried this out on a machine having 2010 office and it worked but when I tried the same on my machine I could not find FileValidation key but found couple of other keys like Trusted Documents and Trusted Locations. So I tried adding the dword in both the
key locations but could not address the issue. Is there any solution for addressing the issue on 2013 office. My system is a 64 bit one. I tried adding the above key in 64 bit version of excel. I am using windows 8.1 for your information.
Please suggest a solution at the earliest possible time.

Hi,
Looks like you want to turn off Office File Validation.
Maybe you should try to create FileValidation Key under the Security.
Remember to Backup you register before you change it.
1.Locate and then select the following registry key:
   HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security
2.Select Security, point to New on the
Edit menu, and then click Key.
   Type FileValidation, and then press Enter.
3.Select FileValidation, point to New on the
Edit menu, and then click QWORD Value.
   Type EnableOnLoad, and then press ENTER.
Wind Zhang
TechNet Community Support

Protected View - disable

There seems to be a discrepancy between Adobe Customization Wizard XI and the actual preferences in Reader after it is installed. I used the Wizard to create an .mst for the Reader installation. In one section I checked OFF for Protected view. When I installed it, the Preferences in Reader show Sandbox Protections and a box for Enable Protected Mode at Startup. This box is checked. Under that is Protected view and off is selected but it is grayed since the Enable Protected Mode at startup is checked.
I don't want protected mode running but I don't see how to fix that in my installation package. The wording in the Wizard doesn't match the actual preferences.
Thanks.
Jane

Yes I know I was in protected view. It's pretty obvious when you're in there. I even turned off DEP just to make sure it wasn't intefering. Just for your edification I've included links to three screenshots. One showing protected
view, COMPLETELY turned off, followed by a screenshot of a file being BLOCKED by PROTECTED VIEW, then followed up with what shows on the details page.
http://www.visionsrealm.us/images/proview/ProtectedView.jpg
http://www.visionsrealm.us/images/proview/ProtectedView2.jpg
http://www.visionsrealm.us/images/proview/ProtectedView3.jpg
Before you ask I have saved the file from my email to a folder within my documents. So not only was it removed from email, to prevent the issue of opening in protected view because it was from Outlook. But I also made sure that it was in a trusted
location.
Now tell me, if it is COMPLETELY turned off, why is my file being BLOCKED?
Like my question said before, where else do I need to go to COMPLETELY disable protected view.

Problems with exporting PWA views (grids in general) to Excel 2010 with Windows 8 + IE 10 as a client configuration

Hello,
I wondering if windows 8 + IE10 is a supported client configuration for PWA (Project Server 2010). I am unable to export PWA views to Excel 2010. No problems with Windows 7 + IE8/9
Any ideas?
thanks,
Daniel
Daniel Villacis

Hi,
We followed the below steps in the local machine and check the behavior.
a. Open the Windows registry editor (regedit.exe)
b. Go the location HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe
c. Here, you’ll see a string value named “useURL”
d. Rename this value to something else. For example “useURLx”
Note: You might have to restart the machine to apply the registry change to take effect.

Protected View Error "The file is corrupt and cannot be opened"

All
I have a problem with Protected View in Office 2010 on Windows 7.
Symptom: When downloading a file from the Internet, the file will not open if launched directly from the source location, or saved locally and then opened. This
is impacting both Word and Excel. I haven’t tested other applications. The user gets the error "The file is corrupt and cannot be opened.".
Expected behaviour: Documents should open in Protected View because they are coming from an untrusted zone (Internet Zone).
Troubleshooting Results:
-      If I turn off Protected View the error goes away and the documents open without
issue (but not in Protected View obviously)
-      If I save the file locally, then copy it to a network drive, the problem goes away (because the zone information is changed?).
-      If I save the file directly to a network location, then open it, the problem does not impact me (also doesn’t open in Protected View)
-      If I repair Office the problem is NOT fixed
-      If I reinstall Office the problem is NOT fixed
The problem doesn't impact all machines, but any new machine I build suffers the problem. All Protected View options are set by group policy and all machines are getting the correct settings.
-       The setting “Enable Protected View for files originating from the Internet” is enabled
-       The setting “Enable Protected View for files located in potentially unsafe locations” is enabled
-      The setting “Enable Protected View for Outlook attachments” is enabled
-      Enable Data Execution Prevention mode is enabled
Has anyone seen this problem or can anyone offer suggestions of where to start looking for the root cause? There are lots of postings on this around the various Internet forums, but most
just suggest turning off Protected View, that is not a valid solution to my mind, Protected View is there for a very sound reason and it is not something I'm willing to turn off, especially when it is working on some machines as expected.
Thanks.
James.

Thanks for coming back, James, and I'm glad you've found the source of your
problem.
As an aside, I had no idea HP made software like that and will take a look
at it - or would if I could. Personally, although I love their hardware, I
wouldn't touch HP software, and the fact that their web page doesn't load
(in IE8) just reinforces my feeling.
Enjoy,
Tony
www.WordArticles.com
"jsc.19" wrote in message news:f9aaa05d-ad62-4f0e-96e1-6bbeb4c7098d...
> Will, thanks for taking the time to post some suggestions. I understand
> Protected View perfectly well and my post is because Protected View is not
> behaving as it should. I think my dot points above show this, still,
> thanks for taking the time to post. I think Tony is more on track with
> his questions around what has changed in my build, and this is the area
> I've focused on over the few days since posting.
>
> I've pulled my build apart and put it back together and found the issue.
> This was tedious to say the least, but turned out worthwhile. A program
> we used called Trim Context Desktop
> (http://h71028.www7.hp.com/enterprise/w1/en/software/information-management-trim.html)
> is part of our SOE. This is a records management tool, but we only use a
> small feature set, and all the Office integration options that can be
> configured during install are turned off, but it turns out that the
> application still impacts Office. If I uninstall the Trim client from our
> SOE, Office Protected View starts working as expected. We knew the full
> Trim suite wasn't ready for Office 2010, but assumed, wrongly, that since
> we didn't use the Office integration features we were OK. All our testing
> was around the application and it works fine, I just didn't connect it to
> the Office issues until systematically eliminating changes from the SOE
> build. Keep a log of your changes!!! It helped me reverse things until I
> found the problem.
>
> Uninstalling Trim also fixes and issue I had in Outlook where the
> previewers wouldn't display Office documents, reporting that the
> previewers were not installed.
>
> We will go to HP to get some support and advice around this before putting
> Trim back in to the SOE.
>
> Anyone - if you have similar problems, can I suggest you look at all your
> Office add-ins and also any applications that may potentially hook in to
> Office.
>
> Cheers all.
>
> James.
>
>
>
Enjoy,
Tony
www.WordArticles.com

Lock Excel 2010 Headers and Footers in Protected Worksheet

Hi,
Is there any way to lock Excel 2010 Headers and Footers in a Protected Worksheet?
Thank You!

Hi,
Here is one way to 'lock' the header and footer control, by disabling it in the WorkBook_Open event.
You indicate that the workbook is 'macro enabled', so if you are well versed in VBA please forgive the following
step by step 'how to'.
Copy the following code to the clipboard:
Private Sub Workbook_Open()
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = True
End Sub
Press ALT + F11
Double click 'THIS WORKBOOK' in the Microsoft Excel Objects in the upper left quadrant.
Paste both event handlers into the WorkBook module editing area to the right.
Close the VBE and return to the worksheet.
Save the workbook.
Now, whenever the workbook is opened, the Header and Footer option under the View tab will be disabled (grayed out). When the workbook is closed, the control will be enabled again so it will be accessible in all subsequently opened workbooks.
If you wish to have access to the header and footer for 'maintenance', copy the following macro to the clipboard:
Sub HeadnFoot()
If Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = False Then
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = True
Else
Application.CommandBars("Worksheet menu bar"). _
Controls("View").Controls("&Header and Footer...").Enabled = False
End If
End Sub
ALT + F11 to access the VBE.
INSERT > MODULE
Paste the macro into the module editing area to the right.
Close the VBE.
Press ALT + F8
When the Macros window opens, highlight this macro and click 'Options..'.
Enter a letter to be used as a keyboard shortcut and click 'OK'.
Close the Macros window.
Save the workbook.
Now, when you open the workbook and need to modify the header or footer, press CTRL + your shortcut letter and the control will be enabled. Press the keyboard shortcut again and the control will again be disabled. It is a 'toggle' macro.
Sincerely,
Harry

Excel 2010 cannot complete this task... Error in a shared spreeadsheet

The layout
A server in an office connects 5 computers running windows 7 and using MS office plus 2010(32bit) and 1 computer running XP using MS office plus 2007(32bit), they are all 64bit OS's besides xp. They share many spreadsheets that are opened, edited and updated
simultaneously off the server. Since the spreadsheets need to be referred to each other, 2 up to 5 excel files must be opened on the computer I'm working on.
I'm working with a computer that has the following error during reading and writing to spreadsheets.
"Excel cannot complete this task with available resources choose less data or close Other applications"
This error occurs simply because excel has used up all the resources. However I'd like to avoid the simple "close redundant spreadsheets" because sooner or later they will need to be used.
The problem is that its only one computer that is having this problem all other computers don't get this error despite having equal amount of spreadsheets opened as the problematic computer. We've upgraded the ram and graphics card on that computer yet problem
persists. I'm aware of the 2gb ram access restriction office 32bit has.
The only solution I can think of would be to install a 64 it version of office on this computer set the default program that opens the file to the 64bit excel version (only for the problematic computer). Will cause errors? Seeing as other computers run 32bit
office?
Does anyone know of any other ways of doing this? When the error occurs the file is locked and all data that is entered into the file after that is lost. Thanks in advanced

Hi,
Do these five pcs have the same hardware?
As far as I know, the above memory error messages can be very generic and don't always identify the real cause of the issue. Please follow the KBs below, try the methods and check if they are helpful.
http://support.microsoft.com/kb/2779852
http://support.microsoft.com/kb/2655178
Then, I agree with you, we can update the Excel to 64bit version. Because the max RAM usage of the Excel 2010 32bit version is 2 GB. Even if we add more physical memory, 32bit version won’t be able to use it. I recommend you use Excel 64bit
version to open/edit the large workbook instead. The 64-bit version of Excel 2010 is not constrained to 2 GB of RAM usage like 32-bit applications does.
Hope it's helpful.
Regards,
George Zhao
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.
Please remember to mark the replies as answers if they help, and unmark the answers if they provide no help. If you have feedback for TechNet Support, contact [email protected]

Excel 2010 not enough system resources to display completely

I have searched the web high and low for an answer to this issue we are having with one user who uses Excel 2010 quite extensively and I have not been able to find an answer that resolves the issue.
She keeps getting the error message "Not enough system resources to display completely." The spreadsheet in question is a simple two worksheet file that she does simple calculations on. Her PC is an HP Elitebook 8560w (only 1 month
old) with an i7 Intel processor, 8GB RAM, 500GB HDD with over 300GB free, Windows 7 Professional (64-bit) with all the latest patches and updates & Office 2010 Professional (32-bit). The video and printer drivers are all update to the latest versions.
The spreadsheet is one she has used before on her older Windows XP Pro SP3 desktop with no problems. We have tried the "set the Zoom to 100% or less" resolution that has been mentioned all over the web and it does not work.
We are still having this issue. Does anyone know how to resolve this in Excel 2010. I have seen the "solutions" for Excel XP, 7, 2000, 2003 and 2007 and they don't seem to work, or at least the ones I have tried! :-)
Would welcome all serious suggestions. Mahalo Nui Loa!

I've had this problem on several computers on our network. I found various recommendations, but no solid answers. I have resolved this problem on two computers with
just the first steps performed. The third computer require also following the step highlighted in yellow below:
Deleted all temp files by:
Start > Run > enter %temp% in the search box and press Enter
Delete everything from this folder
Cleared Recent Docs List & Lower Number Displaying:
File > Options > Advanced > Scroll to Display category > change number of recent documents. To clear the list, set this to 0 and save. You can adjust up after that if you choose.
Delete files from the following folders:
(may have to view hidden files – top corner drop down > folder options > view tab > Hidden files and folders > select Show hidden files, folders and drives.
Local Service:
%windir%\ServicesProfiles\LocalService\AppData\LocalLow\Microsoft\CryptnetUrlCache\Content
%windir%\ServicesProfiles\LocalService\AppData\LocalLow\Microsoft\CryptnetUrlCache\MetaData
Network Service:
%windir%\ServicesProfiles\NetworkService\AppData\LocalLow\Microsoft\CryptnetUrlCache\Content
%windir%\ServicesProfiles\NetworkService\AppData\LocalLow\Microsoft\CryptnetUrlCache\MetaData
LocalSystem:
%windir%\System32\config\systemprofile\AppData\LocalLow\Microsoft\CryptnetUrlCache\Content
%windir%\System32\config\systemprofile\AppData\LocalLow\Microsoft\CryptnetUrlCache\MetaData
The above process worked to prevent this problem on two machines, but not another. On the one that this didn’t work, I also
Start > Programs > Windows Update > View Update History. Look for KB# 2597166
If it exists, click it and uninstall.
Can also try, though I didn’t. I may do this first, but I didn’t feel this was my issue.
Control Panel > Add/Remove Programs > Select Office > Change > Run Repair

SharePoint 2007 Export to Excel 2010 or Excel 2013 Fails to Export All Fields in All Items View

Hi All,
When I am trying to export the SharePoint View from SharePoint site to Spreadsheet (Excel 2013), I am able not able to export the the whole data, I'm missing some numerical columns from being displayed in Excel
I have Infopath form (2007) published on SharePoint Site and I am using MOSS 2007 and Excel 2013. My form has only 20 or so fields and the rest are fields I generated in the form library to do several other calculations. I have already 73 columns
displayed which should be exported to Excel, need help

Hi,
As per your post, I understand “Excel cannot connect to the SharePoint list” is thrown out in Excel 2010 when exporting the external list in SharePoint 2013. We are able to export the external list to Excel 2013.
This issue does not occur on the standard lists.
I am able to reproduce the issue and it could be a potential issue in SharePoint 2013.
We will log this issue to our suggestion box. As after the submission, we may not have any time guarantee when the fix may be released, but it may come out on next cumulative update.
Appreciate your time and efforts.
Thanks.
Tracy Cai
TechNet Community Support

Cannot view Master Data Services Models with Excel Add-In, using MSSQServer 2014 Trial and Excel 2010 (non-trial)

I'm using using MSSQServer 2014 Trial with Master Data Services installed. I have connected to the MDS server with the Excel 2010 MDS Add-In.
Models are not listed in the Add-In's Explorer browser. When I open the MDS server with IE, no models are listed either.
I can view them locally on the server in IE.
There are no remote DB access issues.
Is it just that the 2014 Trial version does not supply this info remotely??

Was a Model Permission issue. Fixed here: http://technet.microsoft.com/en-us/library/ff487055.aspx
Would be good if the interface would show some kind of alert to that fact.

64-bit Smart View + Excel 2010 64-bit Issues - Help Please

Hello everyone.
First, I am not an "IT guy" so please bare with me as I am not technical but need help.
I am running Windows 7 64-bit Professional and Excel 2010 64-bit. I installed Oracle Smart View for Office, Fusion Edition 64-bit as an add-in within Excel.
I have worked with our "Hyperion Admins" to connect to the right server so that my "private connections" are set correctly (hopefully that makes sense).
However, when I attempt to refresh my Smart View query I end-up retrieving no data. The "refresh" button under "Smart View" in Excel will proceed as a refresh is occurring but then not return data (I know this Smart View template works as I've used it many times on 32-bit Excel).
Our admins have informed me that I cannot use 64-bit Smart View because our "server" is on a 32-bit O/S (or something similar to that). To me, the logic doesn't make sense and I'm hoping that there is a solution the admins are not aware of.
Happy to answer any questions and appreciate any help.

JDN wrote:
We had a similar experience as JTF, HsGetValues would not work but the AdHoc function worked fine. I put in an SR with Oracle and they refereced the below document. We ended up having IT install 32 bit office on the machine along with 32 bit Smartview (11.1.2.2.300) and now it is working fine.
Regards,
Jason
Some Smart View Functions Do Not Work in Excel 2010 64-bit. [ID 1463814.1]
To Bottom
Modified:Aug 30, 2012Type:PROBLEMStatus:PUBLISHEDPriority:3
Comments (0)
In this Document
Symptoms
Cause
Solution
References
Applies to:
Hyperion Financial Management - Version 11.1.2.2.000 and later
Information in this document applies to any platform.
Symptoms
When using Smart View (SV) with Microsoft Office 2010 SP1 some SV functions do not work or cause Excel application to crash.
Cause
In 64-bit versions of Excel 2010 SP1, the presence of Smart View functions may cause Excel to terminate abruptly and may prevent Copy Data Point and Paste Data Point functions from working. This has been identified as a defect in Microsoft product.
Solution
Use the 32-bit version of Smart View until Microsoft issues fix for their 64-bit Office products.
References
@ BUG:13606492 - USING HSSETVALUE FUNCTION CAUSES EXCEL CRASH
14091219
Related
Products
•Enterprise Performance Management and Business Intelligence > Enterprise Performance Management > Financial Management > Hyperion Financial Management > Smart View > Smart View
Keywords
BIT;CRASH;EXCEL;HSGETVALUE;MICROSOFT;OFFICE 2010;SMART VIEW;SMARTVIEW;SP1;DYNAMIC ADV PROBLEM SOLUTIONCan you use the 32-bit Smart View with 64-bit Office? Unfortunately, 32-bit Excel cannot handle my files so I am forced to use 64-bit so going back to a 32-bit Office will not work for me.

"Rows to repeat at top", in Page Setup/Sheet disabled in Excel 2010

I have read all of the postings on this question. I am having the same problem! However I do not see any solution. I see a lot of "I think's", or "try this'", but no clear cut-solution. Let me restate;
I am running Excel 2010 in Office Professional:
I want to print a long spread sheet and I would like the title row repeated on the top of each page. I specify the print area range. The first row is frozen, so that when I scroll through my work on screen, I can differentiate the column information by having
the first row frozen. I want this to happen when I print this long document.
I go to print and go to Page Setup. I select the "Sheet" tab. The Print address bar area is disabled (grayed), but my print range is there. Under "Print" Titles", both selections are disabled (grayed); "Rows to Repeat at Top" and Columns to Repeat at Left"
are unavailable for selection. The address selection button on the right, of each of these three address range bars are also disabled (grayed).
This worksheet is on my hard drive. It is the only worksheet in the file. When I click on the worksheet tab, it does not say "Ungroup Sheets" which means that sheets have never been grouped.
I have been using Excel since Excel 95. I have done this many times in past versions, and it is a relatively simple procedure. Does any know why I can not access this feature in Excel 2010?

Here we are 15 months later and Microsoft Excel 2013 has the SAME ERROR
If one chooses:
Print Preview
Page Setup
Sheet
Then the print area and print titles (Rows to repeat at top, columns to repeat at top)
are all grayed out and cannot be selected.
If, however, I choose the
page layout bar and click print titles then
everything works fine.
Thanks for the solution!!!

Excel 2010 Synchronize List with SharePoint List using VBA

I have used and loved the interaction between Excel and SharePoint for many generations of both solutions. It's a wonderful opportunity to integrate the familiarity and simplicity of Excel (formatting, ease of use, availability) with the data storage
and centralized list capabilities of SharePoint. Right?
When upgrading to Excel 2010, I have noticed with much dismay that much of the inherent easy to use features of previous versions were effectively stripped from this newest version. Much research, time and energy has been spent working around and resolving
the deficiency. One Microsoft based article,
http://support.microsoft.com/kb/930006, has provided the mechanics behind utilizing the "hidden" functionality... although, this capability to use VBA to create the synchronized list was available in previous versions. However, once Microsoft
published this article to this "hidden" functionality... I feel that the behavior should be supported by Microsoft in some way. OK?
Revised instructions to reproduce the problem:
1. Create a SharePoint list with 20 dummy records.
- Note the List Name ##LIST_NAME##
- Note the View GUID ##VIEW_GUID##
- Note SharePoint Base URL ##BASE_URL##
2. REVISED... In Excel 2010, save the file as Compatible "Excel 97-2003 Workbook". Close the file and reopen.  Create a connected table (ListObject) in Excel using the article above to the SharePoint list. Use Sample VBA code
below:
Sub LinkedSharePointList()
ActiveSheet.ListObjects.Add SourceType:=xlSrcExternal,_
    Source:=Array(##BASE_URL## & "/_vti_bin", ##LIST_NAME##, _
    ##VIEW_GUID##), LinkSource:=True, Destination:=Range("A1")
End Sub
3. OOPS REVISED this item. The problem is actually with ROW 21... So, update record on row 21... (no matter where the table is located... (if the "Destination" is "A1", then the problem is with ID=20, but if the Table is
shifted down to say A12, then ID=9 on row 21). Anyway... make a simple change to that record... and you'll see the ID immediately change.... as if it's a NEW record. WEIRD! Note: If the sheet is protected, then an error is displayed
indicating that a "read-only" record cannot be updated (referring to the ID cell in column A for the current row).
4. Now "synchronize" the list with excel. The former record is still in the list unchanged AND there is a NEW record in the list holding the changes. There are a number of problems that seem to ONLY occur when something changes to ROW
21.... Next, try to copy/paste multiple records across multiple rows that intersect with ROW 21. Yikes!!
I look forward to hearing others' experience!
Thanks!
Mark

Here are some things that you can try (change the code, where appropriate):
Private Sub CreateList()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    RowCtr = 1
    Set folder = fs.GetFolder("http://excel-pc:43231/Shared Documents/Forms/") '<=Variable Location
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub ListAllFile()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim pth As String
Dim WBn As Workbook
Dim ObCount As Long
Dim FileNme As String
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Set objFolder = objFSO.GetFolder("\\excel-pc:43231\Shared Documents\Forms\")
'** You'll need to specify your path here. By removing the http: from the path, the code liked it & found the folder. It wasn’t working previously ***
pth = "http://excel-pc:43231/Shared Documents/Forms/"
'** You'll need to specify your path here. The reason I’ve done this separately is because the path is not recognised otherwise when trying to specify it with workbook.open & using the value set for objFolder **
ObCount = objFolder.Files.Count
'** counts the number of files in the folder
'Loop through the Files collection
For Each objFile In objFolder.Files
Nm1 = Len("http://excel-pc:43231/Shared Documents/Forms/")
'** You'll need to specify your path here **
Nm2 = Len(objFile) - Nm1
FileNme = Right(objFile, Nm2)
'** I’ve done this part to find out/set the file name**
Set WBn = Workbooks.Open(pth & FileNme, , , , Password:="YourPassword")
'** opens the first file in the library – if there is no password, the remove everything from - , , , , Password:="Password1" – leaving the close bracket ‘)’
Application.ScreenUpdating = False
'** optional – you can leave the screen updating on
'<< Your coding here>>
'** The file is now open. Enter whatever code is specific to your spreadsheets.
Next
'** goes to next file within your sharepoint folder
End Sub
Sub SharePoint()
Dim xlFile As String, xlFullFile As String
Dim xlApp As Excel.Application
Dim wb As Workbook
xlFile = "\\excel-pc:43231\Shared Documents"
'http://excel-pc:43231/Shared Documents/
'****----denotes the path.(i.e) u give the path as windows search.Don't use "\" at the end.
'In the sharepoint path %20 denotes space.so u remove that and use space .
Set xlApp = New Excel.Application
xlApp.Visible = True
xlFullFile = GetFullFileName(xlFile, "Book") 'ANZ denotes starting characters of the file.
xlFile = xlFile & "\" & xlFullFile
Set wb = xlApp.Workbooks.Open(xlFile, , False)
'Once the workbook is opened u can do ur code here
wb.Close False
End Sub
Function GetFullFileName(strfilepath As String, _
strFileNamePartial As String) As String
Dim objFS As Variant
Dim objFolder As Variant
Dim objFile As Variant
Dim intLengthOfPartialName As Integer
Dim strfilenamefull As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strfilepath)
'work out how long the partial file name is
intLengthOfPartialName = Len(strFileNamePartial)
For Each objFile In objFolder.Files 'Instead of specifying the starting characters of the file you can directly loop through all files in the folder .
'Test to see if the file matches the partial file name
If Left(objFile.Name, intLengthOfPartialName) = strFileNamePartial Then
'get the full file name
strfilenamefull = objFile.Name
Exit For
Else
End If
Next objFile
Set objFolder = Nothing
Set objFS = Nothing
'Return the full file name as the function's value
GetFullFileName = strfilenamefull
End Function
Sub SrchForFiles()
' Searches the selected folders and sub folders for files with the specified (xls) extension.
'ListTheFiles 'get the list of all the target XLS files on the SharePoint Directory
Dim i As Long, z As Long, Rw As Long, ii As Long
Dim ws As Worksheet, dd As Worksheet
Dim y As Variant
Dim fldr As String, fil As String, FPath As String
Dim LocName As String
Dim FString As String
Dim SummaryWB As Workbook
Dim SummaryWS As Worksheet
Dim Raw_WS As Worksheet
Dim LastRow As Long, FirstRow As Long, RowsOfData As Long
Dim UseData As Boolean
Dim FirstBlankRow As Long
'grab current location for later reference, for where to paste final data
Set SummaryWB = Application.ActiveWorkbook
Set SummaryWS = Application.ActiveWorkbook.ActiveSheet
y = "xls"
fldr = "\\excel-pc:43231\Shared%20Documents\Forms\AllItems.aspx"
FirstBlankRow = 2
'asd is a 1-D array of files returned
asd = ListFiles(fldr, True)
Set ws = Excel.ThisWorkbook.Worksheets(1) 'list of files
ws.Activate
ws.Range("A1:Z100").Select
Selection.Clear
On Error GoTo 0
For ii = LBound(asd) To UBound(asd)
Debug.Print Dir(asd(ii))
fil = asd(ii)
'open the file and grab the data
Application.Workbooks.Open (fil), False, True
'Get file path from file name
FPath = Left(fil, Len(fil) - Len(Split(fil, "\")(UBound(Split(fil, "\")))) - 1)
'Get file information
If Left$(fil, 1) = Left$(fldr, 1) Then
If CBool(Len(Dir(fil))) Then
z = z + 1
ws.Cells(z + 1, 1).Resize(, 6) = _
Array(Dir(fil), LocName, RowsOfData, Round((FileLen(fil) / 1000), 0), FileDateTime(fil), FPath)
DoEvents
With ws
.Hyperlinks.Add .Range("A" & CStr(z + 1)), fil
'.FoundFiles(i)
End With
End If
End If
'Workbooks.Close 'Fil
Application.CutCopyMode = False 'Clear Clipboard
Workbooks(Dir(fil)).Close SaveChanges:=False
Next ii
With ws
Rw = .Cells.Rows.Count
With .[A1:F1]
.Value = [{"Full Name","Location","Rows of Data","Kilobytes","Last Modified", "Path"}]
.Font.Underline = xlUnderlineStyleSingle
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
.[G1:IV1 ].EntireColumn.Hidden = True
On Error Resume Next
'Range(Cells(Rw, "A").End(3)(2), Cells(Rw, "A")).EntireRow.Hidden = True
Range(.[A2 ], Cells(Rw, "C")).Sort [A2 ], xlAscending, Header:=xlNo
End With
End Sub
Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.folder
Dim fileList As String
' get the starting folder
Set fld = fso.GetFolder(Path)
' let the private subroutine do all the work
fileList = ListFilesPriv(fld, NestedDirs)
' (the first element will be a null string unless the first ";" is removed)
fileList = Right(fileList, Len(fileList) - 1)
' convert to a string array
ListFiles = Split(fileList, ";")
End Function
' private procedure that returns a file list
' as a comma-delimited list of files
Function ListFilesPriv(ByVal fld As Scripting.folder, _
ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.folder
' list all the files in this directory
For Each fil In fld.Files
'If UCase(Left(Dir(fil), 5)) = "MULTI" And fil.Type = "Microsoft Excel Worksheet" Then
If fil.Type = "Microsoft Excel Worksheet" Then
ListFilesPriv = ListFilesPriv & ";" & fil.Path
Debug.Print fil.Path
End If
Next
' if requested, search also subdirectories
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function
Finally . . .
Sub ListFiles()
    Dim folder As Variant
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    Dim FPath As String
    Dim wb As Workbook
    RowCtr = 1
    FPath = "http://excel-pc:43231/Shared Documents"
    For Each f In FPath
    'Set folder = fs.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub test()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'Set colSubfolders = objFolder.SubFolders
    'For Each objSubfolder In colSubfolders
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    'Next
End Sub
Ryan Shuell

COMPLETELY Disable Protected View in Excel 2010

Similar Messages

Maybe you are looking for