onedrive en autosave excel2016

[ldh]

Dag allemaal,

info:
excel2016
onedrive
vbs-script die alle bestanden in de map print afdrukt. (zie onder)

info 2:
ik werk met een klantmapnaam bv : janjan
ik wijzig een bestaande werkbladen en sla die op in de klantmap.
Autoswitch blijft gedeactiveerd zolang het bestand in de map janjan blijft.

Na einde werk worden alle bestanden gekopieerd naar een map genaamd Print.
vbs script loopt vast.

Wat gebeurd er?
als ik handmatig een gekopieeerd bestand open, dan zie ik:
opnen
switch verschuiven naar : aan
bestand wordt opgeslagen op onedrive
nu kan ik werken in het bestand en uiteraard ook printen.

Bij kopiëren van een bestand naar een andere map wordt door excel2016 de autosave switch dus weer geactiveerd.



de vraag:
Wie schrijft een VBS-script voor mij waarin alle bestanden in de map Print geopend worden, autoswitch gedeactiveerd wordt, en de bestanden weer gesloten worden.
Wilt u bij het beantwoorden beseffen dat ik leek ben? (Want het VBS-script is door een expert gemaakt die het ook even niet weet.)

Bij voorbaat dank.
gr. Ldh


Opgelost.
Het was heel wat anders: een tijdsprobleem van ophalen uit de cloud naar de printer.
de printmap even op het bureaublad plaatsen, en alles werkt zoals het hoort.
DANK U WEL voor de moeite en het meedenken.

 

[VenA]

Onleesbaar verhaal. Maak iig gebruik van code tags

Is VBS niet een beetje verouderd? In VBA om de .xlsx files af te drukken.

Sub VenA()
  c00 = "E:\VenA\helpmij\"
  ar = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir " & c00 & " /b /a-d").stdout.readall, vbCrLf), ".xlsx")
  For j = 0 To UBound(ar)
    With GetObject(c00 & ar(j))
      .Sheets(1).PrintPreview
      .Close 0
    End With
  Next j
End Sub

 

[ldh]

de leek

Dag VenA

Sorry als het onleesbaar/onbegrijpelijk wordt.

Als ik ALLE ballast weg filter dan blijft de vraag over:

Wie schrijft een VBS-script/VBA-script/ of hoe het heten mag-script voor mij waarin alle EXCEL2016 bestanden in de map Print geopend worden,
autosave gedeactiveerd wordt, en de bestanden weer gesloten worden.
Wilt u bij het beantwoorden beseffen dat ik leek ben? (Want het VBS-script is door een expert gemaakt die het ook even niet weet.)

Nogmaals:
Alvast dank u wel voor de tijd die u er allemaal in stopt.

Met groet, LdH

 

[Ginger]

Naar mijn bescheiden mening is de eigenschap "AutoSave" er 1 van het object Application en niet van het object Workbook. Dit zal dus per gebruiker (computer) verschillen of die aan staat of niet. Maarrrrr..... ik kan dit natuurlijk ook heel erg mis hebben. ;-)

 

[HSV]

Autosave? is dat niet application.autorecover of workbook.enableautorecover?

 

[jkpieterse]

De autosave functie die is toegevoegd in Office 365 die noodzakelijk is zodat "CoAuthoring" goed werkt is een eigenschap van de werkmap.

ActiveWorkbook.AutosaveOn = False

Op true zetten bij een bestand dat niet in OneDrive staat noch in Sharepoint levert een runtime error 1004 op.

 

[VenA]

Heb je de code in #2 geprobeerd? Wel even het pad aanpassen

c00 = "C:\users\denhe\OneDrive\Print\"

En PrintPreview wijzigen in Printout

Wat bedoel je met Autosave?

Ik zou ook geen Application.Quit gebruiken maar ThisWorkbook.Close True

Je krijgt dan zoiets

Sub VenA()
  c00 = "C:\users\denhe\OneDrive\Print\"
  ar = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir " & c00 & " /b /a-d").stdout.readall, vbCrLf), ".xlsx")
  For j = 1 To UBound(ar)
    With GetObject(c00 & ar(j))
      .Sheets(1).PrintOut
      .Close 0
    End With
  Next j
  MsgBox " KLAAR", 64, "Programma-einde"
  ThisWorkbook.Close True
End Sub

Edit, Het stukje over Autosave is net uitgelegd door jkpieterse.